Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
6. Jan 2005
Freut mich :-D
Wenn Du aber nur auf einem Tab eine Caption ausgibst würde ich nicht mit einer StringList und einem Array arbeiten. Da reicht ja eine If-Abfrage und zwei Zeilen für das TextOut.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
6. Jan 2005
Hai Alex,
Du musst halt auch die Bilder selber zeichnen :stupid:
Diese Zeile sollte Dir helfen :arrow:
PageControl1.Images.Draw(control.Canvas,rect.Left+1,rect.Top+5,tabindex);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
6. Jan 2005
Hai Alex,
da wirst Du wohl selber den Text zeichnen müssen. Hier mal ein Beispiel
procedure TForm1.FormCreate(Sender: TObject);
begin
PageControl1.OwnerDraw := True;
Pagecontrol1.TabHeight := 30;
end;
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;