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

replaced aboutform resizing

Browse Source 
git-svn-id: trunk@6628 -
This commit is contained in:
mattias 2005-01-17 17:20:59 +00:00
parent ed02f73289
commit 0ee509e404
3 changed files with 31 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
ide/aboutfrm.lfm
View File

@ -2,14 +2,34 @@ object AboutForm: TAboutForm
Caption = 'About Lazarus'
ClientHeight = 245
ClientWidth = 577
PixelsPerInch = 90
Position = poScreenCenter
HorzScrollBar.Page = 578
VertScrollBar.Page = 246
HorzScrollBar.Page = 576
VertScrollBar.Page = 244
Left = 351
Height = 245
Top = 389
Width = 577
object Label1: TLabel
Alignment = taCenter
Caption = 'Version #:'
ParentColor = True
Left = 14
Height = 17
Top = 6
Width = 200
end
object Label2: TLabel
Alignment = taCenter
Caption = 'Date:'
ParentColor = True
Left = 14
Height = 17
Top = 23
Width = 200
end
object Memo1: TMemo
Anchors = [akTop, akLeft, akRight, akBottom]
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 0
@ -27,20 +47,4 @@ object AboutForm: TAboutForm
Top = 184
Width = 75
end
object Label1: TLabel
Alignment = taCenter
Caption = 'Version #:'
Left = 14
Height = 17
Top = 6
Width = 200
end
object Label2: TLabel
Alignment = taCenter
Caption = 'Date:'
Left = 14
Height = 17
Top = 23
Width = 200
end
end

16
ide/aboutfrm.lrs
View File

@ -2,14 +2,16 @@
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'
+'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'
+'ight'#3#245#0#11'ClientWidth'#3'A'#2#13'PixelsPerInch'#2'Z'#8'Position'#7#14
+'poScreenCenter'#18'HorzScrollBar.Page'#3'@'#2#18'VertScrollBar.Page'#3#244#0
+#4'Left'#3'_'#1#6'Height'#3#245#0#3'Top'#3#133#1#5'Width'#3'A'#2#0#6'TLabel'
+#6'Label1'#9'Alignment'#7#8'taCenter'#7'Caption'#6#10'Version #:'#11'ParentC'
+'olor'#9#4'Left'#2#14#6'Height'#2#17#3'Top'#2#6#5'Width'#3#200#0#0#0#6'TLabe'
+'l'#6'Label2'#9'Alignment'#7#8'taCenter'#7'Caption'#6#5'Date:'#11'ParentColo'
+'r'#9#4'Left'#2#14#6'Height'#2#17#3'Top'#2#23#5'Width'#3#200#0#0#0#5'TMemo'#5
+'Memo1'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#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'#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
+'p'#3#184#0#5'Width'#2'K'#0#0#0
]);

13
ide/aboutfrm.pas
View File

@ -34,7 +34,6 @@ type
Memo1: TMEMO;
Button1: TBUTTON;
Label1: TLABEL;
procedure AboutFormResize(Sender: TObject);
private
FPixmap : TPixmap;
public
@ -95,8 +94,6 @@ begin
+'Tutorials: http://lazarus-ccr.sourceforge.net'+LineEnding
;
Button1.Caption:=lisClose;
OnResize:=@AboutFormResize;
end;
@ -108,16 +105,6 @@ begin
inherited Destroy;
end;
procedure TAboutForm.AboutFormResize(Sender: TObject);
begin
with Memo1 do begin
Left:=225;
Top:=10;
Width:=Self.ClientWidth-Left-Top;
Height:=Self.ClientHeight-2*Top;
end;
end;
procedure TAboutForm.Paint;
begin
inherited Paint;