Telefonda yüklü font listesini combobox'ta nasıl gösterebilirim? Aşağıdaki kodları telefonda nasıl çalıştırabilirim?
var i: integer
begin
for i := 0 to Screen.Fonts.Count-1 do Combobox1.Items.Add(Screen.Fonts.Strings);
end;
procedure TForm1.FontComboDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with Control as TComboBox do
begin
Canvas.Font.Name := Screen.Fonts.Strings[Index];
Canvas.FillRect(Rect);
Canvas.textOut(Rect.Left,Rect.Top, PChar(Screen.Fonts.Strings[Index]))
end;
end;