object Form1: TForm1 Left = 229 Height = 493 Top = 150 Width = 884 Caption = 'TGradTabControl-Testsuite' ClientHeight = 493 ClientWidth = 884 OnCreate = FormCreate OnDestroy = FormDestroy LCLVersion = '0.9.29' object Panel1: TPanel Left = 0 Height = 493 Top = 0 Width = 646 Align = alClient Caption = 'Panel1' ClientHeight = 493 ClientWidth = 646 TabOrder = 0 object GradTabControl1: TGradTabControl Left = 1 Height = 491 Top = 1 Width = 644 Align = alClient ActivePage = GradTabPage1 OnTabButtonMouseDown = GradTabControl1TabButtonMouseDown OnTabButtonMouseUp = GradTabControl1TabButtonMouseUp OnTabButtonMouseMove = GradTabControl1TabButtonMouseMove OnTabCloseButtonClick = GradTabControl1TabCloseButtonClick OnDragDrop = GradTabControl1DragDrop OnDragOver = GradTabControl1DragOver OnMouseDown = GradTabControl1MouseDown OnMouseWheelUp = GradTabControl1MouseWheelUp OnMouseWheelDown = GradTabControl1MouseWheelDown PageIndex = 0 TabHeight = 20 LongTabs = False LongWidth = 101 OnPageChanged = GradTabControl1PageChanged ShowLeftTopScrollButton = False ShowRightBottomScrollButton = False Images = ImageList1 CustomDraw = False object GradTabPage3: TGradTabPage Left = 2 Height = 466 Top = 22 Width = 640 PageIndex = 1 Caption = 'GradTabPage3' TabColor = clBlue TabTextAlignment = taLeftJustify TabGlyph.Data = { 36040000424D3604000000000000360000002800000010000000100000000100 20000000000000040000640000006400000000000000000000006E554E8D704E 44A6683F35A51C0E0E1286C6DC2D6BC2E1995FBCDDB855B4D4D24CA9CAE843A0 C0EA3E9CBCD5429EBFBC50A8C79F79B9D03B0000230000002300664E4982593D 37706D4237706186964470D0F2F65FC7EBFF53BBDFFF47B0D4FF3CA4C8FF3099 BDFF2890B4FF2990B5FF349CC0FF55B7D9FA85C9E14F00002300513C36266E4B 428E4C2D266B76BBD26F6BD2F5FF5DBAD5FF51AFCDFF52ACC8FF4AA8C7FF45A3 C3FF469FBCFF3D99B8FF409EBBFF4FB5D9FF7ACDEB820000230000000006583E 357C603A30B57BAFC16D5EBBDBFC5EC1E3FF5ABBDCFF47B0D4FF3CA4C8FF3099 BDFF2890B4FF3395B6FF42A2C4FF54B1D1FD7EC0D28800002300000023006948 3E835F39308E85CCE65A6BD2F6FF5FC7EBFF53BBDFFF47B0D4FF44A4C3FF3A9A B7FF2890B4FF2990B5FF349CC0FF4EB6DAFF7DCCE67800002300000000075E3F 386D5F382E6974B7CD7268C5E2FF55B0CDFF4EAFCEFF4AABCDFF43A9CCFF3DA3 C7FF3DA0C1FF40A1C1FF49A4C3FF51AFCDFF7ACCE98200002300000000045E41 378A653E337785B8C45169C4E5FC60C7EBFF53BBDFFF47B0D4FF3CA4C8FF3099 BDFF2890B4FF2990B5FF349CC0FF57B5D5FD87BBCC7700002300000023002C23 1A1D5132298A70B1C6716AD2F6FF60C7EAFF5CB7D3FF4FABC7FF42A1C0FF3B9B B9FF3995B0FF3892AFFF369CBFFF4EB6DAFF7BCEE9810000230000000004704E 44966C42379A7ABBCE715DB8D2FF50B2D4FF49B3D8FF44B0D4FF41A8CDFF39A0 C4FF349DC2FF35A0C6FF40A5C6FF4FACC8FF7ECAE48600002300000000056244 3BB15030289F749DA8536CCDEEFB5FC7EBFF53BBDFFF47B0D4FF3CA4C8FF3099 BDFF2890B4FF2990B5FF349CC0FF55B6D8FD82C0CD6C00002300000023006446 3D96472C245D7BC4DD6C6AD2F6FF60BDD9FF4FB0CDFF4AAAC8FF4CA8C4FF49A4 C1FF3D9AB8FF3697B6FF409DBBFF4EB6DAFF7ACCE98200002300644E46806848 3F8E55352D7E84C5D96A5BBAD9FC59BEE1FF59B9DBFF50B1D3FF3CA4C8FF3099 BDFF3193B5FF3999BBFF40A4C7FF50AFCFFD7CC3D787000023006B524A7C704C 45895C392D6C7FC3DA4F6CD2F5FE5FC7EBFF53BBDFFF47B0D4FF3CA4C8FF3099 BDFF2890B4FF2991B5FF349CC0FF4FB6DAFF82CDE56F00002300000000063622 1B264D2E28747DC6DF6C6BCCEBFF49AFCFFF3BA6C9FF34A2C5FF2E9EC3FF2D9D C2FF2D9CBFFF2F9BBEFF369EC0FF50B2D2FF79CCEA8200002300000000096242 3ABC523228A47AA4B35537A2C3F3189FCFFF189FCFFF189FCFFF189FCFFF189F CFFF189FCFFF189FCFFF189FCFFF2E9FC4F77BB8C86900002300000023007B53 4966674034941A00000A71A1A2243A9FBD9E319FC1BC2E9FC3D32B9EC4EA2B9F C3EC2D9FC3D6309FC3BF37A0C0A45EA1AD310000230000002300 } TabShowGlyph = True TabButtonLayout = blGlyphLeft end object GradTabPage2: TGradTabPage Left = 2 Height = 489 Top = 22 Width = 642 PageIndex = 2 Caption = 'GradTabPage2' ShowCloseButton = True TabColor = clBlue TabTextAlignment = taLeftJustify TabGlyph.Data = { 36040000424D3604000000000000360000002800000010000000100000000100 20000000000000040000640000006400000000000000000000006E554E8D704E 44A6683F35A51C0E0E1286C6DC2D6BC2E1995FBCDDB855B4D4D24CA9CAE843A0 C0EA3E9CBCD5429EBFBC50A8C79F79B9D03B0000230000002300664E4982593D 37706D4237706186964470D0F2F65FC7EBFF53BBDFFF47B0D4FF3CA4C8FF3099 BDFF2890B4FF2990B5FF349CC0FF55B7D9FA85C9E14F00002300513C36266E4B 428E4C2D266B76BBD26F6BD2F5FF5DBAD5FF51AFCDFF52ACC8FF4AA8C7FF45A3 C3FF469FBCFF3D99B8FF409EBBFF4FB5D9FF7ACDEB820000230000000006583E 357C603A30B57BAFC16D5EBBDBFC5EC1E3FF5ABBDCFF47B0D4FF3CA4C8FF3099 BDFF2890B4FF3395B6FF42A2C4FF54B1D1FD7EC0D28800002300000023006948 3E835F39308E85CCE65A6BD2F6FF5FC7EBFF53BBDFFF47B0D4FF44A4C3FF3A9A B7FF2890B4FF2990B5FF349CC0FF4EB6DAFF7DCCE67800002300000000075E3F 386D5F382E6974B7CD7268C5E2FF55B0CDFF4EAFCEFF4AABCDFF43A9CCFF3DA3 C7FF3DA0C1FF40A1C1FF49A4C3FF51AFCDFF7ACCE98200002300000000045E41 378A653E337785B8C45169C4E5FC60C7EBFF53BBDFFF47B0D4FF3CA4C8FF3099 BDFF2890B4FF2990B5FF349CC0FF57B5D5FD87BBCC7700002300000023002C23 1A1D5132298A70B1C6716AD2F6FF60C7EAFF5CB7D3FF4FABC7FF42A1C0FF3B9B B9FF3995B0FF3892AFFF369CBFFF4EB6DAFF7BCEE9810000230000000004704E 44966C42379A7ABBCE715DB8D2FF50B2D4FF49B3D8FF44B0D4FF41A8CDFF39A0 C4FF349DC2FF35A0C6FF40A5C6FF4FACC8FF7ECAE48600002300000000056244 3BB15030289F749DA8536CCDEEFB5FC7EBFF53BBDFFF47B0D4FF3CA4C8FF3099 BDFF2890B4FF2990B5FF349CC0FF55B6D8FD82C0CD6C00002300000023006446 3D96472C245D7BC4DD6C6AD2F6FF60BDD9FF4FB0CDFF4AAAC8FF4CA8C4FF49A4 C1FF3D9AB8FF3697B6FF409DBBFF4EB6DAFF7ACCE98200002300644E46806848 3F8E55352D7E84C5D96A5BBAD9FC59BEE1FF59B9DBFF50B1D3FF3CA4C8FF3099 BDFF3193B5FF3999BBFF40A4C7FF50AFCFFD7CC3D787000023006B524A7C704C 45895C392D6C7FC3DA4F6CD2F5FE5FC7EBFF53BBDFFF47B0D4FF3CA4C8FF3099 BDFF2890B4FF2991B5FF349CC0FF4FB6DAFF82CDE56F00002300000000063622 1B264D2E28747DC6DF6C6BCCEBFF49AFCFFF3BA6C9FF34A2C5FF2E9EC3FF2D9D C2FF2D9CBFFF2F9BBEFF369EC0FF50B2D2FF79CCEA8200002300000000096242 3ABC523228A47AA4B35537A2C3F3189FCFFF189FCFFF189FCFFF189FCFFF189F CFFF189FCFFF189FCFFF189FCFFF2E9FC4F77BB8C86900002300000023007B53 4966674034941A00000A71A1A2243A9FBD9E319FC1BC2E9FC3D32B9EC4EA2B9F C3EC2D9FC3D6309FC3BF37A0C0A45EA1AD310000230000002300 } TabShowGlyph = True TabButtonLayout = blGlyphLeft end object GradTabPage1: TGradTabPage Left = 2 Height = 467 Top = 22 Width = 640 PageIndex = 0 Caption = 'Some Memo' ShowCloseButton = True Color = clGrayText TabColor = clGreen TabTextAlignment = taLeftJustify TabGlyph.Data = { 36040000424D3604000000000000360000002800000010000000100000000100 20000000000000040000640000006400000000000000000000006E554E8D704E 44A6683F35A51C0E0E1286C6DC2D6BC2E1995FBCDDB855B4D4D24CA9CAE843A0 C0EA3E9CBCD5429EBFBC50A8C79F79B9D03B0000230000002300664E4982593D 37706D4237706186964470D0F2F65FC7EBFF53BBDFFF47B0D4FF3CA4C8FF3099 BDFF2890B4FF2990B5FF349CC0FF55B7D9FA85C9E14F00002300513C36266E4B 428E4C2D266B76BBD26F6BD2F5FF5DBAD5FF51AFCDFF52ACC8FF4AA8C7FF45A3 C3FF469FBCFF3D99B8FF409EBBFF4FB5D9FF7ACDEB820000230000000006583E 357C603A30B57BAFC16D5EBBDBFC5EC1E3FF5ABBDCFF47B0D4FF3CA4C8FF3099 BDFF2890B4FF3395B6FF42A2C4FF54B1D1FD7EC0D28800002300000023006948 3E835F39308E85CCE65A6BD2F6FF5FC7EBFF53BBDFFF47B0D4FF44A4C3FF3A9A B7FF2890B4FF2990B5FF349CC0FF4EB6DAFF7DCCE67800002300000000075E3F 386D5F382E6974B7CD7268C5E2FF55B0CDFF4EAFCEFF4AABCDFF43A9CCFF3DA3 C7FF3DA0C1FF40A1C1FF49A4C3FF51AFCDFF7ACCE98200002300000000045E41 378A653E337785B8C45169C4E5FC60C7EBFF53BBDFFF47B0D4FF3CA4C8FF3099 BDFF2890B4FF2990B5FF349CC0FF57B5D5FD87BBCC7700002300000023002C23 1A1D5132298A70B1C6716AD2F6FF60C7EAFF5CB7D3FF4FABC7FF42A1C0FF3B9B B9FF3995B0FF3892AFFF369CBFFF4EB6DAFF7BCEE9810000230000000004704E 44966C42379A7ABBCE715DB8D2FF50B2D4FF49B3D8FF44B0D4FF41A8CDFF39A0 C4FF349DC2FF35A0C6FF40A5C6FF4FACC8FF7ECAE48600002300000000056244 3BB15030289F749DA8536CCDEEFB5FC7EBFF53BBDFFF47B0D4FF3CA4C8FF3099 BDFF2890B4FF2990B5FF349CC0FF55B6D8FD82C0CD6C00002300000023006446 3D96472C245D7BC4DD6C6AD2F6FF60BDD9FF4FB0CDFF4AAAC8FF4CA8C4FF49A4 C1FF3D9AB8FF3697B6FF409DBBFF4EB6DAFF7ACCE98200002300644E46806848 3F8E55352D7E84C5D96A5BBAD9FC59BEE1FF59B9DBFF50B1D3FF3CA4C8FF3099 BDFF3193B5FF3999BBFF40A4C7FF50AFCFFD7CC3D787000023006B524A7C704C 45895C392D6C7FC3DA4F6CD2F5FE5FC7EBFF53BBDFFF47B0D4FF3CA4C8FF3099 BDFF2890B4FF2991B5FF349CC0FF4FB6DAFF82CDE56F00002300000000063622 1B264D2E28747DC6DF6C6BCCEBFF49AFCFFF3BA6C9FF34A2C5FF2E9EC3FF2D9D C2FF2D9CBFFF2F9BBEFF369EC0FF50B2D2FF79CCEA8200002300000000096242 3ABC523228A47AA4B35537A2C3F3189FCFFF189FCFFF189FCFFF189FCFFF189F CFFF189FCFFF189FCFFF189FCFFF2E9FC4F77BB8C86900002300000023007B53 4966674034941A00000A71A1A2243A9FBD9E319FC1BC2E9FC3D32B9EC4EA2B9F C3EC2D9FC3D6309FC3BF37A0C0A45EA1AD310000230000002300 } TabShowGlyph = True TabButtonLayout = blGlyphLeft object Memo1: TMemo Left = 312 Height = 467 Top = 0 Width = 328 Align = alRight Lines.Strings = ( 'Some Memo' 'alRight' ) TabOrder = 0 end end end end object Panel2: TPanel Left = 646 Height = 493 Top = 0 Width = 238 Align = alRight ClientHeight = 493 ClientWidth = 238 TabOrder = 1 object Label1: TLabel Left = 16 Height = 16 Top = 160 Width = 57 Caption = 'TabHeight' ParentColor = False end object ComboBox1: TComboBox Left = 16 Height = 23 Top = 16 Width = 100 ItemHeight = 15 OnChange = ComboBox1Change Style = csDropDownList TabOrder = 0 end object RadioGroup1: TRadioGroup Left = 128 Height = 113 Top = 16 Width = 100 AutoFill = True Caption = 'Tab Position' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 113 ClientWidth = 100 ItemIndex = 0 Items.Strings = ( 'tpTop' 'tpBottom' 'tpLeft' 'tpRight' ) OnClick = RadioGroup1Click TabOrder = 1 end object CheckBox1: TCheckBox Left = 16 Height = 16 Top = 112 Width = 100 AutoSize = False Caption = 'Long Tabs' OnClick = CheckBox1Click TabOrder = 2 end object NewPageBtn: TGradButton Left = 16 Height = 25 Top = 48 Width = 100 Caption = 'New Page' Font.Color = clWhite OnClick = NewPageBtnClick TabOrder = 3 TabStop = True NormalBlend = 0.5 OverBlend = 0.653 BaseColor = clBlue Color = clBlue NormalBlendColor = clWhite OverBlendColor = clSilver BackgroundColor = clBtnFace ShowFocusBorder = True ShowGlyph = False GlyphBackgroundColor = clWhite ClickColor = clBlue OwnerBackgroundDraw = False AutoWidthBorderSpacing = 15 AutoHeightBorderSpacing = 15 end object DeleteBtn: TGradButton Left = 16 Height = 25 Top = 80 Width = 100 Caption = 'Delete' Font.Color = clWhite OnClick = DeleteBtnClick TabOrder = 4 TabStop = True NormalBlend = 0.5 OverBlend = 0.653 BaseColor = clBlue Color = clBlue NormalBlendColor = clWhite OverBlendColor = clSilver BackgroundColor = clBtnFace ShowFocusBorder = True ShowGlyph = False GlyphBackgroundColor = clWhite ClickColor = clBlue OwnerBackgroundDraw = False AutoWidthBorderSpacing = 15 AutoHeightBorderSpacing = 15 end object SpinEdit2: TSpinEdit Left = 16 Height = 23 Top = 176 Width = 100 OnEditingDone = SpinEdit2EditingDone TabOrder = 5 end object Edit1: TEdit Left = 16 Height = 23 Top = 136 Width = 72 TabOrder = 6 Text = 'Edit1' end object GradButton1: TGradButton Left = 90 Height = 22 Top = 136 Width = 26 Caption = 'set' Font.Color = clWhite OnClick = GradButton1Click TabOrder = 7 TabStop = True NormalBlend = 0.5 OverBlend = 0.653 BaseColor = clBlue Color = clBlue NormalBlendColor = clWhite OverBlendColor = clSilver BackgroundColor = clBtnFace ShowFocusBorder = True ShowGlyph = False GlyphBackgroundColor = clWhite ClickColor = clBlue OwnerBackgroundDraw = False AutoWidthBorderSpacing = 15 AutoHeightBorderSpacing = 15 end object CheckGroup1: TCheckGroup Left = 128 Height = 105 Top = 143 Width = 100 AutoFill = True Caption = 'Scroll Buttons' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 Items.Strings = ( 'Auto' 'LeftTop' 'RightBottom' ) OnClick = CheckGroup1Click OnItemClick = CheckGroup1ItemClick TabOrder = 8 Data = { 03000000030202 } end object RadioGroup2: TRadioGroup Left = 130 Height = 105 Top = 256 Width = 100 AutoFill = True Caption = 'Tab Button Layout' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 105 ClientWidth = 100 ItemIndex = 0 Items.Strings = ( 'blGlyphLeft' 'blGlyphBottom' 'blGlyphRight' 'blGlyphTop' ) OnClick = RadioGroup2Click TabOrder = 9 end object Label2: TLabel Left = 18 Height = 16 Top = 208 Width = 26 Caption = 'Style' ParentColor = False end object ComboBox2: TComboBox Left = 16 Height = 23 Top = 225 Width = 100 AutoDropDown = True ItemHeight = 15 ItemIndex = 0 Items.Strings = ( 'Standard' 'Vista' 'VistaBlue' ) OnChange = ComboBox2Change Style = csDropDownList TabOrder = 10 Text = 'Standard' end object CheckBox2: TCheckBox Left = 16 Height = 19 Top = 256 Width = 112 Caption = 'Rounded Corners' OnChange = CheckBox2Change TabOrder = 11 end end object PopupMenu1: TPopupMenu left = 734 top = 397 object MenuItem1: TMenuItem Tag = 1212312 Caption = 'New Item1' end end object ImageList1: TImageList left = 656 top = 397 Bitmap = { 4C69010000001000000010000000000023007B534966674034941A00000A71A1 A2243A9FBD9E319FC1BC2E9FC3D32B9EC4EA2B9FC3EC2D9FC3D6309FC3BF37A0 C0A45EA1AD3100002300000023000000000962423ABC523228A47AA4B35537A2 C3F3189FCFFF189FCFFF189FCFFF189FCFFF189FCFFF189FCFFF189FCFFF189F CFFF2E9FC4F77BB8C869000023000000000636221B264D2E28747DC6DF6C6BCC EBFF49AFCFFF3BA6C9FF34A2C5FF2E9EC3FF2D9DC2FF2D9CBFFF2F9BBEFF369E C0FF50B2D2FF79CCEA82000023006B524A7C704C45895C392D6C7FC3DA4F6CD2 F5FE5FC7EBFF53BBDFFF47B0D4FF3CA4C8FF3099BDFF2890B4FF2991B5FF349C C0FF4FB6DAFF82CDE56F00002300644E468068483F8E55352D7E84C5D96A5BBA D9FC59BEE1FF59B9DBFF50B1D3FF3CA4C8FF3099BDFF3193B5FF3999BBFF40A4 C7FF50AFCFFD7CC3D787000023000000230064463D96472C245D7BC4DD6C6AD2 F6FF60BDD9FF4FB0CDFF4AAAC8FF4CA8C4FF49A4C1FF3D9AB8FF3697B6FF409D BBFF4EB6DAFF7ACCE982000023000000000562443BB15030289F749DA8536CCD EEFB5FC7EBFF53BBDFFF47B0D4FF3CA4C8FF3099BDFF2890B4FF2990B5FF349C C0FF55B6D8FD82C0CD6C0000230000000004704E44966C42379A7ABBCE715DB8 D2FF50B2D4FF49B3D8FF44B0D4FF41A8CDFF39A0C4FF349DC2FF35A0C6FF40A5 C6FF4FACC8FF7ECAE48600002300000023002C231A1D5132298A70B1C6716AD2 F6FF60C7EAFF5CB7D3FF4FABC7FF42A1C0FF3B9BB9FF3995B0FF3892AFFF369C BFFF4EB6DAFF7BCEE98100002300000000045E41378A653E337785B8C45169C4 E5FC60C7EBFF53BBDFFF47B0D4FF3CA4C8FF3099BDFF2890B4FF2990B5FF349C C0FF57B5D5FD87BBCC7700002300000000075E3F386D5F382E6974B7CD7268C5 E2FF55B0CDFF4EAFCEFF4AABCDFF43A9CCFF3DA3C7FF3DA0C1FF40A1C1FF49A4 C3FF51AFCDFF7ACCE982000023000000230069483E835F39308E85CCE65A6BD2 F6FF5FC7EBFF53BBDFFF47B0D4FF44A4C3FF3A9AB7FF2890B4FF2990B5FF349C C0FF4EB6DAFF7DCCE6780000230000000006583E357C603A30B57BAFC16D5EBB DBFC5EC1E3FF5ABBDCFF47B0D4FF3CA4C8FF3099BDFF2890B4FF3395B6FF42A2 C4FF54B1D1FD7EC0D28800002300513C36266E4B428E4C2D266B76BBD26F6BD2 F5FF5DBAD5FF51AFCDFF52ACC8FF4AA8C7FF45A3C3FF469FBCFF3D99B8FF409E BBFF4FB5D9FF7ACDEB8200002300664E4982593D37706D4237706186964470D0 F2F65FC7EBFF53BBDFFF47B0D4FF3CA4C8FF3099BDFF2890B4FF2990B5FF349C C0FF55B7D9FA85C9E14F000023006E554E8D704E44A6683F35A51C0E0E1286C6 DC2D6BC2E1995FBCDDB855B4D4D24CA9CAE843A0C0EA3E9CBCD5429EBFBC50A8 C79F79B9D03B0000230000002300 } end end