Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian Seehase,
16. Dez 2006
Moin Chemiker,
hier mal ein kleines Beispiel:
procedure TfrmcsDLMain.pcMainDrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
if Active then begin
Control.Canvas.Brush.Color := clInfoBk;
Control.Canvas.Font.Style := Control.Canvas.Font.Style + ;
end else begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian Seehase,
16. Dez 2006
Moin Chemiker,
Du müsstest dazu nur die Eigenschaft OwnerDraw des PageControls auf true setzen, und kannst dann im Ereignis OnDrawTab das Tab nach Herzenslust gestalten.