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

IDE: about dlg: added new logo, add new page for the fans to explore the logo, changed date to an international format, copying the version on destroy idea from Graeme

Browse Source 
git-svn-id: trunk@13220 -
This commit is contained in:
mattias 2007-12-08 13:29:32 +00:00
parent c6316907b3
commit c3df5e3632
3 changed files with 110 additions and 79 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

75
ide/aboutfrm.lfm
View File

@ -5,7 +5,7 @@ object AboutForm: TAboutForm
Width = 608
HorzScrollBar.Page = 607
VertScrollBar.Page = 269
ActiveControl = AboutMemo
ActiveControl = Notebook1
Caption = 'About Lazarus'
ClientHeight = 270
ClientWidth = 608
@ -13,47 +13,58 @@ object AboutForm: TAboutForm
Position = poScreenCenter
object VersionLabel: TLabel
Left = 14
Height = 14
Height = 20
Top = 6
Width = 51
Width = 67
Alignment = taCenter
Caption = 'Version #:'
Color = clNone
ParentColor = False
end
object BuildDateLabel: TLabel
Left = 14
Height = 14
Height = 20
Top = 23
Width = 28
Width = 36
Alignment = taCenter
Caption = 'Date:'
Color = clNone
ParentColor = False
end
object RevisionLabel: TLabel
Left = 14
Height = 14
Height = 20
Top = 40
Width = 66
Width = 86
Caption = 'RevisionLabel'
Color = clNone
ParentColor = False
end
object PlatformLabel: TLabel
Left = 14
Height = 14
Height = 20
Top = 61
Width = 66
Width = 89
Caption = 'PlatformLabel'
Color = clNone
ParentColor = False
end
object Image1: TImage
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = PlatformLabel
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Notebook1
Left = 6
Height = 113
Top = 87
Width = 203
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Center = True
Proportional = True
Transparent = False
end
object CloseButton: TBitBtn
Left = 70
Height = 36
Top = 225
Width = 81
Width = 74
AutoSize = True
Cancel = True
Caption = 'Close'
@ -93,14 +104,15 @@ object AboutForm: TAboutForm
Top = 6
Width = 389
Anchors = [akTop, akLeft, akRight, akBottom]
PageIndex = 0
PageIndex = 3
TabOrder = 0
object AboutPage: TPage
Caption = 'About'
ClientWidth = 381
ClientHeight = 235
ClientWidth = 385
ClientHeight = 230
object AboutMemo: TMemo
Height = 235
Width = 381
Height = 230
Width = 385
Align = alClient
ReadOnly = True
ScrollBars = ssAutoBoth
@ -109,10 +121,10 @@ object AboutForm: TAboutForm
end
object ContributorsPage: TPage
Caption = 'Contributors'
ClientWidth = 381
ClientHeight = 235
ClientWidth = 385
ClientHeight = 230
object ContributorsMemo: TMemo
Height = 231
Height = 230
Width = 385
Align = alClient
ReadOnly = True
@ -122,16 +134,27 @@ object AboutForm: TAboutForm
end
object AcknowledgementsPage: TPage
Caption = 'Acknowledgements'
ClientWidth = 381
ClientHeight = 235
ClientWidth = 385
ClientHeight = 230
object AcknowledgementsMemo: TMemo
Height = 235
Width = 381
Height = 230
Width = 385
Align = alClient
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 0
end
end
object LogoPage: TPage
Caption = 'LogoPage'
ClientWidth = 385
ClientHeight = 230
object LogoImage: TImage
Height = 230
Width = 385
Align = alClient
Transparent = False
end
end
end
end

83
ide/aboutfrm.lrs
View File

