FontViewer

Jeg har lige hurtigt bakset noget kode sammen til dig. Prøv det her:

1. Sæt din listbox Style til lbOwnerDrawFixed

2. Sæt følgende kode i din onCreate:

ListBox1.Items.Assign(Screen.Fonts);

3. I listboxens onDrawItem indsæt følgende:

ListBox1.Canvas.FillRect(Rect);
ListBox1.Canvas.Font.Name := ListBox1.Items[Index];
ListBox1.Canvas.TextOut(Rect.Left+1, Rect.Top+1, ListBox1.Items[Index]);

Kim Jensen aka BOSH
http://www.hulubulu.dk

Brug en listbox til at scrolle igennem de forskellige navne på fonts, og når man så vælger en font bliver den vist i et label ved siden af




[Redigeret d. 14/05-05 14:00:29 af Jens Christian]

Den tænkte jeg også på, men det er bare ikke særlig let at få et indtryk af alle skifttypperne hvis man skal klikke for at se den!


Det ku jo være en fin og let mitode, hvis andet ikke er muligt! Vil nu lige gerne hører! Har også tænkt på ValueListEditor

Men hved ik... Help me


Shafh
www.shafh.dk
Shafh@stofanet.dk
Theis F. Hinz

Make you glad to change the world

Hmm, jeg tænkte på noget i stil med en combobox, hvor man kan finde alle skrifttyper. Også kan man scrolle ned, og den skrifttype som boxen viser, bliver en richedit's skrifttype - så kan man også selv prøve at skrive noget med skriften? Jeg kan lige prøve at bikse noget kode sammen, hvis du vil se det.

Firefox gik i stå da jeg skrev, så nåede lige at tage et screenshot af det:

www.shafh.dk/1.GIF



Shafh
www.shafh.dk
Shafh@stofanet.dk
Theis F. Hinz

Make you glad to change the world

Du skal jo ikke gå ind i comboboxen - du vælger bare en, og så bruger du scrollknappen på din mus. Så du kun skal trykke en gang, også scrolle ned med mus eller hvad du nu end bruger, også får du det vist i en richedit.

Du får ihvertfald koden her, så kan du prøve at se det.

- Tilføj dette under private -: function CurrText: TTextAttributes;

function TForm1.CurrText: TTextAttributes;
begin
if RichEdit1.SelLength > 0 then Result := RichEdit1.SelAttributes
else Result := RichEdit1.DefAttributes;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
CurrText.Name := Combobox1.Items[Combobox1.ItemIndex];
RichEdit1.SelAttributes.Name := PChar(ComboBox1.Text)
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Combobox1.Items := Screen.Fonts;
end;
end.

[Redigeret d. 14/05-05 18:54:33 af Benni]

Ku godt regne koden ud, men ok tak da...

Ja okay! Men Ville nu gerne have en oversigt hvor man også kan samligne alle med hendanen, uden at skulle scroole. Så syns jeg nu det er bedre den med listbox og labelen!

Kan jeg ikke på en eller anden måde lave en oversigt i eks. en listbox med skrifttyperne (eksempler hvor der er skrevet noget med skriften)




Shafh
www.shafh.dk
Shafh@stofanet.dk
Theis F. Hinz

Make you glad to change the world

Jeg har lige hurtigt bakset noget kode sammen til dig. Prøv det her:

1. Sæt din listbox Style til lbOwnerDrawFixed

2. Sæt følgende kode i din onCreate:

Kode 

ListBox1.Items.Assign(Screen.Fonts);

3. I listboxens onDrawItem indsæt følgende:

Kode 

ListBox1.Canvas.FillRect(Rect);
ListBox1.Canvas.Font.Name := ListBox1.Items[Index];
ListBox1.Canvas.TextOut(Rect.Left+1, Rect.Top+1, ListBox1.Items[Index]);

Kim Jensen aka BOSH
http://www.hulubulu.dk

Lidt off-topic men dog ikke helt:
Ved du om man kan gøre det samme med en ComboBox fra Win2k Toolbar sættet? Jeg prøvede selv men kunne ikke rigtigt få det til at virke

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Lidt off-topic men dog ikke helt:
Ved du om man kan gøre det samme med en ComboBox fra Win2k Toolbar sættet? Jeg prøvede selv men kunne ikke rigtigt få det til at virke
Mvh.
Rune Jensen

Du kan gøre på samme måde med en almindelig TComboBox. Jeg kender ikke til "Win2k Toolbar sættet", er det noget third-party ?


Kim Jensen aka BOSH
http://www.hulubulu.dk

Hma... Det er da den enkleste måde det kan gøres... Tak




Shafh
www.shafh.dk
Shafh@stofanet.dk
Theis F. Hinz

Make you glad to change the world