mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-11 22:56:06 +02:00
IDE: Simplify AboutForm.
git-svn-id: trunk@63796 -
This commit is contained in:
parent
e73e881289
commit
70862bc995
@ -8,6 +8,8 @@ object AboutForm: TAboutForm
|
||||
Caption = 'About Lazarus'
|
||||
ClientHeight = 390
|
||||
ClientWidth = 470
|
||||
Constraints.MinHeight = 390
|
||||
Constraints.MinWidth = 470
|
||||
OnClose = FormClose
|
||||
OnCreate = AboutFormCreate
|
||||
OnShow = FormShow
|
||||
|
@ -192,11 +192,6 @@ begin
|
||||
|
||||
VersionLabel.Font.Color:= clWhite;
|
||||
|
||||
Width:= Scale96ToForm(470);
|
||||
Height:= Scale96ToForm(390);
|
||||
Constraints.MinWidth:= Width;
|
||||
Constraints.MinHeight:= Height;
|
||||
|
||||
AboutMemo.Lines.Text:=
|
||||
Format(lisAboutLazarusMsg,[DoubleLineEnding,DoubleLineEnding,DoubleLineEnding]);
|
||||
|
||||
|
@ -3,8 +3,6 @@ object SplashForm: TSplashForm
|
||||
Height = 300
|
||||
Top = 370
|
||||
Width = 450
|
||||
HorzScrollBar.Page = 300
|
||||
VertScrollBar.Page = 450
|
||||
BorderStyle = bsNone
|
||||
Caption = 'Lazarus'
|
||||
ClientHeight = 300
|
||||
|
Loading…
Reference in New Issue
Block a user