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

IDE: about dlg: added platform information

Browse Source 
git-svn-id: trunk@10179 -
This commit is contained in:
mattias 2006-11-07 23:30:55 +00:00
parent 921f2b2e64
commit dc4e0a9c65
4 changed files with 79 additions and 77 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
ide/aboutfrm.lfm
View File

@ -1,47 +1,57 @@
object AboutForm: TAboutForm
ActiveControl = AboutMemo
Caption = 'About Lazarus'
ClientHeight = 270
ClientWidth = 608
OnCreate = AboutFormCreate
PixelsPerInch = 96
Position = poScreenCenter
HorzScrollBar.Page = 607
VertScrollBar.Page = 269
Left = 351
Height = 270
Top = 389
Width = 608
HorzScrollBar.Page = 607
VertScrollBar.Page = 269
ActiveControl = AboutMemo
Caption = 'About Lazarus'
OnCreate = AboutFormCreate
Position = poScreenCenter
object VersionLabel: TLabel
Left = 14
Height = 13
Top = 6
Width = 58
Alignment = taCenter
Caption = 'Version #:'
Color = clNone
ParentColor = False
Left = 14
Height = 14
Top = 6
Width = 51
end
object BuildDateLabel: TLabel
Left = 14
Height = 13
Top = 23
Width = 30
Alignment = taCenter
Caption = 'Date:'
Color = clNone
ParentColor = False
Left = 14
Height = 14
Top = 23
Width = 28
end
object RevisionLabel: TLabel
Left = 14
Height = 13
Top = 40
Width = 80
Caption = 'RevisionLabel'
Color = clNone
ParentColor = False
end
object PlatformLabel: TLabel
Left = 14
Height = 14
Top = 40
Width = 66
Height = 13
Top = 61
Width = 76
Caption = 'PlatformLabel'
Color = clNone
ParentColor = False
end
object CloseButton: TBitBtn
Left = 70
Height = 34
Top = 225
Width = 73
AutoSize = True
Cancel = True
Caption = 'Close'
@ -74,46 +84,34 @@ object AboutForm: TAboutForm
ModalResult = 1
NumGlyphs = 0
TabOrder = 1
Left = 70
Height = 44
Top = 225
Width = 81
end
object Notebook1: TNotebook
Anchors = [akTop, akLeft, akRight, akBottom]
PageIndex = 0
Left = 215
Height = 261
Top = 6
Width = 389
Anchors = [akTop, akLeft, akRight, akBottom]
PageIndex = 0
object AboutPage: TPage
Caption = 'About'
ClientWidth = 381
ClientHeight = 235
Height = 235
Width = 381
object AboutMemo: TMemo
Height = 231
Width = 385
Align = alClient
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 0
Height = 235
Width = 381
end
end
object ContributorsPage: TPage
Caption = 'Contributors'
ClientWidth = 381
ClientHeight = 235
Height = 235
Width = 381
object ContributorsMemo: TMemo
Height = 231
Width = 385
Align = alClient
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 0
Height = 235
Width = 381
end
end
end

71
ide/aboutfrm.lrs
View File

