mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-24 07:09:07 +02:00
added help button to dialog
git-svn-id: trunk@16969 -
This commit is contained in:
parent
6712791e36
commit
ba07027e6d
@ -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
|
||||||
|
@ -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
|
||||||
]);
|
]);
|
||||||
|
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user