paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 14:40:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

esc closes dialog box, fixed showing contributors tab

Browse Source 
git-svn-id: trunk@7824 -
This commit is contained in:
vincents 2005-09-25 20:17:07 +00:00
parent df9b074830
commit aa968f10a6
3 changed files with 68 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
ide/aboutfrm.lfm
View File

@ -1,9 +1,10 @@
object AboutForm: TAboutForm
ActiveControl = CloseButton
Caption = 'About Lazarus'
ClientHeight = 270
ClientWidth = 608
OnCreate = AboutFormCreate
PixelsPerInch = 112
PixelsPerInch = 96
Position = poScreenCenter
HorzScrollBar.Page = 607
VertScrollBar.Page = 269
@ -13,32 +14,35 @@ object AboutForm: TAboutForm
Width = 608
object VersionLabel: TLabel
Alignment = taCenter
BorderSpacing.OnChange = nil
Caption = 'Version #:'
ParentColor = True
Left = 14
Height = 12
Height = 13
Top = 6
Width = 57
Width = 50
end
object BuildDateLabel: TLabel
Alignment = taCenter
BorderSpacing.OnChange = nil
Caption = 'Date:'
ParentColor = True
Left = 14
Height = 12
Height = 13
Top = 23
Width = 29
Width = 27
end
object RevisionLabel: TLabel
BorderSpacing.OnChange = nil
Caption = 'RevisionLabel'
Color = clNone
Left = 14
Height = 12
Height = 13
Top = 40
Width = 79
Width = 65
end
object Button1: TBitBtn
object CloseButton: TBitBtn
BorderSpacing.OnChange = nil
Cancel = True
Caption = 'Close'
Glyph.Data = {
F70200002F2A2058504D202A2F0A7374617469632063686172202A20626F7461
@ -75,6 +79,7 @@ object AboutForm: TAboutForm
end
object Notebook1: TNotebook
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.OnChange = nil
PageIndex = 0
Left = 215
Height = 261
@ -82,35 +87,34 @@ object AboutForm: TAboutForm
Width = 389
object AboutPage: TPage
Caption = 'About'
ClientWidth = 385
ClientHeight = 231
Left = 2
Height = 231
Top = 28
Width = 385
ClientWidth = 381
ClientHeight = 235
Height = 235
Width = 381
object AboutMemo: TMemo
Align = alClient
BorderSpacing.OnChange = nil
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 0
Height = 231
Width = 385
Height = 235
Width = 381
end
end
object ContributorsPage: TPage
Caption = 'Contributors'
ClientWidth = 389
ClientHeight = 261
Visible = False
Height = 261
Width = 389
ClientWidth = 381
ClientHeight = 235
Height = 235
Width = 381
object ContributorsMemo: TMemo
Align = alClient
BorderSpacing.OnChange = nil
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 0
Height = 261
Width = 389
Height = 235
Width = 381
end
end
end

73
ide/aboutfrm.lrs
View File

@ -1,39 +1,42 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TAboutForm','FORMDATA',[
'TPF0'#10'TAboutForm'#9'AboutForm'#7'Caption'#6#13'About Lazarus'#12'ClientHe'
+'ight'#3#14#1#11'ClientWidth'#3'`'#2#8'OnCreate'#7#15'AboutFormCreate'#13'Pi'
+'xelsPerInch'#2'p'#8'Position'#7#14'poScreenCenter'#18'HorzScrollBar.Page'#3
+'_'#2#18'VertScrollBar.Page'#3#13#1#4'Left'#3'_'#1#6'Height'#3#14#1#3'Top'#3
+#133#1#5'Width'#3'`'#2#0#6'TLabel'#12'VersionLabel'#9'Alignment'#7#8'taCente'
+'r'#7'Caption'#6#10'Version #:'#11'ParentColor'#9#4'Left'#2#14#6'Height'#2#12
+#3'Top'#2#6#5'Width'#2'9'#0#0#6'TLabel'#14'BuildDateLabel'#9'Alignment'#7#8
+'taCenter'#7'Caption'#6#5'Date:'#11'ParentColor'#9#4'Left'#2#14#6'Height'#2
+#12#3'Top'#2#23#5'Width'#2#29#0#0#6'TLabel'#13'RevisionLabel'#22'BorderSpaci'
+'ng.OnChange'#13#7'Caption'#6#13'RevisionLabel'#5'Color'#7#6'clNone'#4'Left'
+#2#14#6'Height'#2#12#3'Top'#2'('#5'Width'#2'O'#0#0#7'TBitBtn'#7'Button1'#7'C'
+'aption'#6#5'Close'#10'Glyph.Data'#10#251#2#0#0#247#2#0#0'/* XPM */'#10'stat'
+'ic char * botaoFechar_xpm[] = {'#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#11'ModalResult'#2#1#8'TabOrder'#2#1#4'Left'
+#2'F'#6'Height'#2#25#3'Top'#3#225#0#5'Width'#2'K'#0#0#9'TNotebook'#9'Noteboo'
+'k1'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#9'PageIndex'#2
+#0#4'Left'#3#215#0#6'Height'#3#5#1#3'Top'#2#6#5'Width'#3#133#1#0#5'TPage'#9
+'AboutPage'#7'Caption'#6#5'About'#11'ClientWidth'#3#129#1#12'ClientHeight'#3
+#231#0#4'Left'#2#2#6'Height'#3#231#0#3'Top'#2#28#5'Width'#3#129#1#0#5'TMemo'
+#9'AboutMemo'#5'Align'#7#8'alClient'#8'ReadOnly'#9#10'ScrollBars'#7#10'ssAut'
+'oBoth'#8'TabOrder'#2#0#6'Height'#3#231#0#5'Width'#3#129#1#0#0#0#5'TPage'#16
+'ContributorsPage'#7'Caption'#6#12'Contributors'#11'ClientWidth'#3#133#1#12
+'ClientHeight'#3#5#1#7'Visible'#8#6'Height'#3#5#1#5'Width'#3#133#1#0#5'TMemo'
+#16'ContributorsMemo'#5'Align'#7#8'alClient'#8'ReadOnly'#9#10'ScrollBars'#7
+#10'ssAutoBoth'#8'TabOrder'#2#0#6'Height'#3#5#1#5'Width'#3#133#1#0#0#0#0#0
'TPF0'#10'TAboutForm'#9'AboutForm'#13'ActiveControl'#7#11'CloseButton'#7'Capt'
+'ion'#6#13'About Lazarus'#12'ClientHeight'#3#14#1#11'ClientWidth'#3'`'#2#8'O'
+'nCreate'#7#15'AboutFormCreate'#13'PixelsPerInch'#2'`'#8'Position'#7#14'poSc'
+'reenCenter'#18'HorzScrollBar.Page'#3'_'#2#18'VertScrollBar.Page'#3#13#1#4'L'
+'eft'#3'_'#1#6'Height'#3#14#1#3'Top'#3#133#1#5'Width'#3'`'#2#0#6'TLabel'#12
+'VersionLabel'#9'Alignment'#7#8'taCenter'#22'BorderSpacing.OnChange'#13#7'Ca'
+'ption'#6#10'Version #:'#11'ParentColor'#9#4'Left'#2#14#6'Height'#2#13#3'Top'
+#2#6#5'Width'#2'2'#0#0#6'TLabel'#14'BuildDateLabel'#9'Alignment'#7#8'taCente'
+'r'#22'BorderSpacing.OnChange'#13#7'Caption'#6#5'Date:'#11'ParentColor'#9#4
+'Left'#2#14#6'Height'#2#13#3'Top'#2#23#5'Width'#2#27#0#0#6'TLabel'#13'Revisi'
+'onLabel'#7'Caption'#6#13'RevisionLabel'#5'Color'#7#6'clNone'#4'Left'#2#14#6
+'Height'#2#13#3'Top'#2'('#5'Width'#2'A'#0#0#7'TBitBtn'#11'CloseButton'#22'Bo'
+'rderSpacing.OnChange'#13#6'Cancel'#9#7'Caption'#6#5'Close'#10'Glyph.Data'#10
+#251#2#0#0#247#2#0#0'/* XPM */'#10'static char * botaoFechar_xpm[] = {'#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#11
+'ModalResult'#2#1#8'TabOrder'#2#1#4'Left'#2'F'#6'Height'#2#25#3'Top'#3#225#0
+#5'Width'#2'K'#0#0#9'TNotebook'#9'Notebook1'#7'Anchors'#11#5'akTop'#6'akLeft'
+#7'akRight'#8'akBottom'#0#22'BorderSpacing.OnChange'#13#9'PageIndex'#2#0#4'L'
+'eft'#3#215#0#6'Height'#3#5#1#3'Top'#2#6#5'Width'#3#133#1#0#5'TPage'#9'About'
+'Page'#7'Caption'#6#5'About'#11'ClientWidth'#3'}'#1#12'ClientHeight'#3#235#0
+#6'Height'#3#235#0#5'Width'#3'}'#1#0#5'TMemo'#9'AboutMemo'#5'Align'#7#8'alCl'
+'ient'#22'BorderSpacing.OnChange'#13#8'ReadOnly'#9#10'ScrollBars'#7#10'ssAut'
+'oBoth'#8'TabOrder'#2#0#6'Height'#3#235#0#5'Width'#3'}'#1#0#0#0#5'TPage'#16
+'ContributorsPage'#7'Caption'#6#12'Contributors'#11'ClientWidth'#3'}'#1#12'C'
+'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
]);

4
ide/aboutfrm.pas
View File

@ -34,7 +34,7 @@ type
{ TAboutForm }
TAboutForm = class(TForm)
Button1: TBitBtn;
CloseButton: TBitBtn;
BuildDateLabel: TLABEL;
AboutMemo: TMEMO;
VersionLabel: TLABEL;
@ -147,7 +147,7 @@ begin
+'Tutorials: http://lazarus-ccr.sourceforge.net'+LineEnding
;
LoadContributors;
Button1.Caption:=lisClose;
CloseButton.Caption:=lisClose;
end;
procedure TAboutForm.LoadContributors;