mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-16 04:39:22 +02:00
esc closes dialog box, fixed showing contributors tab
git-svn-id: trunk@7824 -
This commit is contained in:
vincents
parent
df9b074830
commit
aa968f10a6
@ -1,9 +1,10 @@
|
|||||||
object AboutForm: TAboutForm
|
object AboutForm: TAboutForm
|
||||||
|
ActiveControl = CloseButton
|
||||||
Caption = 'About Lazarus'
|
Caption = 'About Lazarus'
|
||||||
ClientHeight = 270
|
ClientHeight = 270
|
||||||
ClientWidth = 608
|
ClientWidth = 608
|
||||||
OnCreate = AboutFormCreate
|
OnCreate = AboutFormCreate
|
||||||
PixelsPerInch = 112
|
PixelsPerInch = 96
|
||||||
Position = poScreenCenter
|
Position = poScreenCenter
|
||||||
HorzScrollBar.Page = 607
|
HorzScrollBar.Page = 607
|
||||||
VertScrollBar.Page = 269
|
VertScrollBar.Page = 269
|
||||||
@ -13,32 +14,35 @@ object AboutForm: TAboutForm
|
|||||||
Width = 608
|
Width = 608
|
||||||
object VersionLabel: TLabel
|
object VersionLabel: TLabel
|
||||||
Alignment = taCenter
|
Alignment = taCenter
|
||||||
|
BorderSpacing.OnChange = nil
|
||||||
Caption = 'Version #:'
|
Caption = 'Version #:'
|
||||||
ParentColor = True
|
ParentColor = True
|
||||||
Left = 14
|
Left = 14
|
||||||
Height = 12
|
Height = 13
|
||||||
Top = 6
|
Top = 6
|
||||||
Width = 57
|
Width = 50
|
||||||
end
|
end
|
||||||
object BuildDateLabel: TLabel
|
object BuildDateLabel: TLabel
|
||||||
Alignment = taCenter
|
Alignment = taCenter
|
||||||
|
BorderSpacing.OnChange = nil
|
||||||
Caption = 'Date:'
|
Caption = 'Date:'
|
||||||
ParentColor = True
|
ParentColor = True
|
||||||
Left = 14
|
Left = 14
|
||||||
Height = 12
|
Height = 13
|
||||||
Top = 23
|
Top = 23
|
||||||
Width = 29
|
Width = 27
|
||||||
end
|
end
|
||||||
object RevisionLabel: TLabel
|
object RevisionLabel: TLabel
|
||||||
BorderSpacing.OnChange = nil
|
|
||||||
Caption = 'RevisionLabel'
|
Caption = 'RevisionLabel'
|
||||||
Color = clNone
|
Color = clNone
|
||||||
Left = 14
|
Left = 14
|
||||||
Height = 12
|
Height = 13
|
||||||
Top = 40
|
Top = 40
|
||||||
Width = 79
|
Width = 65
|
||||||
end
|
end
|
||||||
object Button1: TBitBtn
|
object CloseButton: TBitBtn
|
||||||
|
BorderSpacing.OnChange = nil
|
||||||
|
Cancel = True
|
||||||
Caption = 'Close'
|
Caption = 'Close'
|
||||||
Glyph.Data = {
|
Glyph.Data = {
|
||||||
F70200002F2A2058504D202A2F0A7374617469632063686172202A20626F7461
|
F70200002F2A2058504D202A2F0A7374617469632063686172202A20626F7461
|
||||||
@ -75,6 +79,7 @@ object AboutForm: TAboutForm
|
|||||||
end
|
end
|
||||||
object Notebook1: TNotebook
|
object Notebook1: TNotebook
|
||||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||||
|
BorderSpacing.OnChange = nil
|
||||||
PageIndex = 0
|
PageIndex = 0
|
||||||
Left = 215
|
Left = 215
|
||||||
Height = 261
|
Height = 261
|
||||||
@ -82,35 +87,34 @@ object AboutForm: TAboutForm
|
|||||||
Width = 389
|
Width = 389
|
||||||
object AboutPage: TPage
|
object AboutPage: TPage
|
||||||
Caption = 'About'
|
Caption = 'About'
|
||||||
ClientWidth = 385
|
ClientWidth = 381
|
||||||
ClientHeight = 231
|
ClientHeight = 235
|
||||||
Left = 2
|
Height = 235
|
||||||
Height = 231
|
Width = 381
|
||||||
Top = 28
|
|
||||||
Width = 385
|
|
||||||
object AboutMemo: TMemo
|
object AboutMemo: TMemo
|
||||||
Align = alClient
|
Align = alClient
|
||||||
|
BorderSpacing.OnChange = nil
|
||||||
ReadOnly = True
|
ReadOnly = True
|
||||||
ScrollBars = ssAutoBoth
|
ScrollBars = ssAutoBoth
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
Height = 231
|
Height = 235
|
||||||
Width = 385
|
Width = 381
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object ContributorsPage: TPage
|
object ContributorsPage: TPage
|
||||||
Caption = 'Contributors'
|
Caption = 'Contributors'
|
||||||
ClientWidth = 389
|
ClientWidth = 381
|
||||||
ClientHeight = 261
|
ClientHeight = 235
|
||||||
Visible = False
|
Height = 235
|
||||||
Height = 261
|
Width = 381
|
||||||
Width = 389
|
|
||||||
object ContributorsMemo: TMemo
|
object ContributorsMemo: TMemo
|
||||||
Align = alClient
|
Align = alClient
|
||||||
|
BorderSpacing.OnChange = nil
|
||||||
ReadOnly = True
|
ReadOnly = True
|
||||||
ScrollBars = ssAutoBoth
|
ScrollBars = ssAutoBoth
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
Height = 261
|
Height = 235
|
||||||
Width = 389
|
Width = 381
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -1,39 +1,42 @@
|
|||||||
{ This is an automatically generated lazarus resource file }
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
LazarusResources.Add('TAboutForm','FORMDATA',[
|
LazarusResources.Add('TAboutForm','FORMDATA',[
|
||||||
'TPF0'#10'TAboutForm'#9'AboutForm'#7'Caption'#6#13'About Lazarus'#12'ClientHe'
|
'TPF0'#10'TAboutForm'#9'AboutForm'#13'ActiveControl'#7#11'CloseButton'#7'Capt'
|
||||||
+'ight'#3#14#1#11'ClientWidth'#3'`'#2#8'OnCreate'#7#15'AboutFormCreate'#13'Pi'
|
+'ion'#6#13'About Lazarus'#12'ClientHeight'#3#14#1#11'ClientWidth'#3'`'#2#8'O'
|
||||||
+'xelsPerInch'#2'p'#8'Position'#7#14'poScreenCenter'#18'HorzScrollBar.Page'#3
|
+'nCreate'#7#15'AboutFormCreate'#13'PixelsPerInch'#2'`'#8'Position'#7#14'poSc'
|
||||||
+'_'#2#18'VertScrollBar.Page'#3#13#1#4'Left'#3'_'#1#6'Height'#3#14#1#3'Top'#3
|
+'reenCenter'#18'HorzScrollBar.Page'#3'_'#2#18'VertScrollBar.Page'#3#13#1#4'L'
|
||||||
+#133#1#5'Width'#3'`'#2#0#6'TLabel'#12'VersionLabel'#9'Alignment'#7#8'taCente'
|
+'eft'#3'_'#1#6'Height'#3#14#1#3'Top'#3#133#1#5'Width'#3'`'#2#0#6'TLabel'#12
|
||||||
+'r'#7'Caption'#6#10'Version #:'#11'ParentColor'#9#4'Left'#2#14#6'Height'#2#12
|
+'VersionLabel'#9'Alignment'#7#8'taCenter'#22'BorderSpacing.OnChange'#13#7'Ca'
|
||||||
+#3'Top'#2#6#5'Width'#2'9'#0#0#6'TLabel'#14'BuildDateLabel'#9'Alignment'#7#8
|
+'ption'#6#10'Version #:'#11'ParentColor'#9#4'Left'#2#14#6'Height'#2#13#3'Top'
|
||||||
+'taCenter'#7'Caption'#6#5'Date:'#11'ParentColor'#9#4'Left'#2#14#6'Height'#2
|
+#2#6#5'Width'#2'2'#0#0#6'TLabel'#14'BuildDateLabel'#9'Alignment'#7#8'taCente'
|
||||||
+#12#3'Top'#2#23#5'Width'#2#29#0#0#6'TLabel'#13'RevisionLabel'#22'BorderSpaci'
|
+'r'#22'BorderSpacing.OnChange'#13#7'Caption'#6#5'Date:'#11'ParentColor'#9#4
|
||||||
+'ng.OnChange'#13#7'Caption'#6#13'RevisionLabel'#5'Color'#7#6'clNone'#4'Left'
|
+'Left'#2#14#6'Height'#2#13#3'Top'#2#23#5'Width'#2#27#0#0#6'TLabel'#13'Revisi'
|
||||||
+#2#14#6'Height'#2#12#3'Top'#2'('#5'Width'#2'O'#0#0#7'TBitBtn'#7'Button1'#7'C'
|
+'onLabel'#7'Caption'#6#13'RevisionLabel'#5'Color'#7#6'clNone'#4'Left'#2#14#6
|
||||||
+'aption'#6#5'Close'#10'Glyph.Data'#10#251#2#0#0#247#2#0#0'/* XPM */'#10'stat'
|
+'Height'#2#13#3'Top'#2'('#5'Width'#2'A'#0#0#7'TBitBtn'#11'CloseButton'#22'Bo'
|
||||||
+'ic char * botaoFechar_xpm[] = {'#10'"24 24 2 1",'#10'" '#9'c None",'#10'".'
|
+'rderSpacing.OnChange'#13#6'Cancel'#9#7'Caption'#6#5'Close'#10'Glyph.Data'#10
|
||||||
+#9'c #000000",'#10'" ",'#10'" '
|
+#251#2#0#0#247#2#0#0'/* XPM */'#10'static char * botaoFechar_xpm[] = {'#10'"'
|
||||||
+'",'#10'" ",'#10'" ",'#10'" '
|
+'24 24 2 1",'#10'" '#9'c None",'#10'".'#9'c #000000",'#10'" '
|
||||||
+' ",'#10'" ",'#10'" . '
|
+' ",'#10'" ",'#10'" ",'
|
||||||
+'. ",'#10'" . ... ",'#10'" .. .... "'
|
+#10'" ",'#10'" ",'#10'" '
|
||||||
+','#10'" .. ... ",'#10'" ..... ",'#10'" '
|
+' ",'#10'" . . ",'#10'" . ... '
|
||||||
+' ... ",'#10'" ..... ",'#10'" .......'
|
+' ",'#10'" .. .... ",'#10'" .. ... ",'#10
|
||||||
+' ",'#10'" ... .... ",'#10'" ... .... ",'
|
+'" ..... ",'#10'" ... ",'#10'" .'
|
||||||
+#10'" ... .. ",'#10'" ",'#10'" '
|
+'.... ",'#10'" ....... ",'#10'" ... .... '
|
||||||
+' ",'#10'" ",'#10'" '
|
+' ",'#10'" ... .... ",'#10'" ... .. ",'#10'"'
|
||||||
+' ",'#10'" ",'#10'" ",'#10
|
+' ",'#10'" ",'#10'" '
|
||||||
+'" "};'#10#11'ModalResult'#2#1#8'TabOrder'#2#1#4'Left'
|
+' ",'#10'" ",'#10'" '
|
||||||
+#2'F'#6'Height'#2#25#3'Top'#3#225#0#5'Width'#2'K'#0#0#9'TNotebook'#9'Noteboo'
|
+' ",'#10'" ",'#10'" "};'#10#11
|
||||||
+'k1'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#9'PageIndex'#2
|
+'ModalResult'#2#1#8'TabOrder'#2#1#4'Left'#2'F'#6'Height'#2#25#3'Top'#3#225#0
|
||||||
+#0#4'Left'#3#215#0#6'Height'#3#5#1#3'Top'#2#6#5'Width'#3#133#1#0#5'TPage'#9
|
+#5'Width'#2'K'#0#0#9'TNotebook'#9'Notebook1'#7'Anchors'#11#5'akTop'#6'akLeft'
|
||||||
+'AboutPage'#7'Caption'#6#5'About'#11'ClientWidth'#3#129#1#12'ClientHeight'#3
|
+#7'akRight'#8'akBottom'#0#22'BorderSpacing.OnChange'#13#9'PageIndex'#2#0#4'L'
|
||||||
+#231#0#4'Left'#2#2#6'Height'#3#231#0#3'Top'#2#28#5'Width'#3#129#1#0#5'TMemo'
|
+'eft'#3#215#0#6'Height'#3#5#1#3'Top'#2#6#5'Width'#3#133#1#0#5'TPage'#9'About'
|
||||||
+#9'AboutMemo'#5'Align'#7#8'alClient'#8'ReadOnly'#9#10'ScrollBars'#7#10'ssAut'
|
+'Page'#7'Caption'#6#5'About'#11'ClientWidth'#3'}'#1#12'ClientHeight'#3#235#0
|
||||||
+'oBoth'#8'TabOrder'#2#0#6'Height'#3#231#0#5'Width'#3#129#1#0#0#0#5'TPage'#16
|
+#6'Height'#3#235#0#5'Width'#3'}'#1#0#5'TMemo'#9'AboutMemo'#5'Align'#7#8'alCl'
|
||||||
+'ContributorsPage'#7'Caption'#6#12'Contributors'#11'ClientWidth'#3#133#1#12
|
+'ient'#22'BorderSpacing.OnChange'#13#8'ReadOnly'#9#10'ScrollBars'#7#10'ssAut'
|
||||||
+'ClientHeight'#3#5#1#7'Visible'#8#6'Height'#3#5#1#5'Width'#3#133#1#0#5'TMemo'
|
+'oBoth'#8'TabOrder'#2#0#6'Height'#3#235#0#5'Width'#3'}'#1#0#0#0#5'TPage'#16
|
||||||
+#16'ContributorsMemo'#5'Align'#7#8'alClient'#8'ReadOnly'#9#10'ScrollBars'#7
|
+'ContributorsPage'#7'Caption'#6#12'Contributors'#11'ClientWidth'#3'}'#1#12'C'
|
||||||
+#10'ssAutoBoth'#8'TabOrder'#2#0#6'Height'#3#5#1#5'Width'#3#133#1#0#0#0#0#0
|
+'lientHeight'#3#235#0#6'Height'#3#235#0#5'Width'#3'}'#1#0#5'TMemo'#16'Contri'
|
||||||
|
+'butorsMemo'#5'Align'#7#8'alClient'#22'BorderSpacing.OnChange'#13#8'ReadOnly'
|
||||||
|
+#9#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#6'Height'#3#235#0#5'Width'
|
||||||
|
+#3'}'#1#0#0#0#0#0
|
||||||
]);
|
]);
|
||||||
|
|||||||
@ -34,7 +34,7 @@ type
|
|||||||
{ TAboutForm }
|
{ TAboutForm }
|
||||||
|
|
||||||
TAboutForm = class(TForm)
|
TAboutForm = class(TForm)
|
||||||
Button1: TBitBtn;
|
CloseButton: TBitBtn;
|
||||||
BuildDateLabel: TLABEL;
|
BuildDateLabel: TLABEL;
|
||||||
AboutMemo: TMEMO;
|
AboutMemo: TMEMO;
|
||||||
VersionLabel: TLABEL;
|
VersionLabel: TLABEL;
|
||||||
@ -147,7 +147,7 @@ begin
|
|||||||
+'Tutorials: http://lazarus-ccr.sourceforge.net'+LineEnding
|
+'Tutorials: http://lazarus-ccr.sourceforge.net'+LineEnding
|
||||||
;
|
;
|
||||||
LoadContributors;
|
LoadContributors;
|
||||||
Button1.Caption:=lisClose;
|
CloseButton.Caption:=lisClose;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TAboutForm.LoadContributors;
|
procedure TAboutForm.LoadContributors;
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user