added help button to dialog

git-svn-id: trunk@16969 -
This commit is contained in:
darius 2008-10-11 22:01:51 +00:00
parent 6712791e36
commit ba07027e6d
3 changed files with 275 additions and 60 deletions

View File

@ -1,68 +1,168 @@
object CharacterMapDialog: TCharacterMapDialog object CharacterMapDialog: TCharacterMapDialog
Left = 426 Left = 612
Height = 397 Height = 421
Top = 221 Top = 233
Width = 471 Width = 471
HelpContext = 0
ActiveControl = CloseButton ActiveControl = CloseButton
Align = alNone
AllowDropFiles = False
AutoScroll = True
AutoSize = False
BorderIcons = [biSystemMenu, biMinimize, biMaximize]
BorderStyle = bsSizeable
Caption = 'CharacterMapDialog' Caption = 'CharacterMapDialog'
ClientHeight = 397 ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 421
ClientWidth = 471 ClientWidth = 471
DockSite = False
DragKind = dkDrag
DragMode = dmManual
Enabled = True
Font.Height = 0
Font.Style = []
FormStyle = fsStayOnTop FormStyle = fsStayOnTop
KeyPreview = True KeyPreview = True
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
ParentBiDiMode = True
ParentFont = False ParentFont = False
LCLVersion = '0.9.25' Position = poScreenCenter
ShowInTaskBar = stDefault
UseDockManager = False
LCLVersion = '0.9.27'
WindowState = wsNormal
object CharInfoLabel: TLabel object CharInfoLabel: TLabel
AnchorSideLeft.Control = CharactersGroupbox AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CloseButton AnchorSideTop.Side = asrBottom
AnchorSideTop.Side = asrCenter AnchorSideBottom.Control = HelpButton
AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 14 Height = 18
Top = 372 Top = 357
Width = 69 Width = 88
HelpContext = 0
Align = alNone
Alignment = taLeftJustify
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'CharInfoLabel' Caption = 'CharInfoLabel'
DragCursor = crDrag
DragMode = dmManual
Enabled = True
Layout = tlTop
ParentBidiMode = True
ParentColor = False ParentColor = False
ParentFont = True
ParentShowHint = True
ShowAccelChar = True
Transparent = True
Visible = True
WordWrap = False
OptimalFill = False
end end
object CharactersGroupbox: TGroupBox object CharactersGroupbox: TGroupBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = CloseButton AnchorSideBottom.Control = CharInfoLabel
Left = 6 Left = 6
Height = 356 Height = 345
Top = 6 Top = 6
Width = 459 Width = 459
HelpContext = 0
Align = alNone
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6 BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'Characters' Caption = 'Characters'
ClientHeight = 338 ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 326
ClientWidth = 455 ClientWidth = 455
Ctl3D = False
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
ParentBidiMode = True
ParentColor = True
ParentCtl3D = False ParentCtl3D = False
ParentFont = True
ParentShowHint = True
TabOrder = 0 TabOrder = 0
TabStop = False
Visible = True
object StringGrid1: TStringGrid object StringGrid1: TStringGrid
AnchorSideLeft.Control = CharactersGroupbox
AnchorSideTop.Control = CharactersGroupbox
AnchorSideRight.Control = CharactersGroupbox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = CharactersGroupbox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 326 Height = 314
Top = 6 Top = 6
Width = 443 Width = 443
Anchors = [akTop, akLeft, akRight, akBottom] HelpContext = 0
Align = alClient
Anchors = []
AutoAdvance = aaRight
AutoEdit = True
AutoFillColumns = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6 BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
BorderStyle = bsSingle
ColCount = 17 ColCount = 17
DefaultColWidth = 16 DefaultColWidth = 16
DefaultDrawing = True
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
ExtendedSelect = True ExtendedSelect = True
FixedColor = clBtnFace FixedColor = clBtnFace
FixedCols = 1
FixedRows = 1
Flat = False
GridLineWidth = 1
HeaderHotZones = [gzFixedCols]
HeaderPushZones = [gzFixedCols]
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goSmoothScroll] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goSmoothScroll]
ParentColor = False ParentColor = False
ParentFont = True
ParentShowHint = True
RowCount = 15 RowCount = 15
ScrollBars = ssAutoBoth
TabOrder = 0 TabOrder = 0
TabStop = True
TitleFont.Height = 0
TitleFont.Style = []
TitleStyle = tsLazarus
UseXORFeatures = False
Visible = True
OnMouseDown = StringGrid1MouseDown OnMouseDown = StringGrid1MouseDown
OnMouseMove = StringGrid1MouseMove OnMouseMove = StringGrid1MouseMove
end end
@ -72,17 +172,74 @@ object CharacterMapDialog: TCharacterMapDialog
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 396 Left = 371
Height = 23 Height = 34
Top = 368 Top = 381
Width = 69 Width = 94
HelpContext = 0
Align = alNone
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6 BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Cancel = False
Caption = '&Çàêðûòü' Caption = '&Çàêðûòü'
Default = False
Enabled = True
Kind = bkClose Kind = bkClose
Layout = blGlyphLeft
Margin = -1
ModalResult = 0
NumGlyphs = 0 NumGlyphs = 0
OnClick = CloseButtonClick OnClick = CloseButtonClick
ParentFont = True
ParentShowHint = True
Spacing = 3
TabOrder = 1 TabOrder = 1
TabStop = True
Visible = True
end
object HelpButton: TBitBtn
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CharInfoLabel
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 34
Top = 381
Width = 66
HelpContext = 0
Align = alNone
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Cancel = False
Caption = '&Help'
Default = False
Enabled = True
Kind = bkHelp
Layout = blGlyphLeft
Margin = -1
ModalResult = 0
NumGlyphs = 0
OnClick = HelpButtonClick
ParentFont = True
ParentShowHint = True
Spacing = 3
TabOrder = 2
TabStop = True
Visible = True
end end
end end

