added website hints to about dlg

git-svn-id: trunk@5680 -
This commit is contained in:
mattias 2004-07-14 16:03:07 +00:00
parent 043ab6bf3a
commit f7e8878d4e
3 changed files with 18 additions and 14 deletions

View File

@ -2,7 +2,7 @@ object AboutForm: TAboutForm
Caption = 'About Lazarus'
ClientHeight = 245
ClientWidth = 577
Position = poscreencenter
Position = poScreenCenter
HorzScrollBar.Page = 578
VertScrollBar.Page = 246
Left = 351
@ -11,7 +11,7 @@ object AboutForm: TAboutForm
Width = 577
object Memo1: TMemo
ReadOnly = True
ScrollBars = ssautoboth
ScrollBars = ssAutoBoth
TabOrder = 0
Left = 225
Height = 219
@ -19,8 +19,8 @@ object AboutForm: TAboutForm
Width = 339
end
object Button1: TButton
ModalResult = 1
Caption = 'Close'
ModalResult = 1
TabOrder = 1
Left = 78
Height = 25
@ -28,7 +28,7 @@ object AboutForm: TAboutForm
Width = 75
end
object Label1: TLabel
Alignment = tacenter
Alignment = taCenter
Caption = 'Version #:'
Left = 14
Height = 17
@ -36,7 +36,7 @@ object AboutForm: TAboutForm
Width = 200
end
object Label2: TLabel
Alignment = tacenter
Alignment = taCenter
Caption = 'Date:'
Left = 14
Height = 17

View File

@ -2,14 +2,14 @@
LazarusResources.Add('TAboutForm','FORMDATA',[
'TPF0'#10'TAboutForm'#9'AboutForm'#7'Caption'#6#13'About Lazarus'#12'ClientHe'
+'ight'#3#245#0#11'ClientWidth'#3'A'#2#8'Position'#7#14'poscreencenter'#18'Ho'
+'ight'#3#245#0#11'ClientWidth'#3'A'#2#8'Position'#7#14'poScreenCenter'#18'Ho'
+'rzScrollBar.Page'#3'B'#2#18'VertScrollBar.Page'#3#246#0#4'Left'#3'_'#1#6'He'
+'ight'#3#245#0#3'Top'#3#133#1#5'Width'#3'A'#2#0#5'TMemo'#5'Memo1'#8'ReadOnly'
+#9#10'ScrollBars'#7#10'ssautoboth'#8'TabOrder'#2#0#4'Left'#3#225#0#6'Height'
+#3#219#0#3'Top'#2#14#5'Width'#3'S'#1#0#0#7'TButton'#7'Button1'#11'ModalResul'
+'t'#2#1#7'Caption'#6#5'Close'#8'TabOrder'#2#1#4'Left'#2'N'#6'Height'#2#25#3
+'Top'#3#184#0#5'Width'#2'K'#0#0#6'TLabel'#6'Label1'#9'Alignment'#7#8'tacente'
+'r'#7'Caption'#6#10'Version #:'#4'Left'#2#14#6'Height'#2#17#3'Top'#2#6#5'Wid'
+'th'#3#200#0#0#0#6'TLabel'#6'Label2'#9'Alignment'#7#8'tacenter'#7'Caption'#6
+#5'Date:'#4'Left'#2#14#6'Height'#2#17#3'Top'#2#23#5'Width'#3#200#0#0#0#0
+#9#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#4'Left'#3#225#0#6'Height'
+#3#219#0#3'Top'#2#14#5'Width'#3'S'#1#0#0#7'TButton'#7'Button1'#7'Caption'#6#5
+'Close'#11'ModalResult'#2#1#8'TabOrder'#2#1#4'Left'#2'N'#6'Height'#2#25#3'To'
+'p'#3#184#0#5'Width'#2'K'#0#0#6'TLabel'#6'Label1'#9'Alignment'#7#8'taCenter'
+#7'Caption'#6#10'Version #:'#4'Left'#2#14#6'Height'#2#17#3'Top'#2#6#5'Width'
+#3#200#0#0#0#6'TLabel'#6'Label2'#9'Alignment'#7#8'taCenter'#7'Caption'#6#5'D'
+'ate:'#4'Left'#2#14#6'Height'#2#17#3'Top'#2#23#5'Width'#3#200#0#0#0#0
]);

View File

@ -90,7 +90,11 @@ begin
Label1.Caption := lisVersion+' #: '+lisLazarusVersionString;
Label2.Caption := lisDate+': '+GetLocalizedBuildDate;
Memo1.Lines.Text:=Format(lisAboutLazarusMsg,[LineEnding,LineEnding,LineEnding]);
Memo1.Lines.Text:=Format(lisAboutLazarusMsg,[LineEnding,LineEnding,LineEnding])
+LineEnding+LineEnding
+'http://sourceforge.net/projects/lazarus/'+LineEnding
+'http://sourceforge.net/projects/lazarus-ccr/'+LineEnding
;
Button1.Caption:=lisClose;
OnResize:=@AboutFormResize;