paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 15:10:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: improve anchoring of character map, change combo style to prevent editing of text

Browse Source 
git-svn-id: trunk@18387 -
This commit is contained in:
paul 2009-01-22 08:04:20 +00:00
parent d4af1c75ec
commit fbc5ba49f3
2 changed files with 90 additions and 64 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
ide/charactermapdlg.lfm
View File

@ -15,11 +15,12 @@ object CharacterMapDialog: TCharacterMapDialog
LCLVersion = '0.9.27' LCLVersion = '0.9.27'
object ButtonPanel: TButtonPanel object ButtonPanel: TButtonPanel
Left = 6 Left = 6
Height = 48 Height = 30
Top = 378 Top = 396
Width = 472 Width = 472
TabOrder = 0 TabOrder = 0
ShowButtons = [pbClose, pbHelp] ShowButtons = [pbClose, pbHelp]
ShowBevel = False
end end
object PageControl1: TPageControl object PageControl1: TPageControl
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -28,7 +29,7 @@ object CharacterMapDialog: TCharacterMapDialog
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonPanel AnchorSideBottom.Control = ButtonPanel
Left = 6 Left = 6
Height = 366 Height = 384
Top = 6 Top = 6
Width = 472 Width = 472
ActivePage = TabSheet1 ActivePage = TabSheet1
@ -38,28 +39,34 @@ object CharacterMapDialog: TCharacterMapDialog
TabOrder = 1 TabOrder = 1
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'ANSI' Caption = 'ANSI'
ClientHeight = 336 ClientHeight = 358
ClientWidth = 468 ClientWidth = 464
object CharInfoLabel: TLabel object CharInfoLabel: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = TabSheet1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TabSheet1
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TabSheet1
AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 17 Height = 14
Top = 313 Top = 338
Width = 456 Width = 452
Align = alBottom Anchors = [akLeft, akRight, akBottom]
Anchors = [akLeft, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'CharInfoLabel' Caption = 'CharInfoLabel'
ParentColor = False ParentColor = False
end end
object StringGrid1: TStringGrid object StringGrid1: TStringGrid
AnchorSideLeft.Control = TabSheet1
AnchorSideTop.Control = TabSheet1
AnchorSideRight.Control = TabSheet1
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Control = CharInfoLabel
Left = 0 Left = 0
Height = 288 Height = 332
Top = 0 Top = 0
Width = 468 Width = 464
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
ColCount = 17 ColCount = 17
DefaultColWidth = 16 DefaultColWidth = 16
@ -72,29 +79,33 @@ object CharacterMapDialog: TCharacterMapDialog
end end
object TabSheet2: TTabSheet object TabSheet2: TTabSheet
Caption = 'Unicode' Caption = 'Unicode'
ClientHeight = 336 ClientHeight = 358
ClientWidth = 468 ClientWidth = 464
object UnicodeCharInfoLabel: TLabel object UnicodeCharInfoLabel: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Side = asrBottom AnchorSideTop.Control = cbUniRange
AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 17 Height = 14
Top = 313 Top = 334
Width = 126 Width = 107
Anchors = [akLeft, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'UnicodeCharInfoLabel' Caption = 'UnicodeCharInfoLabel'
ParentColor = False ParentColor = False
end end
object StringGrid2: TStringGrid object StringGrid2: TStringGrid
AnchorSideLeft.Control = TabSheet2
AnchorSideTop.Control = TabSheet2
AnchorSideRight.Control = TabSheet2
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = cbUniRange
Left = 0 Left = 0
Height = 288 Height = 325
Top = 0 Top = 0
Width = 468 Width = 464
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
ColCount = 16 ColCount = 16
DefaultColWidth = 26 DefaultColWidth = 16
DefaultRowHeight = 26
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goSmoothScroll] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goSmoothScroll]
RowCount = 15 RowCount = 15
TabOrder = 0 TabOrder = 0
@ -102,17 +113,22 @@ object CharacterMapDialog: TCharacterMapDialog
OnMouseMove = StringGrid2MouseMove OnMouseMove = StringGrid2MouseMove
end end
object cbUniRange: TComboBox object cbUniRange: TComboBox
Left = 253 AnchorSideRight.Control = TabSheet2
Height = 24 AnchorSideRight.Side = asrBottom
Top = 305 AnchorSideBottom.Control = TabSheet2
AnchorSideBottom.Side = asrBottom
Left = 246
Height = 21
Top = 331
Width = 212 Width = 212
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
AutoComplete = False AutoComplete = False
ItemHeight = 0 BorderSpacing.Around = 6
ItemHeight = 13
ItemWidth = 0 ItemWidth = 0
OnSelect = cbUniRangeSelect OnSelect = cbUniRangeSelect
Style = csDropDownList
TabOrder = 1 TabOrder = 1
Text = 'cbUniRange'
end end
end end
end end

78
ide/charactermapdlg.lrs
View File