View File

@ -1,38 +1,87 @@
{ This is an automatically generated lazarus resource file } { This is an automatically generated lazarus resource file }
LazarusResources.Add('TCharacterMapDialog','FORMDATA',[ LazarusResources.Add('TCharacterMapDialog','FORMDATA',[
'TPF0'#19'TCharacterMapDialog'#18'CharacterMapDialog'#4'Left'#3#170#1#6'Heigh' 'TPF0'#19'TCharacterMapDialog'#18'CharacterMapDialog'#4'Left'#3'd'#2#6'Height'
+'t'#3#141#1#3'Top'#3#221#0#5'Width'#3#215#1#13'ActiveControl'#7#11'CloseButt' +#3#165#1#3'Top'#3#233#0#5'Width'#3#215#1#11'HelpContext'#2#0#13'ActiveContro'
+'on'#7'Caption'#6#18'CharacterMapDialog'#12'ClientHeight'#3#141#1#11'ClientW' +'l'#7#11'CloseButton'#5'Align'#7#6'alNone'#14'AllowDropFiles'#8#10'AutoScrol'
+'idth'#3#215#1#9'FormStyle'#7#11'fsStayOnTop'#10'KeyPreview'#9#8'OnCreate'#7 +'l'#9#8'AutoSize'#8#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'#10'bi'
+#10'FormCreate'#6'OnShow'#7#8'FormShow'#10'ParentFont'#8#10'LCLVersion'#6#6 +'Maximize'#0#11'BorderStyle'#7#10'bsSizeable'#7'Caption'#6#18'CharacterMapDi'
+'0.9.25'#0#6'TLabel'#13'CharInfoLabel'#22'AnchorSideLeft.Control'#7#18'Chara' +'alog'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'
+'ctersGroupbox'#21'AnchorSideTop.Control'#7#11'CloseButton'#18'AnchorSideTop' +#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2
+'.Side'#7#9'asrCenter'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#6#6 +#0#27'ChildSizing.ControlsPerLine'#2#0#12'ClientHeight'#3#165#1#11'ClientWid'
+'Height'#2#14#3'Top'#3't'#1#5'Width'#2'E'#7'Caption'#6#13'CharInfoLabel'#11 +'th'#3#215#1#8'DockSite'#8#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'
+'ParentColor'#8#0#0#9'TGroupBox'#18'CharactersGroupbox'#22'AnchorSideLeft.Co' +#7'Enabled'#9#11'Font.Height'#2#0#10'Font.Style'#11#0#9'FormStyle'#7#11'fsSt'
+'ntrol'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.C' +'ayOnTop'#10'KeyPreview'#9#8'OnCreate'#7#10'FormCreate'#6'OnShow'#7#8'FormSh'
+'ontrol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBot' +'ow'#14'ParentBiDiMode'#9#10'ParentFont'#8#8'Position'#7#14'poScreenCenter'
+'tom.Control'#7#11'CloseButton'#4'Left'#2#6#6'Height'#3'd'#1#3'Top'#2#6#5'Wi' +#13'ShowInTaskBar'#7#9'stDefault'#14'UseDockManager'#8#10'LCLVersion'#6#6'0.'
+'dth'#3#203#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'B' +'9.27'#11'WindowState'#7#8'wsNormal'#0#6'TLabel'#13'CharInfoLabel'#22'Anchor'
+'orderSpacing.Around'#2#6#7'Caption'#6#10'Characters'#12'ClientHeight'#3'R'#1 +'SideLeft.Control'#7#5'Owner'#18'AnchorSideTop.Side'#7#9'asrBottom'#24'Ancho'
+#11'ClientWidth'#3#199#1#11'ParentCtl3D'#8#8'TabOrder'#2#0#0#11'TStringGrid' +'rSideBottom.Control'#7#10'HelpButton'#4'Left'#2#6#6'Height'#2#18#3'Top'#3'e'
+#11'StringGrid1'#22'AnchorSideLeft.Control'#7#18'CharactersGroupbox'#21'Anch' +#1#5'Width'#2'X'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13
+'orSideTop.Control'#7#18'CharactersGroupbox'#23'AnchorSideRight.Control'#7#18 +'taLeftJustify'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#18'Borde'
+'CharactersGroupbox'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBo' +'rSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20
+'ttom.Control'#7#18'CharactersGroupbox'#21'AnchorSideBottom.Side'#7#9'asrBot' +'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellA'
+'tom'#4'Left'#2#6#6'Height'#3'F'#1#3'Top'#2#6#5'Width'#3#187#1#7'Anchors'#11 +'lignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFil'
+#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#8 +'l'#7'Caption'#6#13'CharInfoLabel'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8
+'ColCount'#2#17#15'DefaultColWidth'#2#16#14'ExtendedSelect'#9#10'FixedColor' +'dmManual'#7'Enabled'#9#6'Layout'#7#5'tlTop'#14'ParentBidiMode'#9#11'ParentC'
+#7#9'clBtnFace'#7'Options'#11#15'goFixedVertLine'#15'goFixedHorzLine'#10'goV' +'olor'#8#10'ParentFont'#9#14'ParentShowHint'#9#13'ShowAccelChar'#9#11'Transp'
+'ertLine'#10'goHorzLine'#14'goSmoothScroll'#0#11'ParentColor'#8#8'RowCount'#2 +'arent'#9#7'Visible'#9#8'WordWrap'#8#11'OptimalFill'#8#0#0#9'TGroupBox'#18'C'
+#15#8'TabOrder'#2#0#11'OnMouseDown'#7#20'StringGrid1MouseDown'#11'OnMouseMov' +'haractersGroupbox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.C'
+'e'#7#20'StringGrid1MouseMove'#0#0#0#7'TBitBtn'#11'CloseButton'#23'AnchorSid' +'ontrol'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRigh'
+'eRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'Ancho' +'t.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#13'CharInfoLabel'#4'L'
+'rSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4 +'eft'#2#6#6'Height'#3'Y'#1#3'Top'#2#6#5'Width'#3#203#1#11'HelpContext'#2#0#5
+'Left'#3#140#1#6'Height'#2#23#3'Top'#3'p'#1#5'Width'#2'E'#7'Anchors'#11#7'ak' +'Align'#7#6'alNone'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0
+'Right'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6 +#8'AutoSize'#8#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'Borde'
+#15'&'#195#135#195#160#195#170#195#176#195#187#195#178#195#188#4'Kind'#7#7'b' +'rSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2
+'kClose'#9'NumGlyphs'#2#0#7'OnClick'#7#16'CloseButtonClick'#8'TabOrder'#2#1#0 +#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAli'
+#0#0 +'gnVertical'#7#7'ccaFill'#7'Caption'#6#10'Characters'#28'ChildSizing.LeftRig'
+'htSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29'ChildSizing.Horizont'
+'alSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'ChildSizing.ControlsP'
+'erLine'#2#0#12'ClientHeight'#3'F'#1#11'ClientWidth'#3#199#1#5'Ctl3D'#8#8'Do'
+'ckSite'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8
+'dmManual'#7'Enabled'#9#14'ParentBidiMode'#9#11'ParentColor'#9#11'ParentCtl3'
+'D'#8#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#0#7'TabStop'#8#7'V'
+'isible'#9#0#11'TStringGrid'#11'StringGrid1'#20'AnchorSideRight.Side'#7#9'as'
+'rBottom'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#3':'
+#1#3'Top'#2#6#5'Width'#3#187#1#11'HelpContext'#2#0#5'Align'#7#8'alClient'#7
+'Anchors'#11#0#11'AutoAdvance'#7#7'aaRight'#8'AutoEdit'#9#15'AutoFillColumns'
+#8#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Rig'
+'ht'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!BorderSp'
+'acing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'
+#7#7'ccaFill'#11'BorderStyle'#7#8'bsSingle'#8'ColCount'#2#17#15'DefaultColWi'
+'dth'#2#16#14'DefaultDrawing'#9#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'd'
+'kDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ExtendedSelect'#9#10'Fixed'
+'Color'#7#9'clBtnFace'#9'FixedCols'#2#1#9'FixedRows'#2#1#4'Flat'#8#13'GridLi'
+'neWidth'#2#1#14'HeaderHotZones'#11#11'gzFixedCols'#0#15'HeaderPushZones'#11
+#11'gzFixedCols'#0#7'Options'#11#15'goFixedVertLine'#15'goFixedHorzLine'#10
+'goVertLine'#10'goHorzLine'#14'goSmoothScroll'#0#11'ParentColor'#8#10'Parent'
+'Font'#9#14'ParentShowHint'#9#8'RowCount'#2#15#10'ScrollBars'#7#10'ssAutoBot'
+'h'#8'TabOrder'#2#0#7'TabStop'#9#16'TitleFont.Height'#2#0#15'TitleFont.Style'
+#11#0#10'TitleStyle'#7#9'tsLazarus'#14'UseXORFeatures'#8#7'Visible'#9#11'OnM'
+'ouseDown'#7#20'StringGrid1MouseDown'#11'OnMouseMove'#7#20'StringGrid1MouseM'
+'ove'#0#0#0#7'TBitBtn'#11'CloseButton'#23'AnchorSideRight.Control'#7#5'Owner'
+#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#5'Ow'
+'ner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3's'#1#6'Height'#2'"'
+#3'Top'#3'}'#1#5'Width'#2'^'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#7'Anch'
+'ors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17
+'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'
,#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'cc'
+'aFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#6'Cancel'#8#7'Capti'
+'on'#6#15'&'#195#135#195#160#195#170#195#176#195#187#195#178#195#188#7'Defau'
+'lt'#8#7'Enabled'#9#4'Kind'#7#7'bkClose'#6'Layout'#7#11'blGlyphLeft'#6'Margi'
+'n'#2#255#11'ModalResult'#2#0#9'NumGlyphs'#2#0#7'OnClick'#7#16'CloseButtonCl'
+'ick'#10'ParentFont'#9#14'ParentShowHint'#9#7'Spacing'#2#3#8'TabOrder'#2#1#7
+'TabStop'#9#7'Visible'#9#0#0#7'TBitBtn'#10'HelpButton'#22'AnchorSideLeft.Con'
+'trol'#7#5'Owner'#21'AnchorSideTop.Control'#7#13'CharInfoLabel'#18'AnchorSid'
+'eTop.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#5'Owner'#21'Anchor'
+'SideBottom.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'"'#3'Top'#3'}'#1#5
+'Width'#2'B'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#7'Anchors'#11#6'akLeft'
+#8'akBottom'#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'
+#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpaci'
+'ng.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSp'
+'acing.CellAlignVertical'#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6#5'&Help'#7'D'
+'efault'#8#7'Enabled'#9#4'Kind'#7#6'bkHelp'#6'Layout'#7#11'blGlyphLeft'#6'Ma'
+'rgin'#2#255#11'ModalResult'#2#0#9'NumGlyphs'#2#0#7'OnClick'#7#15'HelpButton'
+'Click'#10'ParentFont'#9#14'ParentShowHint'#9#7'Spacing'#2#3#8'TabOrder'#2#2
+#7'TabStop'#9#7'Visible'#9#0#0#0
]); ]);

View File

@ -38,7 +38,7 @@ interface
uses uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons, Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons,
StdCtrls, LCLType, GraphType, LazarusIDEStrConsts, EditorOptions, StdCtrls, LCLType, GraphType, LazarusIDEStrConsts, EditorOptions,
EnvironmentOpts, Grids; EnvironmentOpts, Grids, IDEContextHelpEdit;
type type
TOnInsertCharacterEvent = procedure (const C: TUTF8Char) of object; TOnInsertCharacterEvent = procedure (const C: TUTF8Char) of object;
@ -46,10 +46,12 @@ type
{ TCharacterMapDialog } { TCharacterMapDialog }
TCharacterMapDialog = class(TForm) TCharacterMapDialog = class(TForm)
HelpButton: TBitBtn;
CharactersGroupbox: TGroupbox; CharactersGroupbox: TGroupbox;
CharInfoLabel: TLabel; CharInfoLabel: TLabel;
CloseButton: TBitBtn; CloseButton: TBitBtn;
StringGrid1: TStringGrid; StringGrid1: TStringGrid;
procedure HelpButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure CloseButtonClick(Sender: TObject); procedure CloseButtonClick(Sender: TObject);
@ -89,10 +91,17 @@ begin
CharactersGroupbox.Caption := lisCharacterMap; CharactersGroupbox.Caption := lisCharacterMap;
CloseButton.Caption := lisClose; CloseButton.Caption := lisClose;
CloseButton.LoadGlyphFromLazarusResource('btn_close'); CloseButton.LoadGlyphFromLazarusResource('btn_close');
HelpButton.LoadGlyphFromLazarusResource('btn_help');
//EnvironmentOptions.IDEWindowLayoutList.Apply(Self, Name); //EnvironmentOptions.IDEWindowLayoutList.Apply(Self, Name);
CharInfoLabel.Caption := '-';
FillCharMap; FillCharMap;
end; end;
procedure TCharacterMapDialog.HelpButtonClick(Sender: TObject);
begin
ShowContextHelpForIDE(Self);
end;
procedure TCharacterMapDialog.FormShow(Sender: TObject); procedure TCharacterMapDialog.FormShow(Sender: TObject);
begin begin
StringGrid1.Font.Name := EditorOpts.EditorFont; StringGrid1.Font.Name := EditorOpts.EditorFont;