You've already forked lazarus-ccr
jvcllaz: Implement scaled imagelists for JvOutlookBar.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6346 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
@ -1,12 +1,12 @@
|
||||
object OLBarMainForm: TOLBarMainForm
|
||||
Left = 299
|
||||
Height = 366
|
||||
Height = 358
|
||||
Top = 199
|
||||
Width = 771
|
||||
Width = 623
|
||||
ActiveControl = Memo1
|
||||
Caption = 'JvOutlookBar Demo'
|
||||
ClientHeight = 366
|
||||
ClientWidth = 771
|
||||
ClientHeight = 358
|
||||
ClientWidth = 623
|
||||
Color = clBtnFace
|
||||
Constraints.MinHeight = 300
|
||||
Constraints.MinWidth = 220
|
||||
@ -16,27 +16,28 @@ object OLBarMainForm: TOLBarMainForm
|
||||
Position = poScreenCenter
|
||||
ShowHint = True
|
||||
LCLVersion = '1.9.0.0'
|
||||
Scaled = False
|
||||
object Splitter1: TSplitter
|
||||
Left = 135
|
||||
Height = 343
|
||||
Left = 130
|
||||
Height = 335
|
||||
Top = 0
|
||||
Width = 5
|
||||
Width = 4
|
||||
AutoSnap = False
|
||||
end
|
||||
object StatusBar: TStatusBar
|
||||
Left = 0
|
||||
Height = 23
|
||||
Top = 343
|
||||
Width = 771
|
||||
Top = 335
|
||||
Width = 623
|
||||
Font.Color = clWindowText
|
||||
Panels = <>
|
||||
ParentFont = False
|
||||
end
|
||||
object JvOutlookBar1: TJvOutlookBar
|
||||
Left = 0
|
||||
Height = 343
|
||||
Height = 335
|
||||
Hint = 'Right-click the bar to see the options'
|
||||
Top = 0
|
||||
Width = 135
|
||||
Width = 130
|
||||
Align = alLeft
|
||||
Pages = <
|
||||
item
|
||||
@ -151,8 +152,8 @@ object OLBarMainForm: TOLBarMainForm
|
||||
ParentColor = False
|
||||
TopButtonIndex = 0
|
||||
end>
|
||||
LargeImages = ImageList1
|
||||
SmallImages = ImageList2
|
||||
LargeImages = LargeImages
|
||||
SmallImages = SmallImages
|
||||
ActivePageIndex = 1
|
||||
OnButtonClick = JvOutlookBar1ButtonClick
|
||||
OnPageChange = JvOutlookBar1PageChange
|
||||
@ -163,108 +164,129 @@ object OLBarMainForm: TOLBarMainForm
|
||||
PopupMenu = popOL
|
||||
TabOrder = 1
|
||||
OnContextPopup = JvOutlookBar1ContextPopup
|
||||
LargeImagesWidth = 0
|
||||
SmallImagesWidth = 0
|
||||
PageImagesWidth = 0
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 140
|
||||
Height = 343
|
||||
Left = 134
|
||||
Height = 335
|
||||
Top = 0
|
||||
Width = 631
|
||||
Width = 489
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 343
|
||||
ClientWidth = 631
|
||||
ClientHeight = 335
|
||||
ClientWidth = 489
|
||||
Font.Color = clWindowText
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
object Panel2: TPanel
|
||||
AnchorSideTop.Control = Panel1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 0
|
||||
Height = 56
|
||||
Top = 287
|
||||
Width = 631
|
||||
Top = 279
|
||||
Width = 489
|
||||
Align = alBottom
|
||||
Anchors = [akLeft, akRight]
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 56
|
||||
ClientWidth = 631
|
||||
ClientWidth = 489
|
||||
Font.Color = clWindowText
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
object Button1: TButton
|
||||
AnchorSideLeft.Control = Panel2
|
||||
AnchorSideTop.Control = Panel2
|
||||
Left = 0
|
||||
Left = 4
|
||||
Height = 25
|
||||
Top = 4
|
||||
Width = 102
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Top = 4
|
||||
Caption = 'Assign images'
|
||||
Font.Color = clWindowText
|
||||
OnClick = Button1Click
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
end
|
||||
object chkSmallImages: TCheckBox
|
||||
AnchorSideLeft.Control = Panel2
|
||||
AnchorSideTop.Control = Button1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 0
|
||||
Left = 5
|
||||
Height = 19
|
||||
Top = 33
|
||||
Width = 93
|
||||
Action = acSmallButtons
|
||||
BorderSpacing.Left = 5
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Bottom = 4
|
||||
Font.Color = clWindowText
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
end
|
||||
object Button2: TButton
|
||||
AnchorSideLeft.Control = Button1
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = Button1
|
||||
Left = 106
|
||||
Left = 110
|
||||
Height = 25
|
||||
Top = 4
|
||||
Width = 110
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 4
|
||||
Caption = 'Remove images'
|
||||
Font.Color = clWindowText
|
||||
OnClick = Button2Click
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
end
|
||||
object Button3: TButton
|
||||
AnchorSideLeft.Control = Button2
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = Button1
|
||||
Left = 220
|
||||
Left = 224
|
||||
Height = 25
|
||||
Top = 4
|
||||
Width = 59
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 4
|
||||
Caption = 'Font...'
|
||||
Font.Color = clWindowText
|
||||
OnClick = Button3Click
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
end
|
||||
object chkButtonFont: TCheckBox
|
||||
AnchorSideLeft.Control = chkFlat
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = chkSmallImages
|
||||
Left = 180
|
||||
Left = 185
|
||||
Height = 19
|
||||
Top = 33
|
||||
Width = 125
|
||||
BorderSpacing.Left = 24
|
||||
Caption = 'Change button font'
|
||||
Font.Color = clWindowText
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
end
|
||||
object chkFlat: TCheckBox
|
||||
AnchorSideLeft.Control = chkSmallImages
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = chkSmallImages
|
||||
Left = 117
|
||||
Left = 122
|
||||
Height = 19
|
||||
Top = 33
|
||||
Width = 39
|
||||
BorderSpacing.Left = 24
|
||||
Caption = 'Flat'
|
||||
Font.Color = clWindowText
|
||||
OnClick = chkFlatClick
|
||||
ParentFont = False
|
||||
TabOrder = 5
|
||||
end
|
||||
object chkThemed: TCheckBox
|
||||
@ -272,52 +294,59 @@ object OLBarMainForm: TOLBarMainForm
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = Button1
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 329
|
||||
Left = 334
|
||||
Height = 19
|
||||
Top = 7
|
||||
Width = 64
|
||||
BorderSpacing.Left = 24
|
||||
Caption = 'Themed'
|
||||
Checked = True
|
||||
Font.Color = clWindowText
|
||||
OnChange = chkThemedChange
|
||||
ParentFont = False
|
||||
State = cbChecked
|
||||
TabOrder = 6
|
||||
end
|
||||
object ChkThemedBackground: TCheckBox
|
||||
AnchorSideLeft.Control = chkThemed
|
||||
AnchorSideTop.Control = chkSmallImages
|
||||
Left = 329
|
||||
Left = 334
|
||||
Height = 19
|
||||
Top = 33
|
||||
Width = 131
|
||||
Caption = 'Themed background'
|
||||
Checked = True
|
||||
Font.Color = clWindowText
|
||||
OnChange = ChkThemedBackgroundChange
|
||||
ParentFont = False
|
||||
State = cbChecked
|
||||
TabOrder = 7
|
||||
end
|
||||
end
|
||||
object Memo1: TMemo
|
||||
Left = 0
|
||||
Height = 287
|
||||
Height = 279
|
||||
Top = 0
|
||||
Width = 631
|
||||
Width = 489
|
||||
Align = alClient
|
||||
Font.Color = clWindowText
|
||||
Lines.Strings = (
|
||||
'Right-click in the outlookbar to see the popup menus. There is one menu for the outlook bar itself, one for the pages and one for the buttons.'
|
||||
'Right-click in the outlookbar to see the popup menus. There is one menu for the outlook bar itself, one for the pages '
|
||||
'and one for the buttons.'
|
||||
''
|
||||
'See the code for an example on how to detect and assign the popup menus at run-time (the OnContextPopup event).'
|
||||
''
|
||||
'Use the buttons to modify the look of the outlookbar, pages and buttons.'
|
||||
)
|
||||
ParentFont = False
|
||||
ScrollBars = ssBoth
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object popOL: TPopupMenu
|
||||
Images = ImageList2
|
||||
left = 256
|
||||
top = 176
|
||||
Images = SmallImages
|
||||
left = 160
|
||||
top = 136
|
||||
object Defaultpopupmenu1: TMenuItem
|
||||
Caption = 'Default popup menu'
|
||||
end
|
||||
@ -325,11 +354,11 @@ object OLBarMainForm: TOLBarMainForm
|
||||
Action = acSmallButtons
|
||||
end
|
||||
end
|
||||
object ImageList1: TImageList
|
||||
object LargeImages: TImageList
|
||||
Height = 32
|
||||
Width = 32
|
||||
left = 448
|
||||
top = 88
|
||||
left = 160
|
||||
top = 192
|
||||
Bitmap = {
|
||||
4C69180000002000000020000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
@ -3406,9 +3435,9 @@ object OLBarMainForm: TOLBarMainForm
|
||||
0000000000000000000000000000
|
||||
}
|
||||
end
|
||||
object ImageList2: TImageList
|
||||
left = 520
|
||||
top = 88
|
||||
object SmallImages: TImageList
|
||||
left = 240
|
||||
top = 192
|
||||
Bitmap = {
|
||||
4C69180000001000000010000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
@ -4182,17 +4211,17 @@ object OLBarMainForm: TOLBarMainForm
|
||||
}
|
||||
end
|
||||
object popButton: TPopupMenu
|
||||
Images = ImageList2
|
||||
left = 232
|
||||
top = 88
|
||||
Images = SmallImages
|
||||
left = 240
|
||||
top = 136
|
||||
object Editbuttoncaption1: TMenuItem
|
||||
Action = acEditButtonCaption
|
||||
end
|
||||
end
|
||||
object popPage: TPopupMenu
|
||||
Images = ImageList2
|
||||
left = 296
|
||||
top = 88
|
||||
Images = SmallImages
|
||||
left = 320
|
||||
top = 144
|
||||
object Editpagecaption1: TMenuItem
|
||||
Action = acEditPageCaption
|
||||
end
|
||||
@ -4201,8 +4230,8 @@ object OLBarMainForm: TOLBarMainForm
|
||||
end
|
||||
end
|
||||
object ActionList1: TActionList
|
||||
left = 480
|
||||
top = 176
|
||||
left = 320
|
||||
top = 192
|
||||
object acSmallButtons: TAction
|
||||
Caption = 'Small Buttons'
|
||||
OnExecute = acSmallButtonsExecute
|
||||
|
||||
Reference in New Issue
Block a user