logo

.
Wednesday 08th of September 2010    

Ankety

Co tu není dobré ?
 

Přihlášení



Provoz stránek

návštěv dnes: 57
návštěv včera: 62
návštěv za měsíc: 484
návštěv celkem: 17788

Home Tipy, triky, návody VZHLED, GRAFIKA seznam písem v ComboBox
seznam písem v ComboBox Tisk Email
Hodnocení uživatelů: / 0
NejhoršíNejlepší 
Napsal uživatel Administrator   
Středa, 10 Červen 2009 09:09
//naplnění ComboBoxu položkami s názvem fontu 
var i: integer;
begin
  for i := 0 to Screen.Fonts.Count - 1 do ComboBox1.Items.Add(Screen.Fonts.Strings[i]);
end;
 
 //vypsání fontu v ComboBoxu tím správným fontem
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TComboBox).Canvas do
    begin
      Font.Name := Screen.Fonts.Strings[Index];
      FillRect(Rect);
      TextOut(Rect.Left, Rect.Top, PChar(Screen.Fonts.Strings[Index]));
    end;
end;
 
Zdroj:  http://www.zive.cz/Clanky/Tipy-a-triky-v-Delphi-dil-189--seznam-pisem-v-ComboBoxu/sc-3-a-125247/default.aspx
 

Přidejte svůj komentář

Vaše jméno:
Titulek:
Komentář:
yvComment v.1.24.0
bottom

top

kolik vás je ?

Právě připojeni - hostů: 2 

bottom

Založeno na Joomla!. Designed by: Free Joomla 1.5 Template, dns. Valid XHTML and CSS.