Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bitsetter,
23. Feb 2007
Weiter oben habe ich jetzt noch eine kleine Beschreibung geschrieben, wie du die Events zuweisen mußt.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bitsetter,
22. Feb 2007
procedure TForm1.Button2Click(Sender: TObject);
var
i: integer;
begin
if Listbox1.Items.Count> 0 then
for i:= 0 to Pred(Listbox1.Items.Count) do begin
canvas.Font.Name:= Listbox1.Items.Strings;
canvas.TextOut(10,i* 16, 'Hallo');
end;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bitsetter,
22. Feb 2007
procedure TForm1.Button1Click(Sender: TObject);
begin
Listbox1.Items:= screen.Fonts;
end;