combo box

Jeg vil gærne have alle skriftstørelser ned i en combobox

Hilsen Thomas
-.-.-.-.-.-.-.-.-.-.
Sukker FEDER!

Det kan jeg da svare på:

ComboBox1.Items := Screen.Fonts;

Så har du listen.

Emil Melgaard
emil.melgaard@private.dk
- Admin på gruppen Delphi spilprogrammering.
http://www.delphispilprogram.udvikleren.dk

Alternative kan du downloade RxComponent suiten fra

http://www.torry.ru/

Den indeholder bla. meget andet en FontCombo.

Jeg vil gærne have alle skriftstørelser ned i en combobox

Hilsen Thomas
-.-.-.-.-.-.-.-.-.-.
Sukker FEDER!

Jeg havde lige denne lille kode liggende:

begin
ComboBox1.Items.Add('8'); ComboBox1.Items.Add('9);
ComboBox1.Items.Add('10'); ComboBox1.Items.Add('11');
ComboBox1.Items.Add('12'); ComboBox1.Items.Add('14');
ComboBox1.Items.Add('16'); ComboBox1.Items.Add('18');
ComboBox1.Items.Add('20'); ComboBox1.Items.Add('22');
ComboBox1.Items.Add('24'); ComboBox1.Items.Add('26');
ComboBox1.Items.Add('28'); ComboBox1.Items.Add('36');
ComboBox1.Items.Add('48'); ComboBox1.Items.Add('72');
end;

nlf :-)[Redigeret d. 21/03-03 09:33:18 af Nicolai][Redigeret d. 29/04-03 19:16:27 af Nicolai]

Jeg vil gærne have alle skriftstørelser ned i en combobox

Hilsen Thomas
-.-.-.-.-.-.-.-.-.-.
Sukker FEDER!

Hej,

Da de fleste fonte i Windows er TrueType (Vector baseret), så er der ikke nogen fast størrelse.
Du burde dog kunne hardcode nogle størrelser selv.
Dette kunne være:
8 10 12 14 16 18 20 22 24 28 32 36 40 48.....osv.
Ellers skulle du prøve at se hvad Word, Delphi og andre programmer har valgt af størrelser.

Mvh
Michael.

[Redigeret d. 02/03-03 02:09:01 af Emil Melgaard]