Mega Code Archive

 

Categories / Delphi / Graphic

 

Coloring Tabs in PageControl

Title: Coloring Tabs in PageControl Question: I'd like to color tabs of my PageControl on the MainForm. Let's see what we can do. Answer: // first of all making onDrawTab event Procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); begin case TabIndex of 0: Control.Canvas.Brush.Color:=clgreen; 1: Control.Canvas.Brush.Color:=clred; 2: Control.Canvas.Brush.Color:=clblue; 3: Control.Canvas.Brush.Color:=clYellow; 4: Control.Canvas.Brush.Color:=clMaroon; 5: Control.Canvas.Brush.Color:=clWhite; end; Control.Canvas.TextOut(Rect.left+5,Rect.top+3,PageControl1.Pages[tabindex].Caption); PageControl1.Pages[TabIndex].Brush.Color:=Control.Canvas.Brush.Color; end; // And Then while Form creating pointing // that we have an our own Draw Method for desired PageControl procedure TForm1.FormCreate(Sender: TObject); begin PageControl1.OwnerDraw:=true; end;