home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / PageTabOD / Main.pas < prev    next >
Pascal/Delphi Source File  |  1998-04-23  |  2KB  |  69 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls,
  7.   Forms, Dialogs, ComCtrls, StdCtrls, ImgList;
  8.  
  9. type
  10.   TMainForm = class(TForm)
  11.     PageControl1: TPageControl;
  12.     TabSheet1: TTabSheet;
  13.     TabSheet2: TTabSheet;
  14.     TabSheet3: TTabSheet;
  15.     TabSheet4: TTabSheet;
  16.     TabSheet5: TTabSheet;
  17.     TabSheet6: TTabSheet;
  18.     TabSheet7: TTabSheet;
  19.     TabSheet8: TTabSheet;
  20.     TabSheet9: TTabSheet;
  21.     TabSheet10: TTabSheet;
  22.     TabSheet11: TTabSheet;
  23.     TabSheet12: TTabSheet;
  24.     ImageList1: TImageList;
  25.     Label1: TLabel;
  26.     Label2: TLabel;
  27.     Label3: TLabel;
  28.     Label4: TLabel;
  29.     Label5: TLabel;
  30.     Label6: TLabel;
  31.     Label7: TLabel;
  32.     Label8: TLabel;
  33.     Label9: TLabel;
  34.     Label10: TLabel;
  35.     Label11: TLabel;
  36.     Label12: TLabel;
  37.     procedure PageControl1DrawTab(Control: TCustomTabControl;
  38.       TabIndex: Integer; const Rect: TRect; Active: Boolean);
  39.   private
  40.     { Private declarations }
  41.   public
  42.     { Public declarations }
  43.   end;
  44.  
  45. var
  46.   MainForm: TMainForm;
  47.  
  48. implementation
  49.  
  50. {$R *.DFM}
  51.  
  52. procedure TMainForm.PageControl1DrawTab(Control: TCustomTabControl;
  53.   TabIndex: Integer; const Rect: TRect; Active: Boolean);
  54. begin
  55.   with Control.Canvas do
  56.   begin
  57.     if active
  58.       then Font.Style := [fsItalic]
  59.       else Font.Style := [];
  60.     TextRect(Rect, Rect.Left + 20, Rect.Top + 3,
  61.       PageControl1.Pages[TabIndex].Caption);
  62.     ImageList1.Draw(Control.Canvas,
  63.       Rect.Left + 2, Rect.Top + 2, 0);
  64.   end;
  65. end;
  66.  
  67.  
  68. end.
  69.