@ -1,40 +1,39 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TAboutForm','FORMDATA',[
'TPF0'#10'TAboutForm'#9'AboutForm'#13'ActiveControl'#7#9'AboutMemo'#7'Caption'
+#6#13'About Lazarus'#12'ClientHeight'#3#14#1#11'ClientWidth'#3'`'#2#8'OnCrea'
+'te'#7#15'AboutFormCreate'#13'PixelsPerInch'#2'`'#8'Position'#7#14'poScreenC'
+'enter'#18'HorzScrollBar.Page'#3'_'#2#18'VertScrollBar.Page'#3#13#1#4'Left'#3
+'_'#1#6'Height'#3#14#1#3'Top'#3#133#1#5'Width'#3'`'#2#0#6'TLabel'#12'Version'
+'Label'#9'Alignment'#7#8'taCenter'#7'Caption'#6#10'Version #:'#5'Color'#7#6
+'clNone'#11'ParentColor'#8#4'Left'#2#14#6'Height'#2#14#3'Top'#2#6#5'Width'#2
+'3'#0#0#6'TLabel'#14'BuildDateLabel'#9'Alignment'#7#8'taCenter'#7'Caption'#6
+#5'Date:'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#14#6'Height'#2#14
+#3'Top'#2#23#5'Width'#2#28#0#0#6'TLabel'#13'RevisionLabel'#7'Caption'#6#13'R'
+'evisionLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#14#6'Height'
+#2#14#3'Top'#2'('#5'Width'#2'B'#0#0#7'TBitBtn'#11'CloseButton'#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'N'
+'umGlyphs'#2#0#8'TabOrder'#2#1#4'Left'#2'F'#6'Height'#2','#3'Top'#3#225#0#5
+'Width'#2'Q'#0#0#9'TNotebook'#9'Notebook1'#7'Anchors'#11#5'akTop'#6'akLeft'#7
+'akRight'#8'akBottom'#0#9'PageIndex'#2#0#4'Left'#3#215#0#6'Height'#3#5#1#3'T'
+'op'#2#6#5'Width'#3#133#1#0#5'TPage'#9'AboutPage'#7'Caption'#6#5'About'#11'C'
+'lientWidth'#3'}'#1#12'ClientHeight'#3#235#0#6'Height'#3#235#0#5'Width'#3'}'
+#1#0#5'TMemo'#9'AboutMemo'#5'Align'#7#8'alClient'#8'ReadOnly'#9#10'ScrollBar'
+'s'#7#10'ssAutoBoth'#8'TabOrder'#2#0#6'Height'#3#235#0#5'Width'#3'}'#1#0#0#0
+#5'TPage'#16'ContributorsPage'#7'Caption'#6#12'Contributors'#11'ClientWidth'
+#3'}'#1#12'ClientHeight'#3#235#0#6'Height'#3#235#0#5'Width'#3'}'#1#0#5'TMemo'
+#16'ContributorsMemo'#5'Align'#7#8'alClient'#8'ReadOnly'#9#10'ScrollBars'#7
+#10'ssAutoBoth'#8'TabOrder'#2#0#6'Height'#3#235#0#5'Width'#3'}'#1#0#0#0#0#0
'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'#8'OnCr'
+'eate'#7#15'AboutFormCreate'#8'Position'#7#14'poScreenCenter'#0#6'TLabel'#12
+'VersionLabel'#4'Left'#2#14#6'Height'#2#13#3'Top'#2#6#5'Width'#2':'#9'Alignm'
+'ent'#7#8'taCenter'#7'Caption'#6#10'Version #:'#5'Color'#7#6'clNone'#11'Pare'
+'ntColor'#8#0#0#6'TLabel'#14'BuildDateLabel'#4'Left'#2#14#6'Height'#2#13#3'T'
+'op'#2#23#5'Width'#2#30#9'Alignment'#7#8'taCenter'#7'Caption'#6#5'Date:'#5'C'
+'olor'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#13'RevisionLabel'#4'Left'
+#2#14#6'Height'#2#13#3'Top'#2'('#5'Width'#2'P'#7'Caption'#6#13'RevisionLabel'
+#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#13'PlatformLabel'#4'Le'
+'ft'#2#14#6'Height'#2#13#3'Top'#2'='#5'Width'#2'L'#7'Caption'#6#13'PlatformL'
+'abel'#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'I'#8'AutoSize'#9#6'Ca'
+'ncel'#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 Non'
+'e",'#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'NumG'
+'lyphs'#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'Width'#3#133#1#7'Anchors'#11#5'akTop'#6'akLeft'#7
+'akRight'#8'akBottom'#0#9'PageIndex'#2#0#0#5'TPage'#9'AboutPage'#7'Caption'#6
+#5'About'#0#5'TMemo'#9'AboutMemo'#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'#16'ContributorsPage'#7'Caption'#6#12'Contributors'#0#5'TMemo'
+#16'ContributorsMemo'#6'Height'#3#231#0#5'Width'#3#129#1#5'Align'#7#8'alClie'
+'nt'#8'ReadOnly'#9#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#0#0#0#0#0
]);

9
ide/aboutfrm.pas
View File

@ -37,6 +37,7 @@ type
CloseButton: TBitBtn;
BuildDateLabel: TLABEL;
AboutMemo: TMEMO;
PlatformLabel: TLabel;
VersionLabel: TLABEL;
ContributorsMemo:TMemo;
RevisionLabel: TLabel;
@ -122,8 +123,11 @@ begin
Caption:=lisAboutLazarus;
VersionLabel.Caption := lisVersion+' #: '+ GetLazarusVersionString;
RevisionLabel.Caption := lisSVNRevision+LazarusRevisionStr;
BuildDateLabel.Caption := lisDate+': '+GetLocalizedBuildDate;
PlatformLabel.Caption:=GetDefaultTargetCPU+'-'+GetDefaultTargetOS
+'-'+GetDefaultLCLWidgetType;
AboutPage.Caption:=lisMenuTemplateAbout;
ContributorsPage.Caption:=lisContributors;
Constraints.MinWidth:= 600;
@ -156,7 +160,8 @@ procedure TAboutForm.Paint;
begin
inherited Paint;
if FPixmap <>nil
then Canvas.Copyrect(Bounds(12, 70, Width, Height)
then Canvas.Copyrect(
Bounds(12, PlatformLabel.Top+PlatformLabel.Height+6, Width, Height)
,FPixmap.Canvas, Rect(0,0, Width, Height));
end;

2
ide/revision.inc
View File

@ -1,2 +1,2 @@
// Created by Svn2RevisionInc
const RevisionStr = '';
const RevisionStr = '10177:10178M';