@ -1,43 +1,52 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TAboutForm','FORMDATA',[
'TPF0'#10'TAboutForm'#9'AboutForm'#4'Left'#3'_'#1#6'Height'#3#14#1#3'Top'#3
+#133#1#5'Width'#3'`'#2#18'HorzScrollBar.Page'#3'_'#2#18'VertScrollBar.Page'#3
+#13#1#13'ActiveControl'#7#9'AboutMemo'#7'Caption'#6#13'About Lazarus'#12'Cli'
+#13#1#13'ActiveControl'#7#9'Notebook1'#7'Caption'#6#13'About Lazarus'#12'Cli'
+'entHeight'#3#14#1#11'ClientWidth'#3'`'#2#8'OnCreate'#7#15'AboutFormCreate'#8
+'Position'#7#14'poScreenCenter'#0#6'TLabel'#12'VersionLabel'#4'Left'#2#14#6
+'Height'#2#14#3'Top'#2#6#5'Width'#2'3'#9'Alignment'#7#8'taCenter'#7'Caption'
+#6#10'Version #:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#14'Bu'
+'ildDateLabel'#4'Left'#2#14#6'Height'#2#14#3'Top'#2#23#5'Width'#2#28#9'Align'
+'ment'#7#8'taCenter'#7'Caption'#6#5'Date:'#5'Color'#7#6'clNone'#11'ParentCol'
+'or'#8#0#0#6'TLabel'#13'RevisionLabel'#4'Left'#2#14#6'Height'#2#14#3'Top'#2
+'('#5'Width'#2'B'#7'Caption'#6#13'RevisionLabel'#5'Color'#7#6'clNone'#11'Par'
+'entColor'#8#0#0#6'TLabel'#13'PlatformLabel'#4'Left'#2#14#6'Height'#2#14#3'T'
+'op'#2'='#5'Width'#2'B'#7'Caption'#6#13'PlatformLabel'#5'Color'#7#6'clNone'
+#11'ParentColor'#8#0#0#7'TBitBtn'#11'CloseButton'#4'Left'#2'F'#6'Height'#2'$'
+#3'Top'#3#225#0#5'Width'#2'Q'#8'AutoSize'#9#6'Cancel'#9#7'Caption'#6#5'Close'
+#10'Glyph.Data'#10#251#2#0#0#247#2#0#0'/* XPM */'#10'static char * botaoFech'
+'ar_xpm[] = {'#10'"24 24 2 1",'#10'" '#9'c None",'#10'".'#9'c #000000",'#10
+'" ",'#10'" ",'#10'" '
+' ",'#10'" ",'#10'" '
+' ",'#10'" ",'#10'" . . ",'#10'"'
+' . ... ",'#10'" .. .... ",'#10'" ..'
+' ... ",'#10'" ..... ",'#10'" ... '
+' ",'#10'" ..... ",'#10'" ....... ",'#10'" '
+' ... .... ",'#10'" ... .... ",'#10'" ... '
+' .. ",'#10'" ",'#10'" '
+' ",'#10'" ",'#10'" ",'#10'" '
+' ",'#10'" ",'#10'" '
+' "};'#10#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0
+#9'TNotebook'#9'Notebook1'#4'Left'#3#215#0#6'Height'#3#5#1#3'Top'#2#6#5'Widt'
+'h'#3#133#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#9'Page'
+'Index'#2#0#0#5'TPage'#9'AboutPage'#7'Caption'#6#5'About'#11'ClientWidth'#3
+'}'#1#12'ClientHeight'#3#235#0#0#5'TMemo'#9'AboutMemo'#6'Height'#3#235#0#5'W'
+'idth'#3'}'#1#5'Align'#7#8'alClient'#8'ReadOnly'#9#10'ScrollBars'#7#10'ssAut'
+'oBoth'#8'TabOrder'#2#0#0#0#0#5'TPage'#16'ContributorsPage'#7'Caption'#6#12
+'Contributors'#11'ClientWidth'#3'}'#1#12'ClientHeight'#3#235#0#0#5'TMemo'#16
+'ContributorsMemo'#6'Height'#3#231#0#5'Width'#3#129#1#5'Align'#7#8'alClient'
+#8'ReadOnly'#9#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#0#0#0#5'TPage'
+#20'AcknowledgementsPage'#7'Caption'#6#16'Acknowledgements'#11'ClientWidth'#3
+'}'#1#12'ClientHeight'#3#235#0#0#5'TMemo'#20'AcknowledgementsMemo'#6'Height'
+#3#235#0#5'Width'#3'}'#1#5'Align'#7#8'alClient'#8'ReadOnly'#9#10'ScrollBars'
+#7#10'ssAutoBoth'#8'TabOrder'#2#0#0#0#0#0#0
+'Height'#2#20#3'Top'#2#6#5'Width'#2'C'#9'Alignment'#7#8'taCenter'#7'Caption'
+#6#10'Version #:'#11'ParentColor'#8#0#0#6'TLabel'#14'BuildDateLabel'#4'Left'
+#2#14#6'Height'#2#20#3'Top'#2#23#5'Width'#2'$'#9'Alignment'#7#8'taCenter'#7
+'Caption'#6#5'Date:'#11'ParentColor'#8#0#0#6'TLabel'#13'RevisionLabel'#4'Lef'
+'t'#2#14#6'Height'#2#20#3'Top'#2'('#5'Width'#2'V'#7'Caption'#6#13'RevisionLa'
+'bel'#11'ParentColor'#8#0#0#6'TLabel'#13'PlatformLabel'#4'Left'#2#14#6'Heigh'
+'t'#2#20#3'Top'#2'='#5'Width'#2'Y'#7'Caption'#6#13'PlatformLabel'#11'ParentC'
+'olor'#8#0#0#6'TImage'#6'Image1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'An'
+'chorSideTop.Control'#7#13'PlatformLabel'#18'AnchorSideTop.Side'#7#9'asrBott'
+'om'#23'AnchorSideRight.Control'#7#9'Notebook1'#4'Left'#2#6#6'Height'#2'q'#3
+'Top'#2'W'#5'Width'#3#203#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20
+'BorderSpacing.Around'#2#6#6'Center'#9#12'Proportional'#9#11'Transparent'#8#0
+#0#7'TBitBtn'#11'CloseButton'#4'Left'#2'F'#6'Height'#2'$'#3'Top'#3#225#0#5'W'
+'idth'#2'J'#8'AutoSize'#9#6'Cancel'#9#7'Caption'#6#5'Close'#10'Glyph.Data'#10
+#251#2#0#0#247#2#0#0'/* XPM */'#10'static char * botaoFechar_xpm[] = {'#10'"'
+'24 24 2 1",'#10'" '#9'c None",'#10'".'#9'c #000000",'#10'" '
+' ",'#10'" ",'#10'" ",'
+#10'" ",'#10'" ",'#10'" '
+' ",'#10'" . . ",'#10'" . ... '
+' ",'#10'" .. .... ",'#10'" .. ... ",'#10
+'" ..... ",'#10'" ... ",'#10'" .'
+'.... ",'#10'" ....... ",'#10'" ... .... '
+' ",'#10'" ... .... ",'#10'" ... .. ",'#10'"'
+' ",'#10'" ",'#10'" '
+' ",'#10'" ",'#10'" '
+' ",'#10'" ",'#10'" "};'#10#11
+'ModalResult'#2#1#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#9'TNotebook'#9'Notebo'
+'ok1'#4'Left'#3#215#0#6'Height'#3#5#1#3'Top'#2#6#5'Width'#3#133#1#7'Anchors'
+#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#9'PageIndex'#2#3#8'TabOrder'
+#2#0#0#5'TPage'#9'AboutPage'#7'Caption'#6#5'About'#11'ClientWidth'#3#129#1#12
+'ClientHeight'#3#230#0#0#5'TMemo'#9'AboutMemo'#6'Height'#3#230#0#5'Width'#3
+#129#1#5'Align'#7#8'alClient'#8'ReadOnly'#9#10'ScrollBars'#7#10'ssAutoBoth'#8
+'TabOrder'#2#0#0#0#0#5'TPage'#16'ContributorsPage'#7'Caption'#6#12'Contribut'
+'ors'#11'ClientWidth'#3#129#1#12'ClientHeight'#3#230#0#0#5'TMemo'#16'Contrib'
+'utorsMemo'#6'Height'#3#230#0#5'Width'#3#129#1#5'Align'#7#8'alClient'#8'Read'
+'Only'#9#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#0#0#0#5'TPage'#20'A'
+'cknowledgementsPage'#7'Caption'#6#16'Acknowledgements'#11'ClientWidth'#3#129
+#1#12'ClientHeight'#3#230#0#0#5'TMemo'#20'AcknowledgementsMemo'#6'Height'#3
+#230#0#5'Width'#3#129#1#5'Align'#7#8'alClient'#8'ReadOnly'#9#10'ScrollBars'#7
+#10'ssAutoBoth'#8'TabOrder'#2#0#0#0#0#5'TPage'#8'LogoPage'#7'Caption'#6#8'Lo'
+'goPage'#11'ClientWidth'#3#129#1#12'ClientHeight'#3#230#0#0#6'TImage'#9'Logo'
+'Image'#6'Height'#3#230#0#5'Width'#3#129#1#5'Align'#7#8'alClient'#11'Transpa'
+'rent'#8#0#0#0#0#0
]);

31
ide/aboutfrm.pas
View File

@ -27,7 +27,7 @@ interface
uses
Classes, SysUtils, FPCAdds, Forms, Controls, Graphics, Dialogs, LResources,
StdCtrls, Buttons, LazConf, LazarusIDEStrConsts, ExtCtrls, EnvironmentOpts,
FileUtil;
Clipbrd, FileUtil;
type
@ -37,6 +37,9 @@ type
CloseButton: TBitBtn;
BuildDateLabel: TLABEL;
AboutMemo: TMEMO;
Image1: TImage;
LogoImage: TImage;
LogoPage: TPage;
PlatformLabel: TLabel;
VersionLabel: TLABEL;
ContributorsMemo:TMemo;
@ -48,11 +51,9 @@ type
AcknowledgementsPage:TPage;
procedure AboutFormCreate(Sender:TObject);
private
FPixmap : TPixmap;
procedure LoadContributors;
procedure LoadAcknowledgements;
public
procedure Paint; override;
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
end;
@ -93,8 +94,9 @@ end;
destructor TAboutForm.Destroy;
begin
FPixmap.Free;
FPixmap:=nil;
// easter egg: copy the version to clipboard
Clipboard.AsText := LazarusVersionStr + ' r' + LazarusRevisionStr
+ ' ' + PlatformLabel.Caption;
inherited Destroy;
end;
@ -119,12 +121,17 @@ const
Date := EncodeDate(StrToWord(Copy(BuildDate,1,SlashPos1-1)),
StrToWord(Copy(BuildDate,SlashPos1+1,SlashPos2-SlashPos1-1)),
StrToWord(Copy(BuildDate,SlashPos2+1,Length(BuildDate)-SlashPos2)));
Result := DateTimeToStr(Date);
Result := FormatDateTime('yyyy-mm-dd', Date);
end;
var
FBitmap: TBitmap;
begin
FPixmap := TPixmap.Create;
FPixmap.LoadFromLazarusResource('lazarus_about_logo');
Notebook1.PageIndex:=0;
FBitmap := LoadBitmapFromLazarusResource('splash_logo');
Image1.Picture.Graphic:=FBitmap;
LogoImage.Picture.Graphic:=FBitmap;
FBitmap.Free;
Caption:=lisAboutLazarus;
VersionLabel.Caption := lisVersion+' #: '+ GetLazarusVersionString;
RevisionLabel.Caption := lisSVNRevision+LazarusRevisionStr;
@ -175,14 +182,6 @@ begin
AcknowledgementsMemo.Text:=lisAboutNoContributors;
end;
procedure TAboutForm.Paint;
begin
inherited Paint;
if FPixmap <> nil then
Canvas.Draw(12, PlatformLabel.Top + PlatformLabel.Height + 6,
FPixmap);
end;
initialization
{$I aboutfrm.lrs}
{$I lazarus_about_logo.lrs}