Class TForm1 (unit Sample1)

Inherits from

TForm

Constructors



Functions

procedure BitBtnGoClick(Sender: TObject);


procedure ButtonColorATabClick(Sender: TObject);


procedure ButtonColorFormClick(Sender: TObject);


procedure ButtonColorITabClick(Sender: TObject);


procedure ButtonColorSheetClick(Sender: TObject);


procedure ButtonFontATabClick(Sender: TObject);


procedure ButtonFontITabClick(Sender: TObject);


procedure ButtonSample2Click(Sender: TObject);


procedure CheckBoxColorPagesClick(Sender: TObject);

color of Tab 4

procedure CheckBoxColorTabsClick(Sender: TObject);


procedure CheckBoxDisableTab2Click(Sender: TObject);


procedure CheckBoxDisableTabClick(Sender: TObject);


procedure CheckBoxHottrackClick(Sender: TObject);

active Tabs

procedure CheckBoxTabHintsClick(Sender: TObject);


procedure CheckBoxWordWrapClick(Sender: TObject);


procedure ExtTabControl2Change(Sender: TObject);


procedure ExtTabControl2DrawTab(Control: TWinControl; Index: Integer; ActiveTab: Boolean; const RectFg, RectBg: TRect; State: TOwnerDrawState);

Inactive Tab

procedure FormCreate(Sender: TObject);

creation of the form

procedure ImageClick(Sender: TObject);


procedure RadioGroupGlyphsPositionClick(Sender: TObject);

color of Page 4

procedure RadioGroupTabStyleClick(Sender: TObject);


procedure TabsPositionClick(Sender: TObject);


procedure DrawBitmapTab(Control: TWinControl;Index: Integer; ActiveTab: Boolean; const RectFg, RectBg: TRect; State: TOwnerDrawState);


procedure DrawColoredTab(Control: TWinControl; Index: Integer; ActiveTab: Boolean; const RectFg, RectBg: TRect; State: TOwnerDrawState);


procedure ChangeColored(Sender: TObject);


function ColorFromIndex(Index: Integer): TColor;


procedure SetTabColors(ActiveTab, Highlight: Boolean);


Properties

Events

Variables

BitBtnGo : TBitBtn;


ButtonColorATab : TButton;


ButtonColorForm : TButton;


ButtonColorITab : TButton;


ButtonColorSheet : TButton;


ButtonFontATab : TButton;


ButtonFontITab : TButton;


ButtonSample2 : TButton;


CheckBoxColorPages : TCheckBox;


CheckBoxColorTabs : TCheckBox;


CheckBoxDisableTab : TCheckBox;


CheckBoxDisableTab2 : TCheckBox;


CheckBoxHottrack : TCheckBox;


CheckBoxTabHints : TCheckBox;


CheckBoxWordWrap : TCheckBox;


Edit1 : TEdit;


ExtPageControl1 : TExtPageControl;


ExtTabControl1 : TExtTabControl;


ExtTabControl2 : TExtTabControl;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


GroupBox3 : TGroupBox;


GroupBox4 : TGroupBox;


GroupBoxDisTab : TGroupBox;


GroupBoxHints : TGroupBox;


GroupBoxOwnerDraw : TGroupBox;


GroupBoxWordWrap : TGroupBox;


Image01 : TImage;


Image02 : TImage;


Image03 : TImage;


Image04 : TImage;


Image05 : TImage;


Image06 : TImage;


Image07 : TImage;


Image08 : TImage;


Image09 : TImage;


Image10 : TImage;


Image11 : TImage;


Image12 : TImage;


Image13 : TImage;


Image14 : TImage;


Image15 : TImage;


Image16 : TImage;


Image17 : TImage;


Image18 : TImage;


Image19 : TImage;


Label1 : TLabel;


LabelOwnerDraw : TLabel;


LabelTabControl1 : TLabel;


LabelTabControl2 : TLabel;


MemoInfo : TMemo;


Page1 : TTabSheet;


Page2 : TTabSheet;


Page3 : TTabSheet;


Page4 : TTabSheet;


PanelInfo : TPanel;


PanelTabControl2 : TPanel;


RadioBtnActiveTab : TRadioButton;


RadioBtnInactiveTabs : TRadioButton;


RadioGroupGlyphsPosition : TRadioGroup;


RadioGroupTabStyle : TRadioGroup;


ScrollBox1 : TScrollBox;


TabsPosition : TRadioGroup;


ActiveTabGraphic : TGraphic;


InactiveTabGraphic : TGraphic;



Constructors


Functions


procedure BitBtnGoClick(Sender: TObject);


procedure ButtonColorATabClick(Sender: TObject);


procedure ButtonColorFormClick(Sender: TObject);


procedure ButtonColorITabClick(Sender: TObject);


procedure ButtonColorSheetClick(Sender: TObject);


procedure ButtonFontATabClick(Sender: TObject);


procedure ButtonFontITabClick(Sender: TObject);


procedure ButtonSample2Click(Sender: TObject);


procedure CheckBoxColorPagesClick(Sender: TObject);

color of Tab 4


procedure CheckBoxColorTabsClick(Sender: TObject);


procedure CheckBoxDisableTab2Click(Sender: TObject);


procedure CheckBoxDisableTabClick(Sender: TObject);


procedure CheckBoxHottrackClick(Sender: TObject);

active Tabs


procedure CheckBoxTabHintsClick(Sender: TObject);


procedure CheckBoxWordWrapClick(Sender: TObject);


procedure ExtTabControl2Change(Sender: TObject);


procedure ExtTabControl2DrawTab(Control: TWinControl; Index: Integer; ActiveTab: Boolean; const RectFg, RectBg: TRect; State: TOwnerDrawState);

Inactive Tab


procedure FormCreate(Sender: TObject);

creation of the form


procedure ImageClick(Sender: TObject);


procedure RadioGroupGlyphsPositionClick(Sender: TObject);

color of Page 4


procedure RadioGroupTabStyleClick(Sender: TObject);


procedure TabsPositionClick(Sender: TObject);


procedure DrawBitmapTab(Control: TWinControl;Index: Integer; ActiveTab: Boolean; const RectFg, RectBg: TRect; State: TOwnerDrawState);


procedure DrawColoredTab(Control: TWinControl; Index: Integer; ActiveTab: Boolean; const RectFg, RectBg: TRect; State: TOwnerDrawState);


procedure ChangeColored(Sender: TObject);


function ColorFromIndex(Index: Integer): TColor;


procedure SetTabColors(ActiveTab, Highlight: Boolean);


Properties


Events


Variables


BitBtnGo : TBitBtn;


ButtonColorATab : TButton;


ButtonColorForm : TButton;


ButtonColorITab : TButton;


ButtonColorSheet : TButton;


ButtonFontATab : TButton;


ButtonFontITab : TButton;


ButtonSample2 : TButton;


CheckBoxColorPages : TCheckBox;


CheckBoxColorTabs : TCheckBox;


CheckBoxDisableTab : TCheckBox;


CheckBoxDisableTab2 : TCheckBox;


CheckBoxHottrack : TCheckBox;


CheckBoxTabHints : TCheckBox;


CheckBoxWordWrap : TCheckBox;


Edit1 : TEdit;


ExtPageControl1 : TExtPageControl;


ExtTabControl1 : TExtTabControl;


ExtTabControl2 : TExtTabControl;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


GroupBox3 : TGroupBox;


GroupBox4 : TGroupBox;


GroupBoxDisTab : TGroupBox;


GroupBoxHints : TGroupBox;


GroupBoxOwnerDraw : TGroupBox;


GroupBoxWordWrap : TGroupBox;


Image01 : TImage;


Image02 : TImage;


Image03 : TImage;


Image04 : TImage;


Image05 : TImage;


Image06 : TImage;


Image07 : TImage;


Image08 : TImage;


Image09 : TImage;


Image10 : TImage;


Image11 : TImage;


Image12 : TImage;


Image13 : TImage;


Image14 : TImage;


Image15 : TImage;


Image16 : TImage;


Image17 : TImage;


Image18 : TImage;


Image19 : TImage;


Label1 : TLabel;


LabelOwnerDraw : TLabel;


LabelTabControl1 : TLabel;


LabelTabControl2 : TLabel;


MemoInfo : TMemo;


Page1 : TTabSheet;


Page2 : TTabSheet;


Page3 : TTabSheet;


Page4 : TTabSheet;


PanelInfo : TPanel;


PanelTabControl2 : TPanel;


RadioBtnActiveTab : TRadioButton;


RadioBtnInactiveTabs : TRadioButton;


RadioGroupGlyphsPosition : TRadioGroup;


RadioGroupTabStyle : TRadioGroup;


ScrollBox1 : TScrollBox;


TabsPosition : TRadioGroup;


ActiveTabGraphic : TGraphic;


InactiveTabGraphic : TGraphic;