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

replaced about form caption with resourcestring

Browse Source 
git-svn-id: trunk@6621 -
This commit is contained in:
mattias 2005-01-17 12:26:05 +00:00
parent be9331e1ba
commit 12a43a51bb
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/aboutfrm.pas
View File

@ -36,10 +36,8 @@ type
Label1: TLABEL; Label1: TLABEL;
procedure AboutFormResize(Sender: TObject); procedure AboutFormResize(Sender: TObject);
private private
{ private declarations }
FPixmap : TPixmap; FPixmap : TPixmap;
public public
{ public declarations }
procedure Paint; override; procedure Paint; override;
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -87,6 +85,7 @@ begin
FPixmap := TPixmap.Create; FPixmap := TPixmap.Create;
FPixmap.LoadFromLazarusResource('lazarus_about_logo'); FPixmap.LoadFromLazarusResource('lazarus_about_logo');
Caption:=lisAboutLazarus;
Label1.Caption := lisVersion+' #: '+lisLazarusVersionString; Label1.Caption := lisVersion+' #: '+lisLazarusVersionString;
Label2.Caption := lisDate+': '+GetLocalizedBuildDate; Label2.Caption := lisDate+': '+GetLocalizedBuildDate;