ScrollToTab-Issue solved
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@593 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
eugene1
parent
ef371ad0d4
commit
24627399e9
@ -1,31 +1,31 @@
|
||||
object Form1: TForm1
|
||||
Left = 300
|
||||
Height = 490
|
||||
Top = 146
|
||||
Left = 292
|
||||
Height = 492
|
||||
Top = 130
|
||||
Width = 884
|
||||
Caption = 'Form1'
|
||||
ClientHeight = 490
|
||||
ClientHeight = 492
|
||||
ClientWidth = 884
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
ParentFont = False
|
||||
LCLVersion = '0.9.27'
|
||||
object Panel1: TPanel
|
||||
Height = 490
|
||||
Height = 492
|
||||
Width = 646
|
||||
Align = alClient
|
||||
Caption = 'Panel1'
|
||||
ClientHeight = 490
|
||||
ClientHeight = 492
|
||||
ClientWidth = 646
|
||||
TabOrder = 0
|
||||
object GradTabControl1: TGradTabControl
|
||||
Left = 1
|
||||
Height = 488
|
||||
Height = 490
|
||||
Top = 1
|
||||
Width = 644
|
||||
Align = alClient
|
||||
ControlStyle = [csAcceptsControls]
|
||||
ActivePage = GradTabPage3
|
||||
ControlStyle = [csAcceptsControls, csOwnedChildsSelectable]
|
||||
ActivePage = GradTabPage2
|
||||
OnTabButtonMouseDown = GradTabControl1TabButtonMouseDown
|
||||
OnTabButtonMouseUp = GradTabControl1TabButtonMouseUp
|
||||
OnTabButtonMouseMove = GradTabControl1TabButtonMouseMove
|
||||
@ -34,20 +34,56 @@ object Form1: TForm1
|
||||
OnMouseDown = GradTabControl1MouseDown
|
||||
OnMouseWheelUp = GradTabControl1MouseWheelUp
|
||||
OnMouseWheelDown = GradTabControl1MouseWheelDown
|
||||
PageIndex = 3
|
||||
OnPagesBarDragOver = nil
|
||||
PageIndex = 1
|
||||
TabHeight = 20
|
||||
MoveIncrement = 1
|
||||
OnPageChanged = GradTabControl1PageChanged
|
||||
Images = ImageList1
|
||||
object GradTabPage1: TGradTabPage
|
||||
Left = 2
|
||||
Height = 464
|
||||
Top = 22
|
||||
Width = 640
|
||||
PageIndex = 1
|
||||
Caption = 'abc'
|
||||
Color = clGrayText
|
||||
TabColor = clBlue
|
||||
TabTextAlignment = taCenter
|
||||
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
|
||||
}
|
||||
object ToggleBox2: TToggleBox
|
||||
Left = 357
|
||||
Height = 23
|
||||
@ -57,15 +93,150 @@ object Form1: TForm1
|
||||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
object GradTabPage2: TGradTabPage
|
||||
object GradTabPage4: TGradTabPage
|
||||
Left = 2
|
||||
Height = 464
|
||||
Top = 22
|
||||
Width = 640
|
||||
PageIndex = 2
|
||||
Caption = 'äöü-test'
|
||||
TabColor = clBlue
|
||||
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
|
||||
}
|
||||
end
|
||||
object GradTabPage3: TGradTabPage
|
||||
Left = 2
|
||||
Height = 466
|
||||
Top = 22
|
||||
Width = 640
|
||||
PageIndex = 3
|
||||
Caption = 'GradTabPage3'
|
||||
TabColor = clBlue
|
||||
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
|
||||
}
|
||||
object Button3: TButton
|
||||
Left = 99
|
||||
Height = 25
|
||||
Top = 71
|
||||
Width = 75
|
||||
Caption = 'Button3'
|
||||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
object GradTabPage2: TGradTabPage
|
||||
Left = 2
|
||||
Height = 466
|
||||
Top = 22
|
||||
Width = 640
|
||||
PageIndex = 1
|
||||
Caption = 'GradTabPage2'
|
||||
TabPopupMenu = PopupMenu1
|
||||
TabColor = clBlue
|
||||
TabTextAlignment = taCenter
|
||||
TabColor = clGreen
|
||||
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
|
||||
object PageControl1: TPageControl
|
||||
Left = 173
|
||||
Height = 200
|
||||
@ -103,42 +274,14 @@ object Form1: TForm1
|
||||
TabOrder = 2
|
||||
end
|
||||
end
|
||||
object GradTabPage4: TGradTabPage
|
||||
Left = 2
|
||||
Height = 464
|
||||
Top = 22
|
||||
Width = 640
|
||||
PageIndex = 2
|
||||
Caption = 'äöü-test'
|
||||
TabColor = clBlue
|
||||
TabTextAlignment = taCenter
|
||||
end
|
||||
object GradTabPage3: TGradTabPage
|
||||
Left = 2
|
||||
Height = 464
|
||||
Top = 22
|
||||
Width = 640
|
||||
PageIndex = 3
|
||||
Caption = 'GradTabPage3'
|
||||
TabColor = clGreen
|
||||
TabTextAlignment = taCenter
|
||||
object Button3: TButton
|
||||
Left = 99
|
||||
Height = 25
|
||||
Top = 71
|
||||
Width = 75
|
||||
Caption = 'Button3'
|
||||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
object Panel2: TPanel
|
||||
Left = 646
|
||||
Height = 490
|
||||
Height = 492
|
||||
Width = 238
|
||||
Align = alRight
|
||||
ClientHeight = 490
|
||||
ClientHeight = 492
|
||||
ClientWidth = 238
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
@ -155,6 +298,7 @@ object Form1: TForm1
|
||||
Top = 16
|
||||
Width = 100
|
||||
ItemHeight = 13
|
||||
MaxLength = -1
|
||||
OnChange = ComboBox1Change
|
||||
Style = csDropDownList
|
||||
TabOrder = 0
|
||||
@ -305,7 +449,7 @@ object Form1: TForm1
|
||||
OnItemClick = CheckGroup1ItemClick
|
||||
TabOrder = 8
|
||||
Data = {
|
||||
03000000020202
|
||||
03000000030202
|
||||
}
|
||||
end
|
||||
end
|
||||
@ -317,6 +461,7 @@ object Form1: TForm1
|
||||
end
|
||||
end
|
||||
object ImageList1: TImageList
|
||||
OnChange = nil
|
||||
left = 656
|
||||
top = 397
|
||||
Bitmap = {
|
||||
|
||||
@ -1,145 +1,329 @@
|
||||
{ Das ist eine automatisch erzeugte Lazarus-Ressourcendatei }
|
||||
|
||||
LazarusResources.Add('TForm1','FORMDATA',[
|
||||
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3','#1#6'Height'#3#234#1#3'Top'#3#146#0#5'W'
|
||||
+'idth'#3't'#3#7'Caption'#6#5'Form1'#12'ClientHeight'#3#234#1#11'ClientWidth'
|
||||
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'$'#1#6'Height'#3#236#1#3'Top'#3#130#0#5'W'
|
||||
+'idth'#3't'#3#7'Caption'#6#5'Form1'#12'ClientHeight'#3#236#1#11'ClientWidth'
|
||||
+#3't'#3#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#10'Paren'
|
||||
+'tFont'#8#10'LCLVersion'#6#6'0.9.27'#0#6'TPanel'#6'Panel1'#6'Height'#3#234#1
|
||||
+'tFont'#8#10'LCLVersion'#6#6'0.9.27'#0#6'TPanel'#6'Panel1'#6'Height'#3#236#1
|
||||
+#5'Width'#3#134#2#5'Align'#7#8'alClient'#7'Caption'#6#6'Panel1'#12'ClientHei'
|
||||
+'ght'#3#234#1#11'ClientWidth'#3#134#2#8'TabOrder'#2#0#0#15'TGradTabControl'
|
||||
+#15'GradTabControl1'#4'Left'#2#1#6'Height'#3#232#1#3'Top'#2#1#5'Width'#3#132
|
||||
+#2#5'Align'#7#8'alClient'#12'ControlStyle'#11#17'csAcceptsControls'#0#10'Act'
|
||||
+'ivePage'#7#12'GradTabPage3'#20'OnTabButtonMouseDown'#7'!GradTabControl1TabB'
|
||||
+'uttonMouseDown'#18'OnTabButtonMouseUp'#7#31'GradTabControl1TabButtonMouseUp'
|
||||
+#20'OnTabButtonMouseMove'#7'!GradTabControl1TabButtonMouseMove'#10'OnDragDro'
|
||||
+'p'#7#23'GradTabControl1DragDrop'#10'OnDragOver'#7#23'GradTabControl1DragOve'
|
||||
+'r'#11'OnMouseDown'#7#24'GradTabControl1MouseDown'#14'OnMouseWheelUp'#7#27'G'
|
||||
+'radTabControl1MouseWheelUp'#16'OnMouseWheelDown'#7#29'GradTabControl1MouseW'
|
||||
+'heelDown'#9'PageIndex'#2#3#9'TabHeight'#2#20#13'MoveIncrement'#2#1#13'OnPag'
|
||||
+'eChanged'#7#26'GradTabControl1PageChanged'#0#12'TGradTabPage'#12'GradTabPag'
|
||||
+'e1'#4'Left'#2#2#6'Height'#3#208#1#3'Top'#2#22#5'Width'#3#128#2#9'PageIndex'
|
||||
+#2#1#7'Caption'#6#3'abc'#5'Color'#7#10'clGrayText'#8'TabColor'#7#6'clBlue'#16
|
||||
+'TabTextAlignment'#7#8'taCenter'#0#10'TToggleBox'#10'ToggleBox2'#4'Left'#3'e'
|
||||
+#1#6'Height'#2#23#3'Top'#3#155#0#5'Width'#2'Z'#7'Caption'#6#10'ToggleBox2'#8
|
||||
+'TabOrder'#2#0#0#0#0#12'TGradTabPage'#12'GradTabPage2'#4'Left'#2#2#6'Height'
|
||||
+#3#208#1#3'Top'#2#22#5'Width'#3#128#2#7'Caption'#6#12'GradTabPage2'#12'TabPo'
|
||||
+'pupMenu'#7#10'PopupMenu1'#8'TabColor'#7#6'clBlue'#16'TabTextAlignment'#7#8
|
||||
+'taCenter'#0#12'TPageControl'#12'PageControl1'#4'Left'#3#173#0#6'Height'#3
|
||||
+#200#0#3'Top'#2'9'#5'Width'#3#200#0#10'ActivePage'#7#9'TabSheet3'#8'TabIndex'
|
||||
+#2#2#8'TabOrder'#2#0#10'OnDragDrop'#7#20'PageControl1DragDrop'#10'OnDragOver'
|
||||
+#7#20'PageControl1DragOver'#0#9'TTabSheet'#9'TabSheet1'#7'Caption'#6#9'TabSh'
|
||||
+'eet1'#0#0#9'TTabSheet'#9'TabSheet2'#7'Caption'#6#9'TabSheet2'#0#0#9'TTabShe'
|
||||
+'et'#9'TabSheet3'#7'Caption'#6#9'TabSheet3'#0#0#0#7'TButton'#7'Button2'#4'Le'
|
||||
+'ft'#2'/'#6'Height'#2#25#3'Top'#2#28#5'Width'#2'K'#7'Caption'#6#7'Button2'#8
|
||||
+'TabOrder'#2#1#0#0#6'TPanel'#6'Panel3'#4'Left'#3#173#1#6'Height'#2'2'#3'Top'
|
||||
+#2'Y'#5'Width'#3#170#0#7'Caption'#6#6'Panel3'#8'TabOrder'#2#2#0#0#0#12'TGrad'
|
||||
+'TabPage'#12'GradTabPage4'#4'Left'#2#2#6'Height'#3#208#1#3'Top'#2#22#5'Width'
|
||||
+#3#128#2#9'PageIndex'#2#2#7'Caption'#6#11#195#164#195#182#195#188'-test'#8'T'
|
||||
+'abColor'#7#6'clBlue'#16'TabTextAlignment'#7#8'taCenter'#0#0#12'TGradTabPage'
|
||||
+#12'GradTabPage3'#4'Left'#2#2#6'Height'#3#208#1#3'Top'#2#22#5'Width'#3#128#2
|
||||
+#9'PageIndex'#2#3#7'Caption'#6#12'GradTabPage3'#8'TabColor'#7#7'clGreen'#16
|
||||
+'TabTextAlignment'#7#8'taCenter'#0#7'TButton'#7'Button3'#4'Left'#2'c'#6'Heig'
|
||||
+'ht'#2#25#3'Top'#2'G'#5'Width'#2'K'#7'Caption'#6#7'Button3'#8'TabOrder'#2#0#0
|
||||
+#0#0#0#0#6'TPanel'#6'Panel2'#4'Left'#3#134#2#6'Height'#3#234#1#5'Width'#3#238
|
||||
+#0#5'Align'#7#7'alRight'#12'ClientHeight'#3#234#1#11'ClientWidth'#3#238#0#8
|
||||
+'TabOrder'#2#1#0#6'TLabel'#6'Label1'#4'Left'#2#16#6'Height'#2#14#3'Top'#3#160
|
||||
+#0#5'Width'#2'2'#7'Caption'#6#9'TabHeight'#11'ParentColor'#8#0#0#9'TComboBox'
|
||||
+#9'ComboBox1'#4'Left'#2#16#6'Height'#2#21#3'Top'#2#16#5'Width'#2'd'#10'ItemH'
|
||||
+'eight'#2#13#8'OnChange'#7#15'ComboBox1Change'#5'Style'#7#14'csDropDownList'
|
||||
+#8'TabOrder'#2#0#0#0#11'TRadioGroup'#11'RadioGroup1'#4'Left'#3#128#0#6'Heigh'
|
||||
+'t'#2'q'#3'Top'#2#16#5'Width'#2'd'#8'AutoFill'#9#7'Caption'#6#12'Tab Positio'
|
||||
+'n'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6
|
||||
+#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSi'
|
||||
+'zing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkH'
|
||||
+'orizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScal'
|
||||
+'eChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'Chil'
|
||||
+'dSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'_'#11'ClientWidth'#2'`'#9'I'
|
||||
+'temIndex'#2#0#13'Items.Strings'#1#6#5'tpTop'#6#8'tpBottom'#6#6'tpLeft'#6#7
|
||||
+'tpRight'#0#7'OnClick'#7#16'RadioGroup1Click'#8'TabOrder'#2#1#0#0#9'TCheckBo'
|
||||
+'x'#9'CheckBox1'#4'Left'#2#16#6'Height'#2#16#3'Top'#2'p'#5'Width'#2'd'#8'Aut'
|
||||
+'oSize'#8#7'Caption'#6#9'Long Tabs'#7'OnClick'#7#14'CheckBox1Click'#8'TabOrd'
|
||||
+'er'#2#2#0#0#11'TGradButton'#10'NewPageBtn'#4'Left'#2#16#6'Height'#2#25#3'To'
|
||||
+'p'#2'0'#5'Width'#2'd'#7'Caption'#6#8'New Page'#10'Font.Color'#7#7'clWhite'#7
|
||||
+'OnClick'#7#15'NewPageBtnClick'#8'TabOrder'#2#3#7'TabStop'#9#11'NormalBlend'
|
||||
+#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'B'
|
||||
+'aseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'
|
||||
+#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#15'Show'
|
||||
+'FocusBorder'#9#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clB'
|
||||
,'lue'#22'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpacing'#2#15#0#0#11
|
||||
+'TGradButton'#9'DeleteBtn'#4'Left'#2#16#6'Height'#2#25#3'Top'#2'P'#5'Width'#2
|
||||
+'d'#7'Caption'#6#6'Delete'#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#14'Delet'
|
||||
+'eBtnClick'#8'TabOrder'#2#4#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128
|
||||
+#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'
|
||||
+#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7
|
||||
+#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#20'Gly'
|
||||
+'phBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#22'AutoWidthBord'
|
||||
+'erSpacing'#2#15#23'AutoHeightBorderSpacing'#2#15#0#0#9'TSpinEdit'#9'SpinEdi'
|
||||
+'t2'#4'Left'#2#16#6'Height'#2#19#3'Top'#3#176#0#5'Width'#2'd'#13'OnEditingDo'
|
||||
+'ne'#7#20'SpinEdit2EditingDone'#8'TabOrder'#2#5#0#0#5'TEdit'#5'Edit1'#4'Left'
|
||||
+#2#16#6'Height'#2#19#3'Top'#3#136#0#5'Width'#2'H'#8'TabOrder'#2#6#4'Text'#6#5
|
||||
+'Edit1'#0#0#11'TGradButton'#11'GradButton1'#4'Left'#2'Z'#6'Height'#2#19#3'To'
|
||||
+'p'#3#136#0#5'Width'#2#26#7'Caption'#6#3'set'#10'Font.Color'#7#7'clWhite'#7
|
||||
+'OnClick'#7#16'GradButton1Click'#8'TabOrder'#2#7#7'TabStop'#9#11'NormalBlend'
|
||||
+#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'B'
|
||||
+'aseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'
|
||||
+#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#15'Show'
|
||||
+'FocusBorder'#9#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clB'
|
||||
+'lue'#22'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpacing'#2#15#0#0#11
|
||||
+'TCheckGroup'#11'CheckGroup1'#4'Left'#3#128#0#6'Height'#2'i'#3'Top'#3#143#0#5
|
||||
+'Width'#2'd'#8'AutoFill'#9#7'Caption'#6#14'Scroll Buttons'#28'ChildSizing.Le'
|
||||
+'ftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.Enl'
|
||||
+'argeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertic'
|
||||
+'al'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'cr'
|
||||
+'sScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildS'
|
||||
+'izing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPe'
|
||||
+'rLine'#2#1#13'Items.Strings'#1#6#4'Auto'#6#7'LeftTop'#6#11'RightBottom'#0#7
|
||||
+'OnClick'#7#16'CheckGroup1Click'#11'OnItemClick'#7#20'CheckGroup1ItemClick'#8
|
||||
+'TabOrder'#2#8#4'Data'#10#7#0#0#0#3#0#0#0#2#2#2#0#0#0#10'TPopupMenu'#10'Popu'
|
||||
+'pMenu1'#4'left'#3#222#2#3'top'#3#141#1#0#9'TMenuItem'#9'MenuItem1'#7'Captio'
|
||||
+'n'#6#9'New Item1'#0#0#0#10'TImageList'#10'ImageList1'#4'left'#3#144#2#3'top'
|
||||
+#3#141#1#6'Bitmap'#10#14#4#0#0'Li'#1#0#0#0#16#0#0#0#16#0#0#0#0#0'#'#0'{SIfg@'
|
||||
+'4'#148#26#0#0#10'q'#161#162'$:'#159#189#158'1'#159#193#188'.'#159#195#211'+'
|
||||
+#158#196#234'+'#159#195#236'-'#159#195#214'0'#159#195#191'7'#160#192#164'^'
|
||||
+#161#173'1'#0#0'#'#0#0#0'#'#0#0#0#0#9'bB:'#188'R2('#164'z'#164#179'U7'#162
|
||||
+#195#243#24#159#207#255#24#159#207#255#24#159#207#255#24#159#207#255#24#159
|
||||
+#207#255#24#159#207#255#24#159#207#255#24#159#207#255'.'#159#196#247'{'#184
|
||||
+#200'i'#0#0'#'#0#0#0#0#6'6"'#27'&M.(t}'#198#223'lk'#204#235#255'I'#175#207
|
||||
+#255';'#166#201#255'4'#162#197#255'.'#158#195#255'-'#157#194#255'-'#156#191
|
||||
+#255'/'#155#190#255'6'#158#192#255'P'#178#210#255'y'#204#234#130#0#0'#'#0'kR'
|
||||
+'J|pLE'#137'\9-l'#195#218'Ol'#210#245#254'_'#199#235#255'S'#187#223#255'G'
|
||||
+#176#212#255'<'#164#200#255'0'#153#189#255'('#144#180#255')'#145#181#255'4'
|
||||
+#156#192#255'O'#182#218#255#130#205#229'o'#0#0'#'#0'dNF'#128'hH?'#142'U5-~'
|
||||
+#132#197#217'j['#186#217#252'Y'#190#225#255'Y'#185#219#255'P'#177#211#255'<'
|
||||
+#164#200#255'0'#153#189#255'1'#147#181#255'9'#153#187#255'@'#164#199#255'P'
|
||||
+#175#207#253'|'#195#215#135#0#0'#'#0#0#0'#'#0'dF='#150'G,$]{'#196#221'lj'#210
|
||||
+#246#255'`'#189#217#255'O'#176#205#255'J'#170#200#255'L'#168#196#255'I'#164
|
||||
+#193#255'='#154#184#255'6'#151#182#255'@'#157#187#255'N'#182#218#255'z'#204
|
||||
+#233#130#0#0'#'#0#0#0#0#5'bD;'#177'P0('#159't'#157#168'Sl'#205#238#251'_'#199
|
||||
+#235#255'S'#187#223#255'G'#176#212#255'<'#164#200#255'0'#153#189#255'('#144
|
||||
+#180#255')'#144#181#255'4'#156#192#255'U'#182#216#253#130#192#205'l'#0#0'#'#0
|
||||
+#0#0#0#4'pND'#150'lB7'#154'z'#187#206'q]'#184#210#255'P'#178#212#255'I'#179
|
||||
+#216#255'D'#176#212#255'A'#168#205#255'9'#160#196#255'4'#157#194#255'5'#160
|
||||
+#198#255'@'#165#198#255'O'#172#200#255'~'#202#228#134#0#0'#'#0#0#0'#'#0',#'
|
||||
+#26#29'Q2)'#138'p'#177#198'qj'#210#246#255'`'#199#234#255'\'#183#211#255'O'
|
||||
+#171#199#255'B'#161#192#255';'#155#185#255'9'#149#176#255'8'#146#175#255'6'
|
||||
+#156#191#255'N'#182#218#255'{'#206#233#129#0#0'#'#0#0#0#0#4'^A7'#138'e>3w'
|
||||
+#133#184#196'Qi'#196#229#252'`'#199#235#255'S'#187#223#255'G'#176#212#255'<'
|
||||
+#164#200#255'0'#153#189#255'('#144#180#255')'#144#181#255'4'#156#192#255'W'
|
||||
+#181#213#253#135#187#204'w'#0#0'#'#0#0#0#0#7'^?8m_8.it'#183#205'rh'#197#226
|
||||
+'ght'#3#236#1#11'ClientWidth'#3#134#2#8'TabOrder'#2#0#0#15'TGradTabControl'
|
||||
+#15'GradTabControl1'#4'Left'#2#1#6'Height'#3#234#1#3'Top'#2#1#5'Width'#3#132
|
||||
+#2#5'Align'#7#8'alClient'#12'ControlStyle'#11#17'csAcceptsControls'#23'csOwn'
|
||||
+'edChildsSelectable'#0#10'ActivePage'#7#12'GradTabPage2'#20'OnTabButtonMouse'
|
||||
+'Down'#7'!GradTabControl1TabButtonMouseDown'#18'OnTabButtonMouseUp'#7#31'Gra'
|
||||
+'dTabControl1TabButtonMouseUp'#20'OnTabButtonMouseMove'#7'!GradTabControl1Ta'
|
||||
+'bButtonMouseMove'#10'OnDragDrop'#7#23'GradTabControl1DragDrop'#10'OnDragOve'
|
||||
+'r'#7#23'GradTabControl1DragOver'#11'OnMouseDown'#7#24'GradTabControl1MouseD'
|
||||
+'own'#14'OnMouseWheelUp'#7#27'GradTabControl1MouseWheelUp'#16'OnMouseWheelDo'
|
||||
+'wn'#7#29'GradTabControl1MouseWheelDown'#18'OnPagesBarDragOver'#13#9'PageInd'
|
||||
+'ex'#2#1#9'TabHeight'#2#20#13'MoveIncrement'#2#1#13'OnPageChanged'#7#26'Grad'
|
||||
+'TabControl1PageChanged'#6'Images'#7#10'ImageList1'#0#12'TGradTabPage'#12'Gr'
|
||||
+'adTabPage1'#4'Left'#2#2#6'Height'#3#208#1#3'Top'#2#22#5'Width'#3#128#2#7'Ca'
|
||||
+'ption'#6#3'abc'#5'Color'#7#10'clGrayText'#8'TabColor'#7#6'clBlue'#13'TabGly'
|
||||
+'ph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0
|
||||
+#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0'nUN'#141
|
||||
+'pND'#166'h?5'#165#28#14#14#18#134#198#220'-k'#194#225#153'_'#188#221#184'U'
|
||||
+#180#212#210'L'#169#202#232'C'#160#192#234'>'#156#188#213'B'#158#191#188'P'
|
||||
+#168#199#159'y'#185#208';'#0#0'#'#0#0#0'#'#0'fNI'#130'Y=7pmB7pa'#134#150'Dp'
|
||||
+#208#242#246'_'#199#235#255'S'#187#223#255'G'#176#212#255'<'#164#200#255'0'
|
||||
+#153#189#255'('#144#180#255')'#144#181#255'4'#156#192#255'U'#183#217#250#133
|
||||
+#201#225'O'#0#0'#'#0'Q<6&nKB'#142'L-&kv'#187#210'ok'#210#245#255']'#186#213
|
||||
+#255'Q'#175#205#255'R'#172#200#255'J'#168#199#255'E'#163#195#255'F'#159#188
|
||||
+#255'='#153#184#255'@'#158#187#255'O'#181#217#255'z'#205#235#130#0#0'#'#0#0#0
|
||||
+#0#6'X>5|`:0'#181'{'#175#193'm^'#187#219#252'^'#193#227#255'Z'#187#220#255'G'
|
||||
+#176#212#255'<'#164#200#255'0'#153#189#255'('#144#180#255'3'#149#182#255'B'
|
||||
+#162#196#255'T'#177#209#253'~'#192#210#136#0#0'#'#0#0#0'#'#0'iH>'#131'_90'
|
||||
+#142#133#204#230'Zk'#210#246#255'_'#199#235#255'S'#187#223#255'G'#176#212#255
|
||||
+'D'#164#195#255':'#154#183#255'('#144#180#255')'#144#181#255'4'#156#192#255
|
||||
+'N'#182#218#255'}'#204#230'x'#0#0'#'#0#0#0#0#7'^?8m_8.it'#183#205'rh'#197#226
|
||||
+#255'U'#176#205#255'N'#175#206#255'J'#171#205#255'C'#169#204#255'='#163#199
|
||||
+#255'='#160#193#255'@'#161#193#255'I'#164#195#255'Q'#175#205#255'z'#204#233
|
||||
+#130#0#0'#'#0#0#0'#'#0'iH>'#131'_90'#142#133#204#230'Zk'#210#246#255'_'#199
|
||||
,#235#255'S'#187#223#255'G'#176#212#255'D'#164#195#255':'#154#183#255'('#144
|
||||
+#180#255')'#144#181#255'4'#156#192#255'N'#182#218#255'}'#204#230'x'#0#0'#'#0
|
||||
+#130#0#0'#'#0#0#0#0#4'^A7'#138'e>3w'#133#184#196'Qi'#196#229#252'`'#199#235
|
||||
+#255'S'#187#223#255'G'#176#212#255'<'#164#200#255'0'#153#189#255'('#144#180
|
||||
+#255')'#144#181#255'4'#156#192#255'W'#181#213#253#135#187#204'w'#0#0'#'#0#0#0
|
||||
+'#'#0',#'#26#29'Q2)'#138'p'#177#198'qj'#210#246#255'`'#199#234#255'\'#183#211
|
||||
+#255'O'#171#199#255'B'#161#192#255';'#155#185#255'9'#149#176#255'8'#146#175
|
||||
+#255'6'#156#191#255'N'#182#218#255'{'#206#233#129#0#0'#'#0#0#0#0#4'pND'#150
|
||||
+'lB7'#154'z'#187#206'q]'#184#210#255'P'#178#212#255'I'#179#216#255'D'#176#212
|
||||
+#255'A'#168#205#255'9'#160#196#255'4'#157#194#255'5'#160#198#255'@'#165#198
|
||||
+#255'O'#172#200#255'~'#202#228#134#0#0'#'#0#0#0#0#5'bD;'#177'P0('#159't'#157
|
||||
+#168'Sl'#205#238#251'_'#199#235#255'S'#187#223#255'G'#176#212#255'<'#164#200
|
||||
+#255'0'#153#189#255'('#144#180#255')'#144#181#255'4'#156#192#255'U'#182#216
|
||||
+#253#130#192#205'l'#0#0'#'#0#0#0'#'#0'dF='#150'G,$]{'#196#221'lj'#210#246#255
|
||||
+'`'#189#217#255'O'#176#205#255'J'#170#200#255'L'#168#196#255'I'#164#193#255
|
||||
+'='#154#184#255'6'#151#182#255'@'#157#187#255'N'#182#218#255'z'#204#233#130#0
|
||||
+#0'#'#0'dNF'#128'hH?'#142'U5-~'#132#197#217'j['#186#217#252'Y'#190#225#255'Y'
|
||||
+#185#219#255'P'#177#211#255'<'#164#200#255'0'#153#189#255'1'#147#181#255'9'
|
||||
+#153#187#255'@'#164#199#255'P'#175#207#253'|'#195#215#135#0#0'#'#0'kRJ|pLE'
|
||||
+#137'\9-l'#195#218'Ol'#210#245#254'_'#199#235#255'S'#187#223#255'G'#176#212
|
||||
+#255'<'#164#200#255'0'#153#189#255'('#144#180#255')'#145#181#255'4'#156#192
|
||||
+#255'O'#182#218#255#130#205#229'o'#0#0'#'#0#0#0#0#6'6"'#27'&M.(t}'#198#223'l'
|
||||
+'k'#204#235#255'I'#175#207#255';'#166#201#255'4'#162#197#255'.'#158#195#255
|
||||
+'-'#157#194#255'-'#156#191#255'/'#155#190#255'6'#158#192#255'P'#178#210#255
|
||||
+'y'#204#234#130#0#0'#'#0#0#0#0#9'bB:'#188'R2('#164'z'#164#179'U7'#162#195#243
|
||||
+#24#159#207#255#24#159#207#255#24#159#207#255#24#159#207#255#24#159#207#255
|
||||
+#24#159#207#255#24#159#207#255#24#159#207#255'.'#159#196#247'{'#184#200'i'#0
|
||||
+#0'#'#0#0#0'#'#0'{SIfg@4'#148#26#0#0#10'q'#161#162'$:'#159#189#158'1'#159#193
|
||||
+#188'.'#159#195#211'+'#158#196#234'+'#159#195#236'-'#159#195#214'0'#159#195
|
||||
,#191'7'#160#192#164'^'#161#173'1'#0#0'#'#0#0#0'#'#0#0#10'TToggleBox'#10'Togg'
|
||||
+'leBox2'#4'Left'#3'e'#1#6'Height'#2#23#3'Top'#3#155#0#5'Width'#2'Z'#7'Captio'
|
||||
+'n'#6#10'ToggleBox2'#8'TabOrder'#2#0#0#0#0#12'TGradTabPage'#12'GradTabPage4'
|
||||
+#4'Left'#2#2#6'Height'#3#208#1#3'Top'#2#22#5'Width'#3#128#2#9'PageIndex'#2#2
|
||||
+#7'Caption'#6#11#195#164#195#182#195#188'-test'#8'TabColor'#7#6'clBlue'#13'T'
|
||||
+'abGlyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0
|
||||
+#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0'nUN'
|
||||
+#141'pND'#166'h?5'#165#28#14#14#18#134#198#220'-k'#194#225#153'_'#188#221#184
|
||||
+'U'#180#212#210'L'#169#202#232'C'#160#192#234'>'#156#188#213'B'#158#191#188
|
||||
+'P'#168#199#159'y'#185#208';'#0#0'#'#0#0#0'#'#0'fNI'#130'Y=7pmB7pa'#134#150
|
||||
+'Dp'#208#242#246'_'#199#235#255'S'#187#223#255'G'#176#212#255'<'#164#200#255
|
||||
+'0'#153#189#255'('#144#180#255')'#144#181#255'4'#156#192#255'U'#183#217#250
|
||||
+#133#201#225'O'#0#0'#'#0'Q<6&nKB'#142'L-&kv'#187#210'ok'#210#245#255']'#186
|
||||
+#213#255'Q'#175#205#255'R'#172#200#255'J'#168#199#255'E'#163#195#255'F'#159
|
||||
+#188#255'='#153#184#255'@'#158#187#255'O'#181#217#255'z'#205#235#130#0#0'#'#0
|
||||
+#0#0#0#6'X>5|`:0'#181'{'#175#193'm^'#187#219#252'^'#193#227#255'Z'#187#220
|
||||
+#255'G'#176#212#255'<'#164#200#255'0'#153#189#255'('#144#180#255'3'#149#182
|
||||
+#255'B'#162#196#255'T'#177#209#253'~'#192#210#136#0#0'#'#0'Q<6&nKB'#142'L-&k'
|
||||
+'v'#187#210'ok'#210#245#255']'#186#213#255'Q'#175#205#255'R'#172#200#255'J'
|
||||
+#168#199#255'E'#163#195#255'F'#159#188#255'='#153#184#255'@'#158#187#255'O'
|
||||
+#181#217#255'z'#205#235#130#0#0'#'#0'fNI'#130'Y=7pmB7pa'#134#150'Dp'#208#242
|
||||
+#246'_'#199#235#255'S'#187#223#255'G'#176#212#255'<'#164#200#255'0'#153#189
|
||||
+#255'('#144#180#255')'#144#181#255'4'#156#192#255'U'#183#217#250#133#201#225
|
||||
+'O'#0#0'#'#0'nUN'#141'pND'#166'h?5'#165#28#14#14#18#134#198#220'-k'#194#225
|
||||
+#153'_'#188#221#184'U'#180#212#210'L'#169#202#232'C'#160#192#234'>'#156#188
|
||||
+#213'B'#158#191#188'P'#168#199#159'y'#185#208';'#0#0'#'#0#0#0'#'#0#0#0#0
|
||||
+#255'B'#162#196#255'T'#177#209#253'~'#192#210#136#0#0'#'#0#0#0'#'#0'iH>'#131
|
||||
+'_90'#142#133#204#230'Zk'#210#246#255'_'#199#235#255'S'#187#223#255'G'#176
|
||||
+#212#255'D'#164#195#255':'#154#183#255'('#144#180#255')'#144#181#255'4'#156
|
||||
+#192#255'N'#182#218#255'}'#204#230'x'#0#0'#'#0#0#0#0#7'^?8m_8.it'#183#205'rh'
|
||||
+#197#226#255'U'#176#205#255'N'#175#206#255'J'#171#205#255'C'#169#204#255'='
|
||||
+#163#199#255'='#160#193#255'@'#161#193#255'I'#164#195#255'Q'#175#205#255'z'
|
||||
+#204#233#130#0#0'#'#0#0#0#0#4'^A7'#138'e>3w'#133#184#196'Qi'#196#229#252'`'
|
||||
+#199#235#255'S'#187#223#255'G'#176#212#255'<'#164#200#255'0'#153#189#255'('
|
||||
+#144#180#255')'#144#181#255'4'#156#192#255'W'#181#213#253#135#187#204'w'#0#0
|
||||
+'#'#0#0#0'#'#0',#'#26#29'Q2)'#138'p'#177#198'qj'#210#246#255'`'#199#234#255
|
||||
+'\'#183#211#255'O'#171#199#255'B'#161#192#255';'#155#185#255'9'#149#176#255
|
||||
+'8'#146#175#255'6'#156#191#255'N'#182#218#255'{'#206#233#129#0#0'#'#0#0#0#0#4
|
||||
+'pND'#150'lB7'#154'z'#187#206'q]'#184#210#255'P'#178#212#255'I'#179#216#255
|
||||
+'D'#176#212#255'A'#168#205#255'9'#160#196#255'4'#157#194#255'5'#160#198#255
|
||||
+'@'#165#198#255'O'#172#200#255'~'#202#228#134#0#0'#'#0#0#0#0#5'bD;'#177'P0('
|
||||
+#159't'#157#168'Sl'#205#238#251'_'#199#235#255'S'#187#223#255'G'#176#212#255
|
||||
+'<'#164#200#255'0'#153#189#255'('#144#180#255')'#144#181#255'4'#156#192#255
|
||||
+'U'#182#216#253#130#192#205'l'#0#0'#'#0#0#0'#'#0'dF='#150'G,$]{'#196#221'lj'
|
||||
+#210#246#255'`'#189#217#255'O'#176#205#255'J'#170#200#255'L'#168#196#255'I'
|
||||
+#164#193#255'='#154#184#255'6'#151#182#255'@'#157#187#255'N'#182#218#255'z'
|
||||
+#204#233#130#0#0'#'#0'dNF'#128'hH?'#142'U5-~'#132#197#217'j['#186#217#252'Y'
|
||||
+#190#225#255'Y'#185#219#255'P'#177#211#255'<'#164#200#255'0'#153#189#255'1'
|
||||
+#147#181#255'9'#153#187#255'@'#164#199#255'P'#175#207#253'|'#195#215#135#0#0
|
||||
+'#'#0'kRJ|pLE'#137'\9-l'#195#218'Ol'#210#245#254'_'#199#235#255'S'#187#223
|
||||
+#255'G'#176#212#255'<'#164#200#255'0'#153#189#255'('#144#180#255')'#145#181
|
||||
+#255'4'#156#192#255'O'#182#218#255#130#205#229'o'#0#0'#'#0#0#0#0#6'6"'#27'&M'
|
||||
+'.(t}'#198#223'lk'#204#235#255'I'#175#207#255';'#166#201#255'4'#162#197#255
|
||||
+'.'#158#195#255'-'#157#194#255'-'#156#191#255'/'#155#190#255'6'#158#192#255
|
||||
+'P'#178#210#255'y'#204#234#130#0#0'#'#0#0#0#0#9'bB:'#188'R2('#164'z'#164#179
|
||||
+'U7'#162#195#243#24#159#207#255#24#159#207#255#24#159#207#255#24#159#207#255
|
||||
+#24#159#207#255#24#159#207#255#24#159#207#255#24#159#207#255'.'#159#196#247
|
||||
+'{'#184#200'i'#0#0'#'#0#0#0'#'#0'{SIfg@4'#148#26#0#0#10'q'#161#162'$:'#159
|
||||
+#189#158'1'#159#193#188'.'#159#195#211'+'#158#196#234'+'#159#195#236'-'#159
|
||||
+#195#214'0'#159#195#191'7'#160#192#164'^'#161#173'1'#0#0'#'#0#0#0'#'#0#0#0#12
|
||||
+'TGradTabPage'#12'GradTabPage3'#4'Left'#2#2#6'Height'#3#210#1#3'Top'#2#22#5
|
||||
+'Width'#3#128#2#9'PageIndex'#2#3#7'Caption'#6#12'GradTabPage3'#8'TabColor'#7
|
||||
+#6'clBlue'#13'TabGlyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0
|
||||
+'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0
|
||||
+#0#0#0#0#0'nUN'#141'pND'#166'h?5'#165#28#14#14#18#134#198#220'-k'#194#225#153
|
||||
+'_'#188#221#184'U'#180#212#210'L'#169#202#232'C'#160#192#234'>'#156#188#213
|
||||
+'B'#158#191#188'P'#168#199#159'y'#185#208';'#0#0'#'#0#0#0'#'#0'fNI'#130'Y=7p'
|
||||
+'mB7pa'#134#150'Dp'#208#242#246'_'#199#235#255'S'#187#223#255'G'#176#212#255
|
||||
+'<'#164#200#255'0'#153#189#255'('#144#180#255')'#144#181#255'4'#156#192#255
|
||||
+'U'#183#217#250#133#201#225'O'#0#0'#'#0'Q<6&nKB'#142'L-&kv'#187#210'ok'#210
|
||||
+#245#255']'#186#213#255'Q'#175#205#255'R'#172#200#255'J'#168#199#255'E'#163
|
||||
+#195#255'F'#159#188#255'='#153#184#255'@'#158#187#255'O'#181#217#255'z'#205
|
||||
+#235#130#0#0'#'#0#0#0#0#6'X>5|`:0'#181'{'#175#193'm^'#187#219#252'^'#193#227
|
||||
,#255'Z'#187#220#255'G'#176#212#255'<'#164#200#255'0'#153#189#255'('#144#180
|
||||
+#255'3'#149#182#255'B'#162#196#255'T'#177#209#253'~'#192#210#136#0#0'#'#0#0#0
|
||||
+'#'#0'iH>'#131'_90'#142#133#204#230'Zk'#210#246#255'_'#199#235#255'S'#187#223
|
||||
+#255'G'#176#212#255'D'#164#195#255':'#154#183#255'('#144#180#255')'#144#181
|
||||
+#255'4'#156#192#255'N'#182#218#255'}'#204#230'x'#0#0'#'#0#0#0#0#7'^?8m_8.it'
|
||||
+#183#205'rh'#197#226#255'U'#176#205#255'N'#175#206#255'J'#171#205#255'C'#169
|
||||
+#204#255'='#163#199#255'='#160#193#255'@'#161#193#255'I'#164#195#255'Q'#175
|
||||
+#205#255'z'#204#233#130#0#0'#'#0#0#0#0#4'^A7'#138'e>3w'#133#184#196'Qi'#196
|
||||
+#229#252'`'#199#235#255'S'#187#223#255'G'#176#212#255'<'#164#200#255'0'#153
|
||||
+#189#255'('#144#180#255')'#144#181#255'4'#156#192#255'W'#181#213#253#135#187
|
||||
+#204'w'#0#0'#'#0#0#0'#'#0',#'#26#29'Q2)'#138'p'#177#198'qj'#210#246#255'`'
|
||||
+#199#234#255'\'#183#211#255'O'#171#199#255'B'#161#192#255';'#155#185#255'9'
|
||||
+#149#176#255'8'#146#175#255'6'#156#191#255'N'#182#218#255'{'#206#233#129#0#0
|
||||
+'#'#0#0#0#0#4'pND'#150'lB7'#154'z'#187#206'q]'#184#210#255'P'#178#212#255'I'
|
||||
+#179#216#255'D'#176#212#255'A'#168#205#255'9'#160#196#255'4'#157#194#255'5'
|
||||
+#160#198#255'@'#165#198#255'O'#172#200#255'~'#202#228#134#0#0'#'#0#0#0#0#5'b'
|
||||
+'D;'#177'P0('#159't'#157#168'Sl'#205#238#251'_'#199#235#255'S'#187#223#255'G'
|
||||
+#176#212#255'<'#164#200#255'0'#153#189#255'('#144#180#255')'#144#181#255'4'
|
||||
+#156#192#255'U'#182#216#253#130#192#205'l'#0#0'#'#0#0#0'#'#0'dF='#150'G,$]{'
|
||||
+#196#221'lj'#210#246#255'`'#189#217#255'O'#176#205#255'J'#170#200#255'L'#168
|
||||
+#196#255'I'#164#193#255'='#154#184#255'6'#151#182#255'@'#157#187#255'N'#182
|
||||
+#218#255'z'#204#233#130#0#0'#'#0'dNF'#128'hH?'#142'U5-~'#132#197#217'j['#186
|
||||
+#217#252'Y'#190#225#255'Y'#185#219#255'P'#177#211#255'<'#164#200#255'0'#153
|
||||
+#189#255'1'#147#181#255'9'#153#187#255'@'#164#199#255'P'#175#207#253'|'#195
|
||||
+#215#135#0#0'#'#0'kRJ|pLE'#137'\9-l'#195#218'Ol'#210#245#254'_'#199#235#255
|
||||
+'S'#187#223#255'G'#176#212#255'<'#164#200#255'0'#153#189#255'('#144#180#255
|
||||
+')'#145#181#255'4'#156#192#255'O'#182#218#255#130#205#229'o'#0#0'#'#0#0#0#0#6
|
||||
+'6"'#27'&M.(t}'#198#223'lk'#204#235#255'I'#175#207#255';'#166#201#255'4'#162
|
||||
+#197#255'.'#158#195#255'-'#157#194#255'-'#156#191#255'/'#155#190#255'6'#158
|
||||
+#192#255'P'#178#210#255'y'#204#234#130#0#0'#'#0#0#0#0#9'bB:'#188'R2('#164'z'
|
||||
+#164#179'U7'#162#195#243#24#159#207#255#24#159#207#255#24#159#207#255#24#159
|
||||
+#207#255#24#159#207#255#24#159#207#255#24#159#207#255#24#159#207#255'.'#159
|
||||
+#196#247'{'#184#200'i'#0#0'#'#0#0#0'#'#0'{SIfg@4'#148#26#0#0#10'q'#161#162'$'
|
||||
+':'#159#189#158'1'#159#193#188'.'#159#195#211'+'#158#196#234'+'#159#195#236
|
||||
+'-'#159#195#214'0'#159#195#191'7'#160#192#164'^'#161#173'1'#0#0'#'#0#0#0'#'#0
|
||||
+#0#7'TButton'#7'Button3'#4'Left'#2'c'#6'Height'#2#25#3'Top'#2'G'#5'Width'#2
|
||||
+'K'#7'Caption'#6#7'Button3'#8'TabOrder'#2#0#0#0#0#12'TGradTabPage'#12'GradTa'
|
||||
+'bPage2'#4'Left'#2#2#6'Height'#3#210#1#3'Top'#2#22#5'Width'#3#128#2#9'PageIn'
|
||||
+'dex'#2#1#7'Caption'#6#12'GradTabPage2'#12'TabPopupMenu'#7#10'PopupMenu1'#8
|
||||
+'TabColor'#7#7'clGreen'#13'TabGlyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0
|
||||
+#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'
|
||||
+#0#0#0#0#0#0#0#0#0#0#0'nUN'#141'pND'#166'h?5'#165#28#14#14#18#134#198#220'-k'
|
||||
+#194#225#153'_'#188#221#184'U'#180#212#210'L'#169#202#232'C'#160#192#234'>'
|
||||
+#156#188#213'B'#158#191#188'P'#168#199#159'y'#185#208';'#0#0'#'#0#0#0'#'#0'f'
|
||||
+'NI'#130'Y=7pmB7pa'#134#150'Dp'#208#242#246'_'#199#235#255'S'#187#223#255'G'
|
||||
+#176#212#255'<'#164#200#255'0'#153#189#255'('#144#180#255')'#144#181#255'4'
|
||||
+#156#192#255'U'#183#217#250#133#201#225'O'#0#0'#'#0'Q<6&nKB'#142'L-&kv'#187
|
||||
+#210'ok'#210#245#255']'#186#213#255'Q'#175#205#255'R'#172#200#255'J'#168#199
|
||||
+#255'E'#163#195#255'F'#159#188#255'='#153#184#255'@'#158#187#255'O'#181#217
|
||||
+#255'z'#205#235#130#0#0'#'#0#0#0#0#6'X>5|`:0'#181'{'#175#193'm^'#187#219#252
|
||||
+'^'#193#227#255'Z'#187#220#255'G'#176#212#255'<'#164#200#255'0'#153#189#255
|
||||
+'('#144#180#255'3'#149#182#255'B'#162#196#255'T'#177#209#253'~'#192#210#136#0
|
||||
+#0'#'#0#0#0'#'#0'iH>'#131'_90'#142#133#204#230'Zk'#210#246#255'_'#199#235#255
|
||||
+'S'#187#223#255'G'#176#212#255'D'#164#195#255':'#154#183#255'('#144#180#255
|
||||
+')'#144#181#255'4'#156#192#255'N'#182#218#255'}'#204#230'x'#0#0'#'#0#0#0#0#7
|
||||
+'^?8m_8.it'#183#205'rh'#197#226#255'U'#176#205#255'N'#175#206#255'J'#171#205
|
||||
+#255'C'#169#204#255'='#163#199#255'='#160#193#255'@'#161#193#255'I'#164#195
|
||||
+#255'Q'#175#205#255'z'#204#233#130#0#0'#'#0#0#0#0#4'^A7'#138'e>3w'#133#184
|
||||
+#196'Qi'#196#229#252'`'#199#235#255'S'#187#223#255'G'#176#212#255'<'#164#200
|
||||
+#255'0'#153#189#255'('#144#180#255')'#144#181#255'4'#156#192#255'W'#181#213
|
||||
+#253#135#187#204'w'#0#0'#'#0#0#0'#'#0',#'#26#29'Q2)'#138'p'#177#198'qj'#210
|
||||
+#246#255'`'#199#234#255'\'#183#211#255'O'#171#199#255'B'#161#192#255';'#155
|
||||
+#185#255'9'#149#176#255'8'#146#175#255'6'#156#191#255'N'#182#218#255'{'#206
|
||||
+#233#129#0#0'#'#0#0#0#0#4'pND'#150'lB7'#154'z'#187#206'q]'#184#210#255'P'#178
|
||||
,#212#255'I'#179#216#255'D'#176#212#255'A'#168#205#255'9'#160#196#255'4'#157
|
||||
+#194#255'5'#160#198#255'@'#165#198#255'O'#172#200#255'~'#202#228#134#0#0'#'#0
|
||||
+#0#0#0#5'bD;'#177'P0('#159't'#157#168'Sl'#205#238#251'_'#199#235#255'S'#187
|
||||
+#223#255'G'#176#212#255'<'#164#200#255'0'#153#189#255'('#144#180#255')'#144
|
||||
+#181#255'4'#156#192#255'U'#182#216#253#130#192#205'l'#0#0'#'#0#0#0'#'#0'dF='
|
||||
+#150'G,$]{'#196#221'lj'#210#246#255'`'#189#217#255'O'#176#205#255'J'#170#200
|
||||
+#255'L'#168#196#255'I'#164#193#255'='#154#184#255'6'#151#182#255'@'#157#187
|
||||
+#255'N'#182#218#255'z'#204#233#130#0#0'#'#0'dNF'#128'hH?'#142'U5-~'#132#197
|
||||
+#217'j['#186#217#252'Y'#190#225#255'Y'#185#219#255'P'#177#211#255'<'#164#200
|
||||
+#255'0'#153#189#255'1'#147#181#255'9'#153#187#255'@'#164#199#255'P'#175#207
|
||||
+#253'|'#195#215#135#0#0'#'#0'kRJ|pLE'#137'\9-l'#195#218'Ol'#210#245#254'_'
|
||||
+#199#235#255'S'#187#223#255'G'#176#212#255'<'#164#200#255'0'#153#189#255'('
|
||||
+#144#180#255')'#145#181#255'4'#156#192#255'O'#182#218#255#130#205#229'o'#0#0
|
||||
+'#'#0#0#0#0#6'6"'#27'&M.(t}'#198#223'lk'#204#235#255'I'#175#207#255';'#166
|
||||
+#201#255'4'#162#197#255'.'#158#195#255'-'#157#194#255'-'#156#191#255'/'#155
|
||||
+#190#255'6'#158#192#255'P'#178#210#255'y'#204#234#130#0#0'#'#0#0#0#0#9'bB:'
|
||||
+#188'R2('#164'z'#164#179'U7'#162#195#243#24#159#207#255#24#159#207#255#24#159
|
||||
+#207#255#24#159#207#255#24#159#207#255#24#159#207#255#24#159#207#255#24#159
|
||||
+#207#255'.'#159#196#247'{'#184#200'i'#0#0'#'#0#0#0'#'#0'{SIfg@4'#148#26#0#0
|
||||
+#10'q'#161#162'$:'#159#189#158'1'#159#193#188'.'#159#195#211'+'#158#196#234
|
||||
+'+'#159#195#236'-'#159#195#214'0'#159#195#191'7'#160#192#164'^'#161#173'1'#0
|
||||
+#0'#'#0#0#0'#'#0#12'TabShowGlyph'#9#0#12'TPageControl'#12'PageControl1'#4'Le'
|
||||
+'ft'#3#173#0#6'Height'#3#200#0#3'Top'#2'9'#5'Width'#3#200#0#10'ActivePage'#7
|
||||
+#9'TabSheet3'#8'TabIndex'#2#2#8'TabOrder'#2#0#10'OnDragDrop'#7#20'PageContro'
|
||||
+'l1DragDrop'#10'OnDragOver'#7#20'PageControl1DragOver'#0#9'TTabSheet'#9'TabS'
|
||||
+'heet1'#7'Caption'#6#9'TabSheet1'#0#0#9'TTabSheet'#9'TabSheet2'#7'Caption'#6
|
||||
+#9'TabSheet2'#0#0#9'TTabSheet'#9'TabSheet3'#7'Caption'#6#9'TabSheet3'#0#0#0#7
|
||||
+'TButton'#7'Button2'#4'Left'#2'/'#6'Height'#2#25#3'Top'#2#28#5'Width'#2'K'#7
|
||||
+'Caption'#6#7'Button2'#8'TabOrder'#2#1#0#0#6'TPanel'#6'Panel3'#4'Left'#3#173
|
||||
+#1#6'Height'#2'2'#3'Top'#2'Y'#5'Width'#3#170#0#7'Caption'#6#6'Panel3'#8'TabO'
|
||||
+'rder'#2#2#0#0#0#0#0#6'TPanel'#6'Panel2'#4'Left'#3#134#2#6'Height'#3#236#1#5
|
||||
+'Width'#3#238#0#5'Align'#7#7'alRight'#12'ClientHeight'#3#236#1#11'ClientWidt'
|
||||
+'h'#3#238#0#8'TabOrder'#2#1#0#6'TLabel'#6'Label1'#4'Left'#2#16#6'Height'#2#14
|
||||
+#3'Top'#3#160#0#5'Width'#2'2'#7'Caption'#6#9'TabHeight'#11'ParentColor'#8#0#0
|
||||
+#9'TComboBox'#9'ComboBox1'#4'Left'#2#16#6'Height'#2#21#3'Top'#2#16#5'Width'#2
|
||||
+'d'#10'ItemHeight'#2#13#9'MaxLength'#2#255#8'OnChange'#7#15'ComboBox1Change'
|
||||
+#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#0#0#0#11'TRadioGroup'#11'RadioG'
|
||||
+'roup1'#4'Left'#3#128#0#6'Height'#2'q'#3'Top'#2#16#5'Width'#2'd'#8'AutoFill'
|
||||
+#9#7'Caption'#6#12'Tab Position'#28'ChildSizing.LeftRightSpacing'#2#6#28'Chi'
|
||||
+'ldSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHo'
|
||||
+'mogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChil'
|
||||
+'dResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizi'
|
||||
+'ng.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeft'
|
||||
+'ToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'
|
||||
+#2'_'#11'ClientWidth'#2'`'#9'ItemIndex'#2#0#13'Items.Strings'#1#6#5'tpTop'#6
|
||||
+#8'tpBottom'#6#6'tpLeft'#6#7'tpRight'#0#7'OnClick'#7#16'RadioGroup1Click'#8
|
||||
+'TabOrder'#2#1#0#0#9'TCheckBox'#9'CheckBox1'#4'Left'#2#16#6'Height'#2#16#3'T'
|
||||
+'op'#2'p'#5'Width'#2'd'#8'AutoSize'#8#7'Caption'#6#9'Long Tabs'#7'OnClick'#7
|
||||
+#14'CheckBox1Click'#8'TabOrder'#2#2#0#0#11'TGradButton'#10'NewPageBtn'#4'Lef'
|
||||
+'t'#2#16#6'Height'#2#25#3'Top'#2'0'#5'Width'#2'd'#7'Caption'#6#8'New Page'#10
|
||||
+'Font.Color'#7#7'clWhite'#7'OnClick'#7#15'NewPageBtnClick'#8'TabOrder'#2#3#7
|
||||
+'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186
|
||||
+'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'Norm'
|
||||
+'alBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundCo'
|
||||
+'lor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#20'GlyphBackgroundColor'#7#7'clWh'
|
||||
+'ite'#10'ClickColor'#7#6'clBlue'#22'AutoWidthBorderSpacing'#2#15#23'AutoHeig'
|
||||
+'htBorderSpacing'#2#15#0#0#11'TGradButton'#9'DeleteBtn'#4'Left'#2#16#6'Heigh'
|
||||
+'t'#2#25#3'Top'#2'P'#5'Width'#2'd'#7'Caption'#6#6'Delete'#10'Font.Color'#7#7
|
||||
+'clWhite'#7'OnClick'#7#14'DeleteBtnClick'#8'TabOrder'#2#4#7'TabStop'#9#11'No'
|
||||
+'rmalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167
|
||||
+#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7
|
||||
+#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFa'
|
||||
+'ce'#15'ShowFocusBorder'#9#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickCol'
|
||||
+'or'#7#6'clBlue'#22'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpacing'
|
||||
,#2#15#0#0#9'TSpinEdit'#9'SpinEdit2'#4'Left'#2#16#6'Height'#2#19#3'Top'#3#176
|
||||
+#0#5'Width'#2'd'#13'OnEditingDone'#7#20'SpinEdit2EditingDone'#8'TabOrder'#2#5
|
||||
+#0#0#5'TEdit'#5'Edit1'#4'Left'#2#16#6'Height'#2#19#3'Top'#3#136#0#5'Width'#2
|
||||
+'H'#8'TabOrder'#2#6#4'Text'#6#5'Edit1'#0#0#11'TGradButton'#11'GradButton1'#4
|
||||
+'Left'#2'Z'#6'Height'#2#19#3'Top'#3#136#0#5'Width'#2#26#7'Caption'#6#3'set'
|
||||
+#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#16'GradButton1Click'#8'TabOrder'#2
|
||||
+#7#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'
|
||||
+#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16
|
||||
+'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'Backgrou'
|
||||
+'ndColor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#20'GlyphBackgroundColor'#7#7
|
||||
+'clWhite'#10'ClickColor'#7#6'clBlue'#22'AutoWidthBorderSpacing'#2#15#23'Auto'
|
||||
+'HeightBorderSpacing'#2#15#0#0#11'TCheckGroup'#11'CheckGroup1'#4'Left'#3#128
|
||||
+#0#6'Height'#2'i'#3'Top'#3#143#0#5'Width'#2'd'#8'AutoFill'#9#7'Caption'#6#14
|
||||
+'Scroll Buttons'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBott'
|
||||
+'omSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildRes'
|
||||
+'ize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'Chil'
|
||||
+'dSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertica'
|
||||
+'l'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopTo'
|
||||
+'Bottom'#27'ChildSizing.ControlsPerLine'#2#1#13'Items.Strings'#1#6#4'Auto'#6
|
||||
+#7'LeftTop'#6#11'RightBottom'#0#7'OnClick'#7#16'CheckGroup1Click'#11'OnItemC'
|
||||
+'lick'#7#20'CheckGroup1ItemClick'#8'TabOrder'#2#8#4'Data'#10#7#0#0#0#3#0#0#0
|
||||
+#3#2#2#0#0#0#10'TPopupMenu'#10'PopupMenu1'#4'left'#3#222#2#3'top'#3#141#1#0#9
|
||||
+'TMenuItem'#9'MenuItem1'#7'Caption'#6#9'New Item1'#0#0#0#10'TImageList'#10'I'
|
||||
+'mageList1'#8'OnChange'#13#4'left'#3#144#2#3'top'#3#141#1#6'Bitmap'#10#14#4#0
|
||||
+#0'Li'#1#0#0#0#16#0#0#0#16#0#0#0#0#0'#'#0'{SIfg@4'#148#26#0#0#10'q'#161#162
|
||||
+'$:'#159#189#158'1'#159#193#188'.'#159#195#211'+'#158#196#234'+'#159#195#236
|
||||
+'-'#159#195#214'0'#159#195#191'7'#160#192#164'^'#161#173'1'#0#0'#'#0#0#0'#'#0
|
||||
+#0#0#0#9'bB:'#188'R2('#164'z'#164#179'U7'#162#195#243#24#159#207#255#24#159
|
||||
+#207#255#24#159#207#255#24#159#207#255#24#159#207#255#24#159#207#255#24#159
|
||||
+#207#255#24#159#207#255'.'#159#196#247'{'#184#200'i'#0#0'#'#0#0#0#0#6'6"'#27
|
||||
+'&M.(t}'#198#223'lk'#204#235#255'I'#175#207#255';'#166#201#255'4'#162#197#255
|
||||
+'.'#158#195#255'-'#157#194#255'-'#156#191#255'/'#155#190#255'6'#158#192#255
|
||||
+'P'#178#210#255'y'#204#234#130#0#0'#'#0'kRJ|pLE'#137'\9-l'#195#218'Ol'#210
|
||||
+#245#254'_'#199#235#255'S'#187#223#255'G'#176#212#255'<'#164#200#255'0'#153
|
||||
+#189#255'('#144#180#255')'#145#181#255'4'#156#192#255'O'#182#218#255#130#205
|
||||
+#229'o'#0#0'#'#0'dNF'#128'hH?'#142'U5-~'#132#197#217'j['#186#217#252'Y'#190
|
||||
+#225#255'Y'#185#219#255'P'#177#211#255'<'#164#200#255'0'#153#189#255'1'#147
|
||||
+#181#255'9'#153#187#255'@'#164#199#255'P'#175#207#253'|'#195#215#135#0#0'#'#0
|
||||
+#0#0'#'#0'dF='#150'G,$]{'#196#221'lj'#210#246#255'`'#189#217#255'O'#176#205
|
||||
+#255'J'#170#200#255'L'#168#196#255'I'#164#193#255'='#154#184#255'6'#151#182
|
||||
+#255'@'#157#187#255'N'#182#218#255'z'#204#233#130#0#0'#'#0#0#0#0#5'bD;'#177
|
||||
+'P0('#159't'#157#168'Sl'#205#238#251'_'#199#235#255'S'#187#223#255'G'#176#212
|
||||
+#255'<'#164#200#255'0'#153#189#255'('#144#180#255')'#144#181#255'4'#156#192
|
||||
+#255'U'#182#216#253#130#192#205'l'#0#0'#'#0#0#0#0#4'pND'#150'lB7'#154'z'#187
|
||||
+#206'q]'#184#210#255'P'#178#212#255'I'#179#216#255'D'#176#212#255'A'#168#205
|
||||
+#255'9'#160#196#255'4'#157#194#255'5'#160#198#255'@'#165#198#255'O'#172#200
|
||||
+#255'~'#202#228#134#0#0'#'#0#0#0'#'#0',#'#26#29'Q2)'#138'p'#177#198'qj'#210
|
||||
+#246#255'`'#199#234#255'\'#183#211#255'O'#171#199#255'B'#161#192#255';'#155
|
||||
+#185#255'9'#149#176#255'8'#146#175#255'6'#156#191#255'N'#182#218#255'{'#206
|
||||
+#233#129#0#0'#'#0#0#0#0#4'^A7'#138'e>3w'#133#184#196'Qi'#196#229#252'`'#199
|
||||
+#235#255'S'#187#223#255'G'#176#212#255'<'#164#200#255'0'#153#189#255'('#144
|
||||
+#180#255')'#144#181#255'4'#156#192#255'W'#181#213#253#135#187#204'w'#0#0'#'#0
|
||||
+#0#0#0#7'^?8m_8.it'#183#205'rh'#197#226#255'U'#176#205#255'N'#175#206#255'J'
|
||||
+#171#205#255'C'#169#204#255'='#163#199#255'='#160#193#255'@'#161#193#255'I'
|
||||
+#164#195#255'Q'#175#205#255'z'#204#233#130#0#0'#'#0#0#0'#'#0'iH>'#131'_90'
|
||||
+#142#133#204#230'Zk'#210#246#255'_'#199#235#255'S'#187#223#255'G'#176#212#255
|
||||
+'D'#164#195#255':'#154#183#255'('#144#180#255')'#144#181#255'4'#156#192#255
|
||||
+'N'#182#218#255'}'#204#230'x'#0#0'#'#0#0#0#0#6'X>5|`:0'#181'{'#175#193'm^'
|
||||
+#187#219#252'^'#193#227#255'Z'#187#220#255'G'#176#212#255'<'#164#200#255'0'
|
||||
+#153#189#255'('#144#180#255'3'#149#182#255'B'#162#196#255'T'#177#209#253'~'
|
||||
+#192#210#136#0#0'#'#0'Q<6&nKB'#142'L-&kv'#187#210'ok'#210#245#255']'#186#213
|
||||
+#255'Q'#175#205#255'R'#172#200#255'J'#168#199#255'E'#163#195#255'F'#159#188
|
||||
+#255'='#153#184#255'@'#158#187#255'O'#181#217#255'z'#205#235#130#0#0'#'#0'fN'
|
||||
+'I'#130'Y=7pmB7pa'#134#150'Dp'#208#242#246'_'#199#235#255'S'#187#223#255'G'
|
||||
,#176#212#255'<'#164#200#255'0'#153#189#255'('#144#180#255')'#144#181#255'4'
|
||||
+#156#192#255'U'#183#217#250#133#201#225'O'#0#0'#'#0'nUN'#141'pND'#166'h?5'
|
||||
+#165#28#14#14#18#134#198#220'-k'#194#225#153'_'#188#221#184'U'#180#212#210'L'
|
||||
+#169#202#232'C'#160#192#234'>'#156#188#213'B'#158#191#188'P'#168#199#159'y'
|
||||
+#185#208';'#0#0'#'#0#0#0'#'#0#0#0#0
|
||||
]);
|
||||
|
||||
@ -101,9 +101,9 @@ begin
|
||||
SpinEdit2.Value:=GradTabControl1.TabHeight;
|
||||
|
||||
GradTabControl1.Images := ImageList1;
|
||||
{GradTabControl1.Page[0].ImageIndex:=0;
|
||||
GradTabControl1.Page[0].ImageIndex:=0;
|
||||
GradTabControl1.Page[0].TabButton.ShowGlyph:=true;
|
||||
GradTabControl1.PagesBar.MoveToNext; }
|
||||
//GradTabControl1.PagesBar.MoveToNext;
|
||||
|
||||
ComboBox1.Items.Assign(GradTabControl1.Tabs);
|
||||
end;
|
||||
|
||||
@ -13,7 +13,7 @@
|
||||
<VersionInfo>
|
||||
<UseVersionInfo Value="True"/>
|
||||
<AutoIncrementBuild Value="True"/>
|
||||
<CurrentBuildNr Value="994"/>
|
||||
<CurrentBuildNr Value="1038"/>
|
||||
<ProjectVersion Value="0.0.0.0"/>
|
||||
</VersionInfo>
|
||||
<PublishOptions>
|
||||
|
||||
@ -36,7 +36,6 @@ type
|
||||
FAutoHeight: Boolean;
|
||||
FAutoHeightBorderSpacing: Integer;
|
||||
FAutoWidthBorderSpacing: Integer;
|
||||
FOnMouseMove: TMouseMoveEvent;
|
||||
FRotateDirection : TRotateDirection;
|
||||
FTextAlignment : TTextAlignment;
|
||||
FButtonLayout: TButtonLayout;
|
||||
@ -132,7 +131,7 @@ type
|
||||
property OnMouseDown;
|
||||
property OnMouseEnter;
|
||||
property OnMouseLeave;
|
||||
property OnMouseMove: TMouseMoveEvent read FOnMouseMove write FOnMouseMove;
|
||||
property OnMouseMove;
|
||||
property OnMouseUp;
|
||||
property OnPaint;
|
||||
property OnResize;
|
||||
@ -176,7 +175,6 @@ type
|
||||
property OnDisabledBackgroundPaint : TGBBackgroundPaintEvent read FOnDisabledBackgroundPaint write FOnDisabledBackgroundPaint;
|
||||
end;
|
||||
|
||||
function Max(a,b: Integer) : Integer;
|
||||
function ColorBetween(C1, C2 : TColor; blend:Extended):TColor;
|
||||
function ColorsBetween(colors:array of TColor; blend:Extended):TColor;
|
||||
function AlignItem(ItemLength, AreaLength,Spacing: Integer; ATextAlignment: TTextAlignment):Integer;
|
||||
@ -187,15 +185,7 @@ type
|
||||
implementation
|
||||
|
||||
uses
|
||||
LCLProc;
|
||||
|
||||
function Max(a,b: Integer) : Integer;
|
||||
begin
|
||||
if a>b then
|
||||
Result := a
|
||||
else
|
||||
Result := b;
|
||||
end;
|
||||
LCLProc, math;
|
||||
|
||||
function AlignItem(ItemLength, AreaLength,Spacing: Integer; ATextAlignment: TTextAlignment):Integer;
|
||||
begin
|
||||
@ -1118,25 +1108,15 @@ end;
|
||||
procedure TGradButton.MouseMove(Shift: TShiftState;
|
||||
X, Y: Integer);
|
||||
begin
|
||||
//WriteLn('MouseMove');
|
||||
//if PtInRect(Rect(0,0,Width,Height),Point(X,Y)) then
|
||||
begin
|
||||
//
|
||||
|
||||
if ssLeft in Shift then
|
||||
FState := bsDown
|
||||
else
|
||||
FState := bsHot;
|
||||
if ssLeft in Shift then
|
||||
FState := bsDown
|
||||
else
|
||||
FState := bsHot;
|
||||
|
||||
InvPaint(true);
|
||||
InvPaint(true);
|
||||
|
||||
if Assigned(FOnMouseMove) then begin
|
||||
//DebugLn('X=%d Y=%d',[X,Y]);
|
||||
FOnMouseMove(Self, Shift, X,Y);
|
||||
end;
|
||||
|
||||
//inherited;
|
||||
end;
|
||||
//inherited MouseMove calls OnMouseMove
|
||||
inherited MouseMove(Shift, X, Y);
|
||||
end;
|
||||
|
||||
procedure TGradButton.MouseLeave;
|
||||
|
||||
@ -124,7 +124,7 @@ type
|
||||
property TabPopupMenu : TPopupMenu read GetTabPopupMenu write SetTabPopupMenu;
|
||||
property Color;
|
||||
property TabColor : TColor read GetTabColor write SetTabColor;
|
||||
property TabTextAlignment : TTextAlignment read GetTabTextAlignment write SetTabTextAlignment;
|
||||
property TabTextAlignment : TTextAlignment read GetTabTextAlignment write SetTabTextAlignment default taCenter;
|
||||
property TabGlyph : TBitmap read GetTabGlyph write SetTabGlyph;
|
||||
property TabShowGlyph : Boolean read GetTabShowGlyph write SetTabShowGlyph;
|
||||
property TabButtonLayout : TButtonLayout read GetTabButtonLayout write SetTabButtonLayout;
|
||||
@ -172,11 +172,14 @@ type
|
||||
function IsVisible(Index: Integer) : Boolean;
|
||||
procedure ChangeLeftTop(LastTabPosition : TTabPosition);
|
||||
function GetViewedTabs : TTabs;
|
||||
function GetViewableTabs(FromIndex : Integer) : TTabs;
|
||||
function GetTabsOfSide(FromIndex : Integer; FromLeftSide : Boolean) : TTabs;
|
||||
procedure ScrollToTab(PIndex : Integer);
|
||||
public
|
||||
constructor Create(AOwner: TComponent; var thePageList: TListWithEvent;
|
||||
TheTabControl : TGradTabControl);
|
||||
procedure Paint; override;
|
||||
procedure Resize; override;
|
||||
procedure MoveToNext;
|
||||
procedure MoveToPrior;
|
||||
procedure MoveTo(Num: Integer);
|
||||
@ -382,7 +385,7 @@ type
|
||||
property LongWidth: Integer read FLongWidth write SetLongWidth;
|
||||
property MoveIncrement : Integer read FMoveIncrement write FMoveIncrement;
|
||||
property OnPageChanged: TNotifyEvent read FOnPageChanged write FOnPageChanged;
|
||||
property AutoShowScrollButtons : Boolean read FAutoShowScrollButton write SetAutoShowScrollButtons;
|
||||
property AutoShowScrollButtons : Boolean read FAutoShowScrollButton write SetAutoShowScrollButtons default true;
|
||||
property ShowLeftTopScrollButton : Boolean read FShowLeftTopScrollButton write SetShowLeftTopScrollButton;
|
||||
property ShowRightBottomScrollButton : Boolean read FShowRightBottomScrollButton write SetShowRightBottomScrollButton;
|
||||
property Images : TImageList read FImages write SetImages;
|
||||
@ -393,11 +396,12 @@ type
|
||||
procedure Register;
|
||||
function IsAssigned(var Obj : TObject) : String;
|
||||
function BoolStr(BV : Boolean) : String;
|
||||
function IncAr(var Ar : TTabs) : Integer;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
gradtabcontroleditor, ComponentEditors;
|
||||
gradtabcontroleditor, ComponentEditors, math;
|
||||
|
||||
const
|
||||
FPageCount : Integer = 0;
|
||||
@ -439,6 +443,12 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function IncAr(var Ar : TTabs) : Integer;
|
||||
begin
|
||||
SetLength(Ar, Length(Ar)+1);
|
||||
Result := Length(Ar)-1;
|
||||
end;
|
||||
|
||||
{-------------------------------------------------------------------------------
|
||||
TGradTabPageButton Create(AOwner: TComponent
|
||||
------------------------------------------------------------------------------}
|
||||
@ -1024,6 +1034,13 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TGradTabPagesBar.Resize;
|
||||
begin
|
||||
inherited Resize;
|
||||
|
||||
OrderButtons;
|
||||
end;
|
||||
|
||||
procedure TGradTabPagesBar.MoveToNext;
|
||||
var
|
||||
TheTabs : TTabs;
|
||||
@ -1386,7 +1403,11 @@ begin
|
||||
}
|
||||
if not FTabControl.AutoShowScrollButtons then Exit;
|
||||
|
||||
if ((BarWidth < (LastLeft-FMovedTo)) OR (BarHeight < (LastTop-FMovedTo))) AND ((BarHeight<>0) AND (BarWidth<>0)) then begin
|
||||
if ((BarWidth < (LastLeft-FMovedTo))
|
||||
OR (BarHeight < (LastTop-FMovedTo))
|
||||
OR (FMovedTo <> 1))
|
||||
AND ((BarHeight<>0)
|
||||
AND (BarWidth<>0)) then begin
|
||||
FTabControl.FLeftButton.Visible:=true;
|
||||
FTabControl.FRightButton.Visible:=true;
|
||||
end else begin
|
||||
@ -1521,9 +1542,9 @@ begin
|
||||
TheButton := TGradTabPage(FPageList.Items[Index]).TabButton;
|
||||
|
||||
if TabPosition in [tpTop, tpBottom] then
|
||||
Result := TheButton.Visible AND (TheButton.Left >= 0) AND (TheButton.Left <= Width)
|
||||
Result := TheButton.Visible AND (TheButton.Left >= 0) AND (TheButton.Left+TheButton.Width <= Width+5)
|
||||
else
|
||||
Result := TheButton.Visible AND (TheButton.Top >= 0) AND (TheButton.Left <= Height);
|
||||
Result := TheButton.Visible AND (TheButton.Top >= 0) AND (TheButton.Top+TheButton.Height <= Height+5);
|
||||
end;
|
||||
|
||||
procedure TGradTabPagesBar.ChangeLeftTop(LastTabPosition: TTabPosition);
|
||||
@ -1532,13 +1553,6 @@ begin
|
||||
end;
|
||||
|
||||
function TGradTabPagesBar.GetViewedTabs: TTabs;
|
||||
|
||||
function IncAr(var Ar : TTabs) : Integer;
|
||||
begin
|
||||
SetLength(Ar, Length(Ar)+1);
|
||||
Result := Length(Ar)-1;
|
||||
end;
|
||||
|
||||
var
|
||||
i,l : Integer;
|
||||
begin
|
||||
@ -1561,21 +1575,89 @@ begin
|
||||
//DebugLn('GetViewedTabs End');
|
||||
end;
|
||||
|
||||
function TGradTabPagesBar.GetViewableTabs(FromIndex: Integer): TTabs;
|
||||
var
|
||||
i,l, Last : Integer;
|
||||
begin
|
||||
Last := 1;
|
||||
for i := FromIndex to FPageList.Count-1 do
|
||||
begin
|
||||
with TGradTabPage(FPageList.Items[i]).TabButton do
|
||||
begin
|
||||
case TabPosition of
|
||||
tpTop..tpBottom : begin
|
||||
if Last + Width < Self.Width then
|
||||
begin
|
||||
l := IncAr(Result);
|
||||
Result[l] := i;
|
||||
Inc(Last, Width+1);
|
||||
end;
|
||||
end;
|
||||
tpLeft..tpRight : begin
|
||||
if Last + Height < Self.Height then
|
||||
begin
|
||||
l := IncAr(Result);
|
||||
Result[l] := i;
|
||||
Inc(Last, Height+1);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
function TGradTabPagesBar.GetTabsOfSide(FromIndex: Integer; FromLeftSide: Boolean
|
||||
): TTabs;
|
||||
var
|
||||
i,l,fstart,fend : Integer;
|
||||
begin
|
||||
if FromLeftSide then begin
|
||||
fstart := 0;
|
||||
fend:= FromIndex-1;
|
||||
end else begin
|
||||
fstart:= FromIndex+1;
|
||||
fend:= FPageList.Count-1;
|
||||
end;
|
||||
|
||||
for i := fstart to fend do
|
||||
begin
|
||||
l := IncAr(Result);
|
||||
Result[l] := i;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TGradTabPagesBar.ScrollToTab(PIndex: Integer);
|
||||
var
|
||||
CurTabs : TTabs;
|
||||
CurTabs, TabsLeft, TabsRight : TTabs;
|
||||
C : Integer;
|
||||
DoNext : Boolean;
|
||||
IsInLeft, IsInRight : Boolean;
|
||||
begin
|
||||
C := 0;
|
||||
|
||||
if (FPageList.Count=0) OR (PIndex>=FPageList.Count) then Exit;
|
||||
if IsVisible(PIndex) then Exit;
|
||||
CurTabs := GetViewedTabs;
|
||||
TabsLeft:= GetTabsOfSide(CurTabs[0],true);
|
||||
TabsRight:= GetTabsOfSide(CurTabs[High(CurTabs)],false);
|
||||
|
||||
IsInLeft:= ValueInArray(PIndex,TabsLeft);
|
||||
IsInRight:= ValueInArray(PIndex,TabsRight);
|
||||
|
||||
DebugLn('TabInLeft=%s TabInRight=%s',[BoolStr(IsInLeft),BoolStr(IsInRight)]);
|
||||
|
||||
if IsInLeft then begin
|
||||
FShowFromButton := TabsLeft[0];
|
||||
OrderButtons;
|
||||
if IsVisible(PIndex) then Exit;
|
||||
end;
|
||||
|
||||
{$IFDEF DEBUGTAB} DebugLn('ScrollToTab=%d',[PIndex]); {$ENDIF}
|
||||
repeat
|
||||
{$IFDEF DEBUGTAB} DebugLn('Run=%d',[C]); {$ENDIF}
|
||||
CurTabs := GetViewedTabs;
|
||||
SetLength(CurTabs, Length(CurTabs)-2);
|
||||
//
|
||||
//SetLength(CurTabs, Length(CurTabs)-1);
|
||||
|
||||
with TGradTabPage(FPageList.Items[PIndex]).TabButton do
|
||||
case FTabPosition of
|
||||
@ -1587,11 +1669,12 @@ begin
|
||||
|
||||
Inc(C);
|
||||
|
||||
{$IFDEF DEBUGTAB} DebugLn('ValInAr=%s',[BoolStr(ValueInArray(PIndex,CurTabs))]); {$ENDIF}
|
||||
//{$IFDEF DEBUGTAB} DebugLn('ValInAr=%s',[BoolStr(ValueInArray(PIndex,CurTabs))]); {$ENDIF}
|
||||
{$IFDEF DEBUGTAB} DebugLn('IsVisible(%d)=%s',[PIndex, BoolStr(IsVisible(PIndex))]); {$ENDIF}
|
||||
|
||||
until(ValueInArray(PIndex,CurTabs) OR (C=10));
|
||||
until({ValueInArray(PIndex,CurTabs)} IsVisible(PIndex) {OR (C=10)});
|
||||
|
||||
if DoNext then MoveToNext else MoveToPrior;
|
||||
//if DoNext then MoveToNext else MoveToPrior;
|
||||
{$IFDEF DEBUGTAB} DebugLn('ScrollToTab End'); {$ENDIF}
|
||||
end;
|
||||
|
||||
@ -1781,7 +1864,7 @@ var
|
||||
NewOwner: TComponent;
|
||||
begin
|
||||
{$IFDEF DEBUGTAB}
|
||||
DebugLn(['TGradTabPages.Insert A ',FNoteBook.Name,' Index=',Index,' S="',S,'"']);
|
||||
DebugLn(['TGradTabPages.Insert A ',FGradTabControl.Name,' Index=',Index,' S="',S,'"']);
|
||||
{$ENDIF}
|
||||
NewOwner:=FGradTabControl.Owner;
|
||||
if NewOwner=nil then
|
||||
@ -1805,13 +1888,13 @@ begin
|
||||
end;
|
||||
|
||||
{$IFDEF DEBUGTAB}
|
||||
DebugLn(['TGradTabPages.Insert B ',FNotebook.Name,' Index=',Index,' S="',S,'"']);
|
||||
DebugLn(['TGradTabPages.Insert B ',FGradTabControl.Name,' Index=',Index,' S="',S,'"']);
|
||||
{$ENDIF}
|
||||
{TODO}
|
||||
FGradTabControl.InsertPage(NewPage,Index);
|
||||
//FGradTabControl.PagesBar.InsertButton(NewButton, Index);
|
||||
{$IFDEF DEBUGTAB}
|
||||
DebugLn(['TGradTabPages.Insert END ',FNotebook.Name,' Index=',Index,' S="',S,'"']);
|
||||
DebugLn(['TGradTabPages.Insert END ',FGradTabControl.Name,' Index=',Index,' S="',S,'"']);
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
@ -1867,6 +1950,7 @@ begin
|
||||
inherited;
|
||||
|
||||
FTabPosition:=tpTop;
|
||||
FAutoShowScrollButton:=true;
|
||||
fCompStyle := csNoteBook;
|
||||
|
||||
ControlStyle := [{csAcceptsControls, }csDesignInteractive];
|
||||
@ -2632,6 +2716,8 @@ begin
|
||||
DebugLn('Control Left %d Top %d Height %d Width %d',[ Left, Top, Height, Width]);
|
||||
{$ENDIF}
|
||||
|
||||
FPagesBar.TabPosition:=Value;
|
||||
|
||||
case Value of
|
||||
tpTop: begin
|
||||
FBar.Height:=FTabHeight;
|
||||
@ -2712,10 +2798,8 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
if FPagesBar.TabPosition=Value then
|
||||
FPagesBar.OrderButtons
|
||||
else
|
||||
FPagesBar.TabPosition:=Value;
|
||||
if not FPagesBar.IsVisible(FPageIndex) then
|
||||
FPagesBar.FocusButton(FPageIndex);
|
||||
|
||||
{$IFDEF DEBUGTAB}
|
||||
DebugLn('After');
|
||||
@ -2834,13 +2918,14 @@ end;
|
||||
procedure TGradTabControl.Paint;
|
||||
var
|
||||
i,j : Integer;
|
||||
AClientRect : TRect;
|
||||
begin
|
||||
Canvas.Brush.Color:=Color;
|
||||
Canvas.FillRect(0,0,Width,Height);
|
||||
|
||||
Canvas.Pen.Color:=clBlack;
|
||||
|
||||
case FTabPosition of
|
||||
{case FTabPosition of
|
||||
tpTop: begin
|
||||
Canvas.Line(0,FTabHeight,0,Height);
|
||||
Canvas.Line(0,FTabHeight,Width,FTabHeight);
|
||||
@ -2865,7 +2950,12 @@ begin
|
||||
Canvas.Line(Width-1,0,Width-1,Height); //Right
|
||||
Canvas.Line(GetTabBarSize(tpLeft),Height-1,Width,Height-1);//Bottom
|
||||
end;
|
||||
end;
|
||||
end;}
|
||||
|
||||
AClientRect := GetClientRect;
|
||||
|
||||
Canvas.Rectangle(AClientRect.Left-2, AClientRect.Top-2,
|
||||
AClientRect.Right+2, AClientRect.Bottom+2);
|
||||
|
||||
end;
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user