mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-22 06:20:45 +02:00
added help button to dialog
git-svn-id: trunk@16969 -
This commit is contained in:
darius
parent
6712791e36
commit
ba07027e6d
@ -1,68 +1,168 @@
|
||||
object CharacterMapDialog: TCharacterMapDialog
|
||||
Left = 426
|
||||
Height = 397
|
||||
Top = 221
|
||||
Left = 612
|
||||
Height = 421
|
||||
Top = 233
|
||||
Width = 471
|
||||
HelpContext = 0
|
||||
ActiveControl = CloseButton
|
||||
Align = alNone
|
||||
AllowDropFiles = False
|
||||
AutoScroll = True
|
||||
AutoSize = False
|
||||
BorderIcons = [biSystemMenu, biMinimize, biMaximize]
|
||||
BorderStyle = bsSizeable
|
||||
Caption = 'CharacterMapDialog'
|
||||
ClientHeight = 397
|
||||
ChildSizing.LeftRightSpacing = 0
|
||||
ChildSizing.TopBottomSpacing = 0
|
||||
ChildSizing.HorizontalSpacing = 0
|
||||
ChildSizing.VerticalSpacing = 0
|
||||
ChildSizing.ControlsPerLine = 0
|
||||
ClientHeight = 421
|
||||
ClientWidth = 471
|
||||
DockSite = False
|
||||
DragKind = dkDrag
|
||||
DragMode = dmManual
|
||||
Enabled = True
|
||||
Font.Height = 0
|
||||
Font.Style = []
|
||||
FormStyle = fsStayOnTop
|
||||
KeyPreview = True
|
||||
OnCreate = FormCreate
|
||||
OnShow = FormShow
|
||||
ParentBiDiMode = True
|
||||
ParentFont = False
|
||||
LCLVersion = '0.9.25'
|
||||
Position = poScreenCenter
|
||||
ShowInTaskBar = stDefault
|
||||
UseDockManager = False
|
||||
LCLVersion = '0.9.27'
|
||||
WindowState = wsNormal
|
||||
object CharInfoLabel: TLabel
|
||||
AnchorSideLeft.Control = CharactersGroupbox
|
||||
AnchorSideTop.Control = CloseButton
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideBottom.Control = HelpButton
|
||||
Left = 6
|
||||
Height = 14
|
||||
Top = 372
|
||||
Width = 69
|
||||
Height = 18
|
||||
Top = 357
|
||||
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'
|
||||
DragCursor = crDrag
|
||||
DragMode = dmManual
|
||||
Enabled = True
|
||||
Layout = tlTop
|
||||
ParentBidiMode = True
|
||||
ParentColor = False
|
||||
ParentFont = True
|
||||
ParentShowHint = True
|
||||
ShowAccelChar = True
|
||||
Transparent = True
|
||||
Visible = True
|
||||
WordWrap = False
|
||||
OptimalFill = False
|
||||
end
|
||||
object CharactersGroupbox: TGroupBox
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = Owner
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = CloseButton
|
||||
AnchorSideBottom.Control = CharInfoLabel
|
||||
Left = 6
|
||||
Height = 356
|
||||
Height = 345
|
||||
Top = 6
|
||||
Width = 459
|
||||
HelpContext = 0
|
||||
Align = alNone
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
AutoSize = False
|
||||
BorderSpacing.Left = 0
|
||||
BorderSpacing.Top = 0
|
||||
BorderSpacing.Right = 0
|
||||
BorderSpacing.Bottom = 0
|
||||
BorderSpacing.Around = 6
|
||||
BorderSpacing.CellAlignHorizontal = ccaFill
|
||||
BorderSpacing.CellAlignVertical = ccaFill
|
||||
Caption = 'Characters'
|
||||
ClientHeight = 338
|
||||
ChildSizing.LeftRightSpacing = 0
|
||||
ChildSizing.TopBottomSpacing = 0
|
||||
ChildSizing.HorizontalSpacing = 0
|
||||
ChildSizing.VerticalSpacing = 0
|
||||
ChildSizing.ControlsPerLine = 0
|
||||
ClientHeight = 326
|
||||
ClientWidth = 455
|
||||
Ctl3D = False
|
||||
DockSite = False
|
||||
DragCursor = crDrag
|
||||
DragKind = dkDrag
|
||||
DragMode = dmManual
|
||||
Enabled = True
|
||||
ParentBidiMode = True
|
||||
ParentColor = True
|
||||
ParentCtl3D = False
|
||||
ParentFont = True
|
||||
ParentShowHint = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
Visible = True
|
||||
object StringGrid1: TStringGrid
|
||||
AnchorSideLeft.Control = CharactersGroupbox
|
||||
AnchorSideTop.Control = CharactersGroupbox
|
||||
AnchorSideRight.Control = CharactersGroupbox
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = CharactersGroupbox
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 326
|
||||
Height = 314
|
||||
Top = 6
|
||||
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.CellAlignHorizontal = ccaFill
|
||||
BorderSpacing.CellAlignVertical = ccaFill
|
||||
BorderStyle = bsSingle
|
||||
ColCount = 17
|
||||
DefaultColWidth = 16
|
||||
DefaultDrawing = True
|
||||
DragCursor = crDrag
|
||||
DragKind = dkDrag
|
||||
DragMode = dmManual
|
||||
Enabled = True
|
||||
ExtendedSelect = True
|
||||
FixedColor = clBtnFace
|
||||
FixedCols = 1
|
||||
FixedRows = 1
|
||||
Flat = False
|
||||
GridLineWidth = 1
|
||||
HeaderHotZones = [gzFixedCols]
|
||||
HeaderPushZones = [gzFixedCols]
|
||||
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goSmoothScroll]
|
||||
ParentColor = False
|
||||
ParentFont = True
|
||||
ParentShowHint = True
|
||||
RowCount = 15
|
||||
ScrollBars = ssAutoBoth
|
||||
TabOrder = 0
|
||||
TabStop = True
|
||||
TitleFont.Height = 0
|
||||
TitleFont.Style = []
|
||||
TitleStyle = tsLazarus
|
||||
UseXORFeatures = False
|
||||
Visible = True
|
||||
OnMouseDown = StringGrid1MouseDown
|
||||
OnMouseMove = StringGrid1MouseMove
|
||||
end
|
||||
@ -72,17 +172,74 @@ object CharacterMapDialog: TCharacterMapDialog
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = Owner
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 396
|
||||
Height = 23
|
||||
Top = 368
|
||||
Width = 69
|
||||
Left = 371
|
||||
Height = 34
|
||||
Top = 381
|
||||
Width = 94
|
||||
HelpContext = 0
|
||||
Align = alNone
|
||||
Anchors = [akRight, 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 = '&Çàêðûòü'
|
||||
Default = False
|
||||
Enabled = True
|
||||
Kind = bkClose
|
||||
Layout = blGlyphLeft
|
||||
Margin = -1
|
||||
ModalResult = 0
|
||||
NumGlyphs = 0
|
||||
OnClick = CloseButtonClick
|
||||
ParentFont = True
|
||||
ParentShowHint = True
|
||||
Spacing = 3
|
||||
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
|
||||
|
||||
@ -1,38 +1,87 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TCharacterMapDialog','FORMDATA',[
|
||||
'TPF0'#19'TCharacterMapDialog'#18'CharacterMapDialog'#4'Left'#3#170#1#6'Heigh'
|
||||
+'t'#3#141#1#3'Top'#3#221#0#5'Width'#3#215#1#13'ActiveControl'#7#11'CloseButt'
|
||||
+'on'#7'Caption'#6#18'CharacterMapDialog'#12'ClientHeight'#3#141#1#11'ClientW'
|
||||
+'idth'#3#215#1#9'FormStyle'#7#11'fsStayOnTop'#10'KeyPreview'#9#8'OnCreate'#7
|
||||
+#10'FormCreate'#6'OnShow'#7#8'FormShow'#10'ParentFont'#8#10'LCLVersion'#6#6
|
||||
+'0.9.25'#0#6'TLabel'#13'CharInfoLabel'#22'AnchorSideLeft.Control'#7#18'Chara'
|
||||
+'ctersGroupbox'#21'AnchorSideTop.Control'#7#11'CloseButton'#18'AnchorSideTop'
|
||||
+'.Side'#7#9'asrCenter'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#6#6
|
||||
+'Height'#2#14#3'Top'#3't'#1#5'Width'#2'E'#7'Caption'#6#13'CharInfoLabel'#11
|
||||
+'ParentColor'#8#0#0#9'TGroupBox'#18'CharactersGroupbox'#22'AnchorSideLeft.Co'
|
||||
+'ntrol'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.C'
|
||||
+'ontrol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBot'
|
||||
+'tom.Control'#7#11'CloseButton'#4'Left'#2#6#6'Height'#3'd'#1#3'Top'#2#6#5'Wi'
|
||||
+'dth'#3#203#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'B'
|
||||
+'orderSpacing.Around'#2#6#7'Caption'#6#10'Characters'#12'ClientHeight'#3'R'#1
|
||||
+#11'ClientWidth'#3#199#1#11'ParentCtl3D'#8#8'TabOrder'#2#0#0#11'TStringGrid'
|
||||
+#11'StringGrid1'#22'AnchorSideLeft.Control'#7#18'CharactersGroupbox'#21'Anch'
|
||||
+'orSideTop.Control'#7#18'CharactersGroupbox'#23'AnchorSideRight.Control'#7#18
|
||||
+'CharactersGroupbox'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBo'
|
||||
+'ttom.Control'#7#18'CharactersGroupbox'#21'AnchorSideBottom.Side'#7#9'asrBot'
|
||||
+'tom'#4'Left'#2#6#6'Height'#3'F'#1#3'Top'#2#6#5'Width'#3#187#1#7'Anchors'#11
|
||||
+#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#8
|
||||
+'ColCount'#2#17#15'DefaultColWidth'#2#16#14'ExtendedSelect'#9#10'FixedColor'
|
||||
+#7#9'clBtnFace'#7'Options'#11#15'goFixedVertLine'#15'goFixedHorzLine'#10'goV'
|
||||
+'ertLine'#10'goHorzLine'#14'goSmoothScroll'#0#11'ParentColor'#8#8'RowCount'#2
|
||||
+#15#8'TabOrder'#2#0#11'OnMouseDown'#7#20'StringGrid1MouseDown'#11'OnMouseMov'
|
||||
+'e'#7#20'StringGrid1MouseMove'#0#0#0#7'TBitBtn'#11'CloseButton'#23'AnchorSid'
|
||||
+'eRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'Ancho'
|
||||
+'rSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4
|
||||
+'Left'#3#140#1#6'Height'#2#23#3'Top'#3'p'#1#5'Width'#2'E'#7'Anchors'#11#7'ak'
|
||||
+'Right'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6
|
||||
+#15'&'#195#135#195#160#195#170#195#176#195#187#195#178#195#188#4'Kind'#7#7'b'
|
||||
+'kClose'#9'NumGlyphs'#2#0#7'OnClick'#7#16'CloseButtonClick'#8'TabOrder'#2#1#0
|
||||
+#0#0
|
||||
'TPF0'#19'TCharacterMapDialog'#18'CharacterMapDialog'#4'Left'#3'd'#2#6'Height'
|
||||
+#3#165#1#3'Top'#3#233#0#5'Width'#3#215#1#11'HelpContext'#2#0#13'ActiveContro'
|
||||
+'l'#7#11'CloseButton'#5'Align'#7#6'alNone'#14'AllowDropFiles'#8#10'AutoScrol'
|
||||
+'l'#9#8'AutoSize'#8#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'#10'bi'
|
||||
+'Maximize'#0#11'BorderStyle'#7#10'bsSizeable'#7'Caption'#6#18'CharacterMapDi'
|
||||
+'alog'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'
|
||||
+#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2
|
||||
+#0#27'ChildSizing.ControlsPerLine'#2#0#12'ClientHeight'#3#165#1#11'ClientWid'
|
||||
+'th'#3#215#1#8'DockSite'#8#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'
|
||||
+#7'Enabled'#9#11'Font.Height'#2#0#10'Font.Style'#11#0#9'FormStyle'#7#11'fsSt'
|
||||
+'ayOnTop'#10'KeyPreview'#9#8'OnCreate'#7#10'FormCreate'#6'OnShow'#7#8'FormSh'
|
||||
+'ow'#14'ParentBiDiMode'#9#10'ParentFont'#8#8'Position'#7#14'poScreenCenter'
|
||||
+#13'ShowInTaskBar'#7#9'stDefault'#14'UseDockManager'#8#10'LCLVersion'#6#6'0.'
|
||||
+'9.27'#11'WindowState'#7#8'wsNormal'#0#6'TLabel'#13'CharInfoLabel'#22'Anchor'
|
||||
+'SideLeft.Control'#7#5'Owner'#18'AnchorSideTop.Side'#7#9'asrBottom'#24'Ancho'
|
||||
+'rSideBottom.Control'#7#10'HelpButton'#4'Left'#2#6#6'Height'#2#18#3'Top'#3'e'
|
||||
+#1#5'Width'#2'X'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13
|
||||
+'taLeftJustify'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#18'Borde'
|
||||
+'rSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20
|
||||
+'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellA'
|
||||
+'lignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFil'
|
||||
+'l'#7'Caption'#6#13'CharInfoLabel'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8
|
||||
+'dmManual'#7'Enabled'#9#6'Layout'#7#5'tlTop'#14'ParentBidiMode'#9#11'ParentC'
|
||||
+'olor'#8#10'ParentFont'#9#14'ParentShowHint'#9#13'ShowAccelChar'#9#11'Transp'
|
||||
+'arent'#9#7'Visible'#9#8'WordWrap'#8#11'OptimalFill'#8#0#0#9'TGroupBox'#18'C'
|
||||
+'haractersGroupbox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.C'
|
||||
+'ontrol'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRigh'
|
||||
+'t.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#13'CharInfoLabel'#4'L'
|
||||
+'eft'#2#6#6'Height'#3'Y'#1#3'Top'#2#6#5'Width'#3#203#1#11'HelpContext'#2#0#5
|
||||
+'Align'#7#6'alNone'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0
|
||||
+#8'AutoSize'#8#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'Borde'
|
||||
+'rSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2
|
||||
+#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAli'
|
||||
+'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
|
||||
]);
|
||||
|
||||
@ -38,7 +38,7 @@ interface
|
||||
uses
|
||||
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons,
|
||||
StdCtrls, LCLType, GraphType, LazarusIDEStrConsts, EditorOptions,
|
||||
EnvironmentOpts, Grids;
|
||||
EnvironmentOpts, Grids, IDEContextHelpEdit;
|
||||
|
||||
type
|
||||
TOnInsertCharacterEvent = procedure (const C: TUTF8Char) of object;
|
||||
@ -46,10 +46,12 @@ type
|
||||
{ TCharacterMapDialog }
|
||||
|
||||
TCharacterMapDialog = class(TForm)
|
||||
HelpButton: TBitBtn;
|
||||
CharactersGroupbox: TGroupbox;
|
||||
CharInfoLabel: TLabel;
|
||||
CloseButton: TBitBtn;
|
||||
StringGrid1: TStringGrid;
|
||||
procedure HelpButtonClick(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure CloseButtonClick(Sender: TObject);
|
||||
@ -89,10 +91,17 @@ begin
|
||||
CharactersGroupbox.Caption := lisCharacterMap;
|
||||
CloseButton.Caption := lisClose;
|
||||
CloseButton.LoadGlyphFromLazarusResource('btn_close');
|
||||
HelpButton.LoadGlyphFromLazarusResource('btn_help');
|
||||
//EnvironmentOptions.IDEWindowLayoutList.Apply(Self, Name);
|
||||
CharInfoLabel.Caption := '-';
|
||||
FillCharMap;
|
||||
end;
|
||||
|
||||
procedure TCharacterMapDialog.HelpButtonClick(Sender: TObject);
|
||||
begin
|
||||
ShowContextHelpForIDE(Self);
|
||||
end;
|
||||
|
||||
procedure TCharacterMapDialog.FormShow(Sender: TObject);
|
||||
begin
|
||||
StringGrid1.Font.Name := EditorOpts.EditorFont;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user