Further to David's reply, the first two lines of this example of the DrawTab event will colour the tabs whatever colour the brush has been assigned here.
procedure TMainForm.PC1DrawTab(Control: TCustomTabControl;TabIndex: Integer; const Rect: TRect; Active: Boolean); begin with PC1.Canvas do begin Brush.Color:= $CCEFF1; FillRect(Rect); Font.Color:= clNavy; Font.Size:= 10; Font.Name:= 'Arial'; end; if TabIndex=0 then PC1.Canvas.TextRect(Rect,10,5,'Sessions') else if TabIndex=1 then PC1.Canvas.TextRect(Rect,135,5,'History'); end; HTH Steve -----Original Message----- From: delphi-en@yahoogroups.com [mailto:[EMAIL PROTECTED] On Behalf Of siva subramanian Sent: 29 August 2006 15:02 To: delphi-en@yahoogroups.com Subject: [delphi-en] Reg How To Change the Tabsheet Header Colour Dear All Guys, I need one help.I want change the Tabsheet header colour.In my s/w use PageControl.Pls reply this mail. With Regards Siva --------------------------------- Here's a new way to find what you're looking for - Yahoo! Answers Send FREE SMS to your friend's mobile from Yahoo! Messenger Version 8. Get it NOW [Non-text portions of this message have been removed] ----------------------------------------------------- Home page: http://groups.yahoo.com/group/delphi-en/ To unsubscribe: [EMAIL PROTECTED] Yahoo! Groups Links *************************************************************************** This e-mail and any files transmitted with it are confidential. If you are not the intended recipient, any reading, printing, storage, disclosure, copying or any other action taken in respect of this e-mail is prohibited and may be unlawful. If you are not the intended recipient, please notify the sender immediately by using the reply function and then permanently delete what you have received. Content of emails received by this Trust will be subject to disclosure under the Freedom of Information Act 2000, subject to the specified exemptions, including the Data Protection Act 1998 and Caldicott Guardian principles. This footnote also confirms that this email message has been swept by MIMESweeper and Sophos Anti-virus for the presence of computer viruses. *************************************************************************** ----------------------------------------------------- Home page: http://groups.yahoo.com/group/delphi-en/ To unsubscribe: [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/delphi-en/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
