From 0ee509e404e915a3edb252a9649fb3caae33b42e Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 17 Jan 2005 17:20:59 +0000
Subject: [PATCH] replaced aboutform resizing

git-svn-id: trunk@6628 -
---
 ide/aboutfrm.lfm | 40 ++++++++++++++++++++++------------------
 ide/aboutfrm.lrs | 16 +++++++++-------
 ide/aboutfrm.pas | 13 -------------
 3 files changed, 31 insertions(+), 38 deletions(-)

diff --git a/ide/aboutfrm.lfm b/ide/aboutfrm.lfm
index f30128a4df..acf0bb569c 100644
--- a/ide/aboutfrm.lfm
+++ b/ide/aboutfrm.lfm
@@ -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
diff --git a/ide/aboutfrm.lrs b/ide/aboutfrm.lrs
index 64bbbd7f6f..ac698f57b1 100644
--- a/ide/aboutfrm.lrs
+++ b/ide/aboutfrm.lrs
@@ -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
 ]);
diff --git a/ide/aboutfrm.pas b/ide/aboutfrm.pas
index bcd8d9a4fa..f270d4427a 100644
--- a/ide/aboutfrm.pas
+++ b/ide/aboutfrm.pas
@@ -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;