@ -7,38 +7,48 @@ LazarusResources.Add('TCharacterMapDialog','FORMDATA',[
+#3#228#1#9'FormStyle'#7#11'fsStayOnTop'#10'KeyPreview'#9#8'OnCreate'#7#10'Fo' +#3#228#1#9'FormStyle'#7#11'fsStayOnTop'#10'KeyPreview'#9#8'OnCreate'#7#10'Fo'
+'rmCreate'#6'OnShow'#7#8'FormShow'#8'Position'#7#14'poScreenCenter'#10'LCLVe' +'rmCreate'#6'OnShow'#7#8'FormShow'#8'Position'#7#14'poScreenCenter'#10'LCLVe'
+'rsion'#6#6'0.9.27'#0#12'TButtonPanel'#11'ButtonPanel'#4'Left'#2#6#6'Height' +'rsion'#6#6'0.9.27'#0#12'TButtonPanel'#11'ButtonPanel'#4'Left'#2#6#6'Height'
+#2'0'#3'Top'#3'z'#1#5'Width'#3#216#1#8'TabOrder'#2#0#11'ShowButtons'#11#7'pb' +#2#30#3'Top'#3#140#1#5'Width'#3#216#1#8'TabOrder'#2#0#11'ShowButtons'#11#7'p'
+'Close'#6'pbHelp'#0#0#0#12'TPageControl'#12'PageControl1'#22'AnchorSideLeft.' +'bClose'#6'pbHelp'#0#9'ShowBevel'#8#0#0#12'TPageControl'#12'PageControl1'#22
+'Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight' +'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23
+'.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideB' +'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'
+'ottom.Control'#7#11'ButtonPanel'#4'Left'#2#6#6'Height'#3'n'#1#3'Top'#2#6#5 +#24'AnchorSideBottom.Control'#7#11'ButtonPanel'#4'Left'#2#6#6'Height'#3#128#1
+'Width'#3#216#1#10'ActivePage'#7#9'TabSheet1'#7'Anchors'#11#5'akTop'#6'akLef' +#3'Top'#2#6#5'Width'#3#216#1#10'ActivePage'#7#9'TabSheet1'#7'Anchors'#11#5'a'
+'t'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#8'TabIndex'#2#0#8 +'kTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#8'Tab'
+'TabOrder'#2#1#0#9'TTabSheet'#9'TabSheet1'#7'Caption'#6#4'ANSI'#12'ClientHei' +'Index'#2#0#8'TabOrder'#2#1#0#9'TTabSheet'#9'TabSheet1'#7'Caption'#6#4'ANSI'
+'ght'#3'P'#1#11'ClientWidth'#3#212#1#0#6'TLabel'#13'CharInfoLabel'#22'Anchor' +#12'ClientHeight'#3'f'#1#11'ClientWidth'#3#208#1#0#6'TLabel'#13'CharInfoLabe'
+'SideLeft.Control'#7#5'Owner'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2 +'l'#22'AnchorSideLeft.Control'#7#9'TabSheet1'#18'AnchorSideTop.Side'#7#9'asr'
+#6#6'Height'#2#17#3'Top'#3'9'#1#5'Width'#3#200#1#5'Align'#7#8'alBottom'#7'An' +'Bottom'#23'AnchorSideRight.Control'#7#9'TabSheet1'#20'AnchorSideRight.Side'
+'chors'#11#6'akLeft'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6 +#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#9'TabSheet1'#21'AnchorSideBot'
+#13'CharInfoLabel'#11'ParentColor'#8#0#0#11'TStringGrid'#11'StringGrid1'#20 +'tom.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#14#3'Top'#3'R'#1#5'Width'#3
+'AnchorSideRight.Side'#7#9'asrBottom'#21'AnchorSideBottom.Side'#7#9'asrBotto' +#196#1#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Aro'
+'m'#4'Left'#2#0#6'Height'#3' '#1#3'Top'#2#0#5'Width'#3#212#1#7'Anchors'#11#5 +'und'#2#6#7'Caption'#6#13'CharInfoLabel'#11'ParentColor'#8#0#0#11'TStringGri'
+'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#8'ColCount'#2#17#15'DefaultColWid' +'d'#11'StringGrid1'#22'AnchorSideLeft.Control'#7#9'TabSheet1'#21'AnchorSideT'
+'th'#2#16#7'Options'#11#15'goFixedVertLine'#15'goFixedHorzLine'#10'goVertLin' +'op.Control'#7#9'TabSheet1'#23'AnchorSideRight.Control'#7#9'TabSheet1'#20'An'
+'e'#10'goHorzLine'#14'goSmoothScroll'#0#8'RowCount'#2#15#8'TabOrder'#2#0#11 +'chorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#13'CharIn'
+'OnMouseDown'#7#20'StringGrid1MouseDown'#11'OnMouseMove'#7#20'StringGrid1Mou' +'foLabel'#4'Left'#2#0#6'Height'#3'L'#1#3'Top'#2#0#5'Width'#3#208#1#7'Anchors'
+'seMove'#0#0#0#9'TTabSheet'#9'TabSheet2'#7'Caption'#6#7'Unicode'#12'ClientHe' +#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#8'ColCount'#2#17#15'DefaultC'
+'ight'#3'P'#1#11'ClientWidth'#3#212#1#0#6'TLabel'#20'UnicodeCharInfoLabel'#22 +'olWidth'#2#16#7'Options'#11#15'goFixedVertLine'#15'goFixedHorzLine'#10'goVe'
+'AnchorSideLeft.Control'#7#5'Owner'#18'AnchorSideTop.Side'#7#9'asrBottom'#4 +'rtLine'#10'goHorzLine'#14'goSmoothScroll'#0#8'RowCount'#2#15#8'TabOrder'#2#0
+'Left'#2#6#6'Height'#2#17#3'Top'#3'9'#1#5'Width'#2'~'#7'Anchors'#11#6'akLeft' +#11'OnMouseDown'#7#20'StringGrid1MouseDown'#11'OnMouseMove'#7#20'StringGrid1'
+#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#20'UnicodeCharInfoL' +'MouseMove'#0#0#0#9'TTabSheet'#9'TabSheet2'#7'Caption'#6#7'Unicode'#12'Clien'
+'abel'#11'ParentColor'#8#0#0#11'TStringGrid'#11'StringGrid2'#4'Left'#2#0#6'H' +'tHeight'#3'f'#1#11'ClientWidth'#3#208#1#0#6'TLabel'#20'UnicodeCharInfoLabel'
+'eight'#3' '#1#3'Top'#2#0#5'Width'#3#212#1#7'Anchors'#11#5'akTop'#6'akLeft'#7 +#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#10'cbUniR'
+'akRight'#8'akBottom'#0#8'ColCount'#2#16#15'DefaultColWidth'#2#26#16'Default' +'ange'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#14#3'To'
+'RowHeight'#2#26#7'Options'#11#15'goFixedVertLine'#15'goFixedHorzLine'#10'go' +'p'#3'N'#1#5'Width'#2'k'#20'BorderSpacing.Around'#2#6#7'Caption'#6#20'Unicod'
+'VertLine'#10'goHorzLine'#14'goSmoothScroll'#0#8'RowCount'#2#15#8'TabOrder'#2 +'eCharInfoLabel'#11'ParentColor'#8#0#0#11'TStringGrid'#11'StringGrid2'#22'An'
+#0#11'OnMouseDown'#7#20'StringGrid2MouseDown'#11'OnMouseMove'#7#20'StringGri' +'chorSideLeft.Control'#7#9'TabSheet2'#21'AnchorSideTop.Control'#7#9'TabSheet'
+'d2MouseMove'#0#0#9'TComboBox'#10'cbUniRange'#4'Left'#3#253#0#6'Height'#2#24 +'2'#23'AnchorSideRight.Control'#7#9'TabSheet2'#20'AnchorSideRight.Side'#7#9
+#3'Top'#3'1'#1#5'Width'#3#212#0#7'Anchors'#11#7'akRight'#8'akBottom'#0#12'Au' +'asrBottom'#24'AnchorSideBottom.Control'#7#10'cbUniRange'#4'Left'#2#0#6'Heig'
+'toComplete'#8#10'ItemHeight'#2#0#9'ItemWidth'#2#0#8'OnSelect'#7#16'cbUniRan' +'ht'#3'E'#1#3'Top'#2#0#5'Width'#3#208#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'a'
+'geSelect'#8'TabOrder'#2#1#4'Text'#6#10'cbUniRange'#0#0#0#0#0 +'kRight'#8'akBottom'#0#8'ColCount'#2#16#15'DefaultColWidth'#2#16#7'Options'
+#11#15'goFixedVertLine'#15'goFixedHorzLine'#10'goVertLine'#10'goHorzLine'#14
+'goSmoothScroll'#0#8'RowCount'#2#15#8'TabOrder'#2#0#11'OnMouseDown'#7#20'Str'
+'ingGrid2MouseDown'#11'OnMouseMove'#7#20'StringGrid2MouseMove'#0#0#9'TComboB'
+'ox'#10'cbUniRange'#23'AnchorSideRight.Control'#7#9'TabSheet2'#20'AnchorSide'
+'Right.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#9'TabSheet2'#21'A'
+'nchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3#246#0#6'Height'#2#21#3'Top'#3
+'K'#1#5'Width'#3#212#0#7'Anchors'#11#7'akRight'#8'akBottom'#0#12'AutoComplet'
+'e'#8#20'BorderSpacing.Around'#2#6#10'ItemHeight'#2#13#9'ItemWidth'#2#0#8'On'
+'Select'#7#16'cbUniRangeSelect'#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#1
+#0#0#0#0#0
]); ]);