diff --git a/ide/infobuild.lfm b/ide/infobuild.lfm index a88f5079f3..f447972e5a 100644 --- a/ide/infobuild.lfm +++ b/ide/infobuild.lfm @@ -1,9 +1,9 @@ object FInfoCompile: TFInfoCompile - Left = 270 - Height = 202 - Top = 251 - Width = 430 - ActiveControl = BClose + Left = 628 + Height = 200 + Top = 372 + Width = 386 + ActiveControl = PnlTitle BorderIcons = [] BorderStyle = bsDialog Caption = 'Compile project' @@ -11,198 +11,322 @@ object FInfoCompile: TFInfoCompile ChildSizing.TopBottomSpacing = 6 ChildSizing.HorizontalSpacing = 6 ChildSizing.VerticalSpacing = 6 - ClientHeight = 202 - ClientWidth = 430 + ClientHeight = 200 + ClientWidth = 386 FormStyle = fsStayOnTop OnCreate = FormCreate - ParentFont = False Position = poScreenCenter - LCLVersion = '0.9.25' - object PInfo: TPanel + LCLVersion = '0.9.29' + object PnlTitle: TPanel Left = 6 Height = 24 Top = 6 - Width = 418 + Width = 374 Align = alTop - BevelInner = bvLowered + BevelInner = bvRaised BevelOuter = bvLowered - BorderStyle = bsSingle - Caption = 'PInfo' + ClientHeight = 24 + ClientWidth = 374 Font.Style = [fsBold] ParentFont = False TabOrder = 0 - end - object BClose: TBitBtn - AnchorSideBottom.Control = Owner - AnchorSideBottom.Side = asrBottom - Left = 154 - Height = 34 - Top = 162 - Width = 107 - Anchors = [akBottom] - Caption = '&OK' - Default = True - Kind = bkOK - ModalResult = 1 - NumGlyphs = 0 - OnClick = BCloseClick - TabOrder = 1 + object lbInfo: TLabel + Left = 7 + Height = 20 + Top = 2 + Width = 360 + Align = alClient + Alignment = taCenter + BorderSpacing.Left = 5 + BorderSpacing.Right = 5 + Layout = tlCenter + ParentColor = False + end end object Panel1: TPanel Left = 6 - Height = 50 + Height = 62 Top = 36 - Width = 418 - Align = alTop - BevelInner = bvLowered + Width = 374 + Align = alClient + BevelInner = bvRaised BevelOuter = bvLowered - BorderWidth = 1 - ClientHeight = 50 - ClientWidth = 418 - TabOrder = 2 + ClientHeight = 62 + ClientWidth = 374 + ParentColor = False + TabOrder = 1 object PCurrentStatus: TLabel - Left = 3 - Height = 44 - Top = 3 - Width = 412 + Left = 4 + Height = 54 + Top = 4 + Width = 366 Align = alClient Alignment = taCenter AutoSize = False - Caption = 'PCurrentStatus' + BorderSpacing.Left = 2 + BorderSpacing.Top = 2 + BorderSpacing.Right = 2 + BorderSpacing.Bottom = 2 + Color = clBtnFace + Layout = tlCenter ParentColor = False + Transparent = False WordWrap = True end end - object Panel4: TPanel - AnchorSideLeft.Control = Panel2 - AnchorSideLeft.Side = asrBottom - AnchorSideTop.Control = Panel1 - AnchorSideTop.Side = asrBottom - AnchorSideRight.Control = Owner - AnchorSideRight.Side = asrBottom - Left = 156 - Height = 48 - Top = 92 - Width = 268 - Anchors = [akTop, akLeft, akRight] - BevelInner = bvLowered - BevelOuter = bvLowered - BorderStyle = bsSingle - ClientHeight = 48 - ClientWidth = 268 - TabOrder = 3 - object LNHint: TLabel - Left = 68 - Height = 14 - Top = 5 - Width = 31 - Alignment = taRightJustify - AutoSize = False - Caption = '0' - Font.Color = clBlue - ParentColor = False - ParentFont = False - end - object LInfoHint: TLabel - Left = 6 - Height = 20 - Top = 5 - Width = 38 - Caption = 'Hints:' - ParentColor = False - end - object LInfoWarning: TLabel - Left = 6 - Height = 20 - Top = 26 - Width = 62 - Caption = 'Warnings:' - ParentColor = False - end - object LNWarning: TLabel - Left = 68 - Height = 14 - Top = 26 - Width = 31 - Alignment = taRightJustify - AutoSize = False - Caption = '0' - Font.Color = clGreen - ParentColor = False - ParentFont = False - end - object LInfoError: TLabel - Left = 112 - Height = 20 - Top = 26 - Width = 43 - Caption = 'Errors:' - ParentColor = False - end - object LNError: TLabel - Left = 172 - Height = 14 - Top = 26 - Width = 31 - Alignment = taRightJustify - AutoSize = False - Caption = '0' - Font.Color = clRed - ParentColor = False - ParentFont = False - end - object LInfoNote: TLabel - Left = 112 - Height = 20 - Top = 5 - Width = 43 - Caption = 'Notes:' - ParentColor = False - end - object LNNote: TLabel - Left = 172 - Height = 14 - Top = 5 - Width = 31 - Alignment = taRightJustify - AutoSize = False - Caption = '0' - Font.Color = clBlack - ParentColor = False - ParentFont = False + object pnlButton: TPanel + Left = 6 + Height = 34 + Top = 160 + Width = 374 + Align = alBottom + BevelOuter = bvNone + ClientHeight = 34 + ClientWidth = 374 + TabOrder = 2 + object BClose: TBitBtn + AnchorSideBottom.Control = Owner + AnchorSideBottom.Side = asrBottom + Left = 134 + Height = 34 + Top = 0 + Width = 107 + Anchors = [akTop] + Caption = '&OK' + Default = True + Kind = bkOK + ModalResult = 1 + NumGlyphs = 0 + OnClick = BCloseClick + TabOrder = 0 end end - object Panel2: TPanel - AnchorSideLeft.Control = Owner - AnchorSideTop.Control = Panel4 - AnchorSideTop.Side = asrCenter + object pnlInfo: TPanel Left = 6 - Height = 28 - Top = 102 - Width = 144 - BevelInner = bvLowered - BevelOuter = bvLowered - BorderStyle = bsSingle - ClientHeight = 28 - ClientWidth = 144 - TabOrder = 4 - object LNLines: TLabel - Left = 88 - Height = 14 - Top = 6 - Width = 49 - Alignment = taRightJustify - AutoSize = False - Caption = '0' - ParentColor = False + Height = 50 + Top = 104 + Width = 374 + Align = alBottom + BevelOuter = bvNone + ClientHeight = 50 + ClientWidth = 374 + TabOrder = 3 + object pnlLines: TPanel + AnchorSideLeft.Control = Owner + AnchorSideTop.Side = asrCenter + Left = 0 + Height = 50 + Top = 0 + Width = 122 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + ClientHeight = 50 + ClientWidth = 122 + TabOrder = 0 + object LNLines: TLabel + Left = 49 + Height = 46 + Top = 2 + Width = 66 + Align = alClient + Alignment = taRightJustify + AutoSize = False + BorderSpacing.Right = 5 + Caption = '0' + Layout = tlCenter + ParentColor = False + end + object LInfoLines: TLabel + Left = 6 + Height = 46 + Top = 2 + Width = 43 + Align = alLeft + BorderSpacing.Left = 4 + Caption = 'Lines:' + Layout = tlCenter + ParentColor = False + end end - object LInfoLines: TLabel - Left = 6 - Height = 14 - Top = 6 - Width = 29 - Caption = 'Lines:' - ParentColor = False + object Panel3: TPanel + AnchorSideLeft.Control = Owner + AnchorSideTop.Side = asrCenter + Left = 126 + Height = 50 + Top = 0 + Width = 122 + Align = alClient + BorderSpacing.Left = 4 + BorderSpacing.Right = 4 + BevelInner = bvRaised + BevelOuter = bvLowered + ClientHeight = 50 + ClientWidth = 122 + TabOrder = 1 + object pnlHintsWarnings: TPanel + Left = 4 + Height = 18 + Top = 6 + Width = 114 + Align = alTop + BorderSpacing.Left = 2 + BorderSpacing.Top = 4 + BorderSpacing.Right = 2 + BevelOuter = bvNone + ClientHeight = 18 + ClientWidth = 114 + TabOrder = 0 + object LNHint: TLabel + Left = 45 + Height = 18 + Top = 0 + Width = 67 + Align = alClient + Alignment = taRightJustify + AutoSize = False + BorderSpacing.Left = 2 + BorderSpacing.Right = 2 + Caption = '0' + ParentColor = False + ParentFont = False + end + object LInfoHint: TLabel + Left = 0 + Height = 18 + Top = 0 + Width = 43 + Align = alLeft + Caption = 'Hints:' + ParentColor = False + end + end + object pnlHintsWarnings1: TPanel + Left = 4 + Height = 18 + Top = 26 + Width = 114 + Align = alTop + BorderSpacing.Left = 2 + BorderSpacing.Top = 2 + BorderSpacing.Right = 2 + BevelOuter = bvNone + ClientHeight = 18 + ClientWidth = 114 + TabOrder = 1 + object LInfoWarning: TLabel + Left = 0 + Height = 18 + Top = 0 + Width = 71 + Align = alLeft + Caption = 'Warnings:' + ParentColor = False + end + object LNWarning: TLabel + Left = 73 + Height = 18 + Top = 0 + Width = 39 + Align = alClient + Alignment = taRightJustify + AutoSize = False + BorderSpacing.Left = 2 + BorderSpacing.Right = 2 + Caption = '0' + ParentColor = False + ParentFont = False + end + end + end + object pnlNotesErrors: TPanel + AnchorSideLeft.Control = Owner + AnchorSideTop.Side = asrCenter + Left = 252 + Height = 50 + Top = 0 + Width = 122 + Align = alRight + BorderSpacing.Left = 4 + BevelInner = bvRaised + BevelOuter = bvLowered + ClientHeight = 50 + ClientWidth = 122 + TabOrder = 2 + object pnlHintsWarnings2: TPanel + Left = 4 + Height = 18 + Top = 6 + Width = 114 + Align = alTop + BorderSpacing.Left = 2 + BorderSpacing.Top = 4 + BorderSpacing.Right = 2 + BevelOuter = bvNone + ClientHeight = 18 + ClientWidth = 114 + TabOrder = 0 + object LInfoNote: TLabel + Left = 0 + Height = 18 + Top = 0 + Width = 48 + Align = alLeft + Caption = 'Notes:' + ParentColor = False + end + object LNNote: TLabel + Left = 50 + Height = 18 + Top = 0 + Width = 62 + Align = alClient + Alignment = taRightJustify + AutoSize = False + BorderSpacing.Left = 2 + BorderSpacing.Right = 2 + Caption = '0' + ParentColor = False + ParentFont = False + end + end + object pnlErrors: TPanel + Left = 4 + Height = 18 + Top = 26 + Width = 114 + Align = alTop + BorderSpacing.Left = 2 + BorderSpacing.Top = 2 + BorderSpacing.Right = 2 + BevelOuter = bvNone + ClientHeight = 18 + ClientWidth = 114 + TabOrder = 1 + object LInfoError: TLabel + Left = 0 + Height = 18 + Top = 0 + Width = 49 + Align = alLeft + Caption = 'Errors:' + ParentColor = False + end + object LNError: TLabel + Left = 51 + Height = 18 + Top = 0 + Width = 61 + Align = alClient + Alignment = taRightJustify + AutoSize = False + BorderSpacing.Left = 2 + BorderSpacing.Right = 2 + Caption = '0' + ParentColor = False + ParentFont = False + end + end end end end diff --git a/ide/infobuild.lrs b/ide/infobuild.lrs index a9af86bd11..c9bae27ed3 100644 --- a/ide/infobuild.lrs +++ b/ide/infobuild.lrs @@ -1,59 +1,90 @@ -{ Questo è un file risorse generato automaticamente da Lazarus } +{ This is an automatically generated lazarus resource file } LazarusResources.Add('TFInfoCompile','FORMDATA',[ - 'TPF0'#13'TFInfoCompile'#12'FInfoCompile'#4'Left'#3#14#1#6'Height'#3#202#0#3 - +'Top'#3#251#0#5'Width'#3#174#1#13'ActiveControl'#7#6'BClose'#11'BorderIcons' + 'TPF0'#13'TFInfoCompile'#12'FInfoCompile'#4'Left'#3't'#2#6'Height'#3#200#0#3 + +'Top'#3't'#1#5'Width'#3#130#1#13'ActiveControl'#7#8'PnlTitle'#11'BorderIcons' +#11#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#15'Compile project'#28'Chil' +'dSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'Child' +'Sizing.HorizontalSpacing'#2#6#27'ChildSizing.VerticalSpacing'#2#6#12'Client' - +'Height'#3#202#0#11'ClientWidth'#3#174#1#9'FormStyle'#7#11'fsStayOnTop'#8'On' - +'Create'#7#10'FormCreate'#10'ParentFont'#8#8'Position'#7#14'poScreenCenter' - +#10'LCLVersion'#6#6'0.9.25'#0#6'TPanel'#5'PInfo'#4'Left'#2#6#6'Height'#2#24#3 - +'Top'#2#6#5'Width'#3#162#1#5'Align'#7#5'alTop'#10'BevelInner'#7#9'bvLowered' - +#10'BevelOuter'#7#9'bvLowered'#11'BorderStyle'#7#8'bsSingle'#7'Caption'#6#5 - +'PInfo'#10'Font.Style'#11#6'fsBold'#0#10'ParentFont'#8#8'TabOrder'#2#0#0#0#7 - +'TBitBtn'#6'BClose'#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorSideBot' - +'tom.Side'#7#9'asrBottom'#4'Left'#3#154#0#6'Height'#2'"'#3'Top'#3#162#0#5'Wi' - +'dth'#2'k'#7'Anchors'#11#8'akBottom'#0#7'Caption'#6#3'&OK'#7'Default'#9#4'Ki' - +'nd'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#7'OnClick'#7#11'BCloseCl' - +'ick'#8'TabOrder'#2#1#0#0#6'TPanel'#6'Panel1'#4'Left'#2#6#6'Height'#2'2'#3'T' - +'op'#2'$'#5'Width'#3#162#1#5'Align'#7#5'alTop'#10'BevelInner'#7#9'bvLowered' - +#10'BevelOuter'#7#9'bvLowered'#11'BorderWidth'#2#1#12'ClientHeight'#2'2'#11 - +'ClientWidth'#3#162#1#8'TabOrder'#2#2#0#6'TLabel'#14'PCurrentStatus'#4'Left' - +#2#3#6'Height'#2','#3'Top'#2#3#5'Width'#3#156#1#5'Align'#7#8'alClient'#9'Ali' - +'gnment'#7#8'taCenter'#8'AutoSize'#8#7'Caption'#6#14'PCurrentStatus'#11'Pare' - +'ntColor'#8#8'WordWrap'#9#0#0#0#6'TPanel'#6'Panel4'#22'AnchorSideLeft.Contro' - +'l'#7#6'Panel2'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Cont' - +'rol'#7#6'Panel1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.C' - +'ontrol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#156#0#6 - +'Height'#2'0'#3'Top'#2'\'#5'Width'#3#12#1#7'Anchors'#11#5'akTop'#6'akLeft'#7 - +'akRight'#0#10'BevelInner'#7#9'bvLowered'#10'BevelOuter'#7#9'bvLowered'#11'B' - +'orderStyle'#7#8'bsSingle'#12'ClientHeight'#2'0'#11'ClientWidth'#3#12#1#8'Ta' - +'bOrder'#2#3#0#6'TLabel'#6'LNHint'#4'Left'#2'D'#6'Height'#2#14#3'Top'#2#5#5 - +'Width'#2#31#9'Alignment'#7#14'taRightJustify'#8'AutoSize'#8#7'Caption'#6#1 - +'0'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLab' - +'el'#9'LInfoHint'#4'Left'#2#6#6'Height'#2#20#3'Top'#2#5#5'Width'#2'&'#7'Capt' - +'ion'#6#6'Hints:'#11'ParentColor'#8#0#0#6'TLabel'#12'LInfoWarning'#4'Left'#2 - +#6#6'Height'#2#20#3'Top'#2#26#5'Width'#2'>'#7'Caption'#6#9'Warnings:'#11'Par' - +'entColor'#8#0#0#6'TLabel'#9'LNWarning'#4'Left'#2'D'#6'Height'#2#14#3'Top'#2 - +#26#5'Width'#2#31#9'Alignment'#7#14'taRightJustify'#8'AutoSize'#8#7'Caption' - +#6#1'0'#10'Font.Color'#7#7'clGreen'#11'ParentColor'#8#10'ParentFont'#8#0#0#6 - +'TLabel'#10'LInfoError'#4'Left'#2'p'#6'Height'#2#20#3'Top'#2#26#5'Width'#2'+' - +#7'Caption'#6#7'Errors:'#11'ParentColor'#8#0#0#6'TLabel'#7'LNError'#4'Left'#3 - +#172#0#6'Height'#2#14#3'Top'#2#26#5'Width'#2#31#9'Alignment'#7#14'taRightJus' - +'tify'#8'AutoSize'#8#7'Caption'#6#1'0'#10'Font.Color'#7#5'clRed'#11'ParentCo' - +'lor'#8#10'ParentFont'#8#0#0#6'TLabel'#9'LInfoNote'#4'Left'#2'p'#6'Height'#2 - +#20#3'Top'#2#5#5'Width'#2'+'#7'Caption'#6#6'Notes:'#11'ParentColor'#8#0#0#6 - +'TLabel'#6'LNNote'#4'Left'#3#172#0#6'Height'#2#14#3'Top'#2#5#5'Width'#2#31#9 - +'Alignment'#7#14'taRightJustify'#8'AutoSize'#8#7'Caption'#6#1'0'#10'Font.Col' - +'or'#7#7'clBlack'#11'ParentColor'#8#10'ParentFont'#8#0#0#0#6'TPanel'#6'Panel' - +'2'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#6'Pane' - +'l4'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#28#3'Top' - +#2'f'#5'Width'#3#144#0#10'BevelInner'#7#9'bvLowered'#10'BevelOuter'#7#9'bvLo' - +'wered'#11'BorderStyle'#7#8'bsSingle'#12'ClientHeight'#2#28#11'ClientWidth'#3 - +#144#0#8'TabOrder'#2#4#0#6'TLabel'#7'LNLines'#4'Left'#2'X'#6'Height'#2#14#3 - +'Top'#2#6#5'Width'#2'1'#9'Alignment'#7#14'taRightJustify'#8'AutoSize'#8#7'Ca' - +'ption'#6#1'0'#11'ParentColor'#8#0#0#6'TLabel'#10'LInfoLines'#4'Left'#2#6#6 - +'Height'#2#14#3'Top'#2#6#5'Width'#2#29#7'Caption'#6#6'Lines:'#11'ParentColor' - +#8#0#0#0#0 + +'Height'#3#200#0#11'ClientWidth'#3#130#1#9'FormStyle'#7#11'fsStayOnTop'#8'On' + +'Create'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6 + +'0.9.29'#0#6'TPanel'#8'PnlTitle'#4'Left'#2#6#6'Height'#2#24#3'Top'#2#6#5'Wid' + +'th'#3'v'#1#5'Align'#7#5'alTop'#10'BevelInner'#7#8'bvRaised'#10'BevelOuter'#7 + +#9'bvLowered'#12'ClientHeight'#2#24#11'ClientWidth'#3'v'#1#10'Font.Style'#11 + +#6'fsBold'#0#10'ParentFont'#8#8'TabOrder'#2#0#0#6'TLabel'#6'lbInfo'#4'Left'#2 + +#7#6'Height'#2#20#3'Top'#2#2#5'Width'#3'h'#1#5'Align'#7#8'alClient'#9'Alignm' + +'ent'#7#8'taCenter'#18'BorderSpacing.Left'#2#5#19'BorderSpacing.Right'#2#5#6 + +'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#0#6'TPanel'#6'Panel1'#4'Left'#2 + +#6#6'Height'#2'>'#3'Top'#2'$'#5'Width'#3'v'#1#5'Align'#7#8'alClient'#10'Beve' + +'lInner'#7#8'bvRaised'#10'BevelOuter'#7#9'bvLowered'#12'ClientHeight'#2'>'#11 + +'ClientWidth'#3'v'#1#11'ParentColor'#8#8'TabOrder'#2#1#0#6'TLabel'#14'PCurre' + +'ntStatus'#4'Left'#2#4#6'Height'#2'6'#3'Top'#2#4#5'Width'#3'n'#1#5'Align'#7#8 + +'alClient'#9'Alignment'#7#8'taCenter'#8'AutoSize'#8#18'BorderSpacing.Left'#2 + +#2#17'BorderSpacing.Top'#2#2#19'BorderSpacing.Right'#2#2#20'BorderSpacing.Bo' + +'ttom'#2#2#5'Color'#7#9'clBtnFace'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8 + +#11'Transparent'#8#8'WordWrap'#9#0#0#0#6'TPanel'#9'pnlButton'#4'Left'#2#6#6 + +'Height'#2'"'#3'Top'#3#160#0#5'Width'#3'v'#1#5'Align'#7#8'alBottom'#10'Bevel' + +'Outer'#7#6'bvNone'#12'ClientHeight'#2'"'#11'ClientWidth'#3'v'#1#8'TabOrder' + +#2#2#0#7'TBitBtn'#6'BClose'#24'AnchorSideBottom.Control'#7#5'Owner'#21'Ancho' + +'rSideBottom.Side'#7#9'asrBottom'#4'Left'#3#134#0#6'Height'#2'"'#3'Top'#2#0#5 + +'Width'#2'k'#7'Anchors'#11#5'akTop'#0#7'Caption'#6#3'&OK'#7'Default'#9#4'Kin' + +'d'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#7'OnClick'#7#11'BCloseCli' + +'ck'#8'TabOrder'#2#0#0#0#0#6'TPanel'#7'pnlInfo'#4'Left'#2#6#6'Height'#2'2'#3 + +'Top'#2'h'#5'Width'#3'v'#1#5'Align'#7#8'alBottom'#10'BevelOuter'#7#6'bvNone' + +#12'ClientHeight'#2'2'#11'ClientWidth'#3'v'#1#8'TabOrder'#2#3#0#6'TPanel'#8 + +'pnlLines'#22'AnchorSideLeft.Control'#7#5'Owner'#18'AnchorSideTop.Side'#7#9 + +'asrCenter'#4'Left'#2#0#6'Height'#2'2'#3'Top'#2#0#5'Width'#2'z'#5'Align'#7#6 + +'alLeft'#10'BevelInner'#7#8'bvRaised'#10'BevelOuter'#7#9'bvLowered'#12'Clien' + +'tHeight'#2'2'#11'ClientWidth'#2'z'#8'TabOrder'#2#0#0#6'TLabel'#7'LNLines'#4 + +'Left'#2'1'#6'Height'#2'.'#3'Top'#2#2#5'Width'#2'B'#5'Align'#7#8'alClient'#9 + +'Alignment'#7#14'taRightJustify'#8'AutoSize'#8#19'BorderSpacing.Right'#2#5#7 + +'Caption'#6#1'0'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#10 + +'LInfoLines'#4'Left'#2#6#6'Height'#2'.'#3'Top'#2#2#5'Width'#2'+'#5'Align'#7#6 + +'alLeft'#18'BorderSpacing.Left'#2#4#7'Caption'#6#6'Lines:'#6'Layout'#7#8'tlC' + +'enter'#11'ParentColor'#8#0#0#0#6'TPanel'#6'Panel3'#22'AnchorSideLeft.Contro' + +'l'#7#5'Owner'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2'~'#6'Height'#2 + +'2'#3'Top'#2#0#5'Width'#2'z'#5'Align'#7#8'alClient'#18'BorderSpacing.Left'#2 + +#4#19'BorderSpacing.Right'#2#4#10'BevelInner'#7#8'bvRaised'#10'BevelOuter'#7 + +#9'bvLowered'#12'ClientHeight'#2'2'#11'ClientWidth'#2'z'#8'TabOrder'#2#1#0#6 + +'TPanel'#16'pnlHintsWarnings'#4'Left'#2#4#6'Height'#2#18#3'Top'#2#6#5'Width' + +#2'r'#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#2#17'BorderSpacing.Top'#2 + +#4#19'BorderSpacing.Right'#2#2#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2 + +#18#11'ClientWidth'#2'r'#8'TabOrder'#2#0#0#6'TLabel'#6'LNHint'#4'Left'#2'-'#6 + +'Height'#2#18#3'Top'#2#0#5'Width'#2'C'#5'Align'#7#8'alClient'#9'Alignment'#7 + +#14'taRightJustify'#8'AutoSize'#8#18'BorderSpacing.Left'#2#2#19'BorderSpacin' + +'g.Right'#2#2#7'Caption'#6#1'0'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLa' + +'bel'#9'LInfoHint'#4'Left'#2#0#6'Height'#2#18#3'Top'#2#0#5'Width'#2'+'#5'Ali' + +'gn'#7#6'alLeft'#7'Caption'#6#6'Hints:'#11'ParentColor'#8#0#0#0#6'TPanel'#17 + +'pnlHintsWarnings1'#4'Left'#2#4#6'Height'#2#18#3'Top'#2#26#5'Width'#2'r'#5'A' + +'lign'#7#5'alTop'#18'BorderSpacing.Left'#2#2#17'BorderSpacing.Top'#2#2#19'Bo' + +'rderSpacing.Right'#2#2#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2#18#11 + +'ClientWidth'#2'r'#8'TabOrder'#2#1#0#6'TLabel'#12'LInfoWarning'#4'Left'#2#0#6 + +'Height'#2#18#3'Top'#2#0#5'Width'#2'G'#5'Align'#7#6'alLeft'#7'Caption'#6#9'W' + +'arnings:'#11'ParentColor'#8#0#0#6'TLabel'#9'LNWarning'#4'Left'#2'I'#6'Heigh' + +'t'#2#18#3'Top'#2#0#5'Width'#2''''#5'Align'#7#8'alClient'#9'Alignment'#7#14 + +'taRightJustify'#8'AutoSize'#8#18'BorderSpacing.Left'#2#2#19'BorderSpacing.R' + +'ight'#2#2#7'Caption'#6#1'0'#11'ParentColor'#8#10'ParentFont'#8#0#0#0#0#6'TP' + +'anel'#14'pnlNotesErrors'#22'AnchorSideLeft.Control'#7#5'Owner'#18'AnchorSid' + ,'eTop.Side'#7#9'asrCenter'#4'Left'#3#252#0#6'Height'#2'2'#3'Top'#2#0#5'Width' + +#2'z'#5'Align'#7#7'alRight'#18'BorderSpacing.Left'#2#4#10'BevelInner'#7#8'bv' + +'Raised'#10'BevelOuter'#7#9'bvLowered'#12'ClientHeight'#2'2'#11'ClientWidth' + +#2'z'#8'TabOrder'#2#2#0#6'TPanel'#17'pnlHintsWarnings2'#4'Left'#2#4#6'Height' + +#2#18#3'Top'#2#6#5'Width'#2'r'#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#2 + +#17'BorderSpacing.Top'#2#4#19'BorderSpacing.Right'#2#2#10'BevelOuter'#7#6'bv' + +'None'#12'ClientHeight'#2#18#11'ClientWidth'#2'r'#8'TabOrder'#2#0#0#6'TLabel' + +#9'LInfoNote'#4'Left'#2#0#6'Height'#2#18#3'Top'#2#0#5'Width'#2'0'#5'Align'#7 + +#6'alLeft'#7'Caption'#6#6'Notes:'#11'ParentColor'#8#0#0#6'TLabel'#6'LNNote'#4 + +'Left'#2'2'#6'Height'#2#18#3'Top'#2#0#5'Width'#2'>'#5'Align'#7#8'alClient'#9 + +'Alignment'#7#14'taRightJustify'#8'AutoSize'#8#18'BorderSpacing.Left'#2#2#19 + +'BorderSpacing.Right'#2#2#7'Caption'#6#1'0'#11'ParentColor'#8#10'ParentFont' + +#8#0#0#0#6'TPanel'#9'pnlErrors'#4'Left'#2#4#6'Height'#2#18#3'Top'#2#26#5'Wid' + +'th'#2'r'#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#2#17'BorderSpacing.To' + +'p'#2#2#19'BorderSpacing.Right'#2#2#10'BevelOuter'#7#6'bvNone'#12'ClientHeig' + +'ht'#2#18#11'ClientWidth'#2'r'#8'TabOrder'#2#1#0#6'TLabel'#10'LInfoError'#4 + +'Left'#2#0#6'Height'#2#18#3'Top'#2#0#5'Width'#2'1'#5'Align'#7#6'alLeft'#7'Ca' + +'ption'#6#7'Errors:'#11'ParentColor'#8#0#0#6'TLabel'#7'LNError'#4'Left'#2'3' + +#6'Height'#2#18#3'Top'#2#0#5'Width'#2'='#5'Align'#7#8'alClient'#9'Alignment' + +#7#14'taRightJustify'#8'AutoSize'#8#18'BorderSpacing.Left'#2#2#19'BorderSpac' + +'ing.Right'#2#2#7'Caption'#6#1'0'#11'ParentColor'#8#10'ParentFont'#8#0#0#0#0 + +#0#0 ]); diff --git a/ide/infobuild.pp b/ide/infobuild.pp index eccaefd43f..83643c3b0a 100644 --- a/ide/infobuild.pp +++ b/ide/infobuild.pp @@ -40,22 +40,30 @@ type { TFInfoCompile } TFInfoCompile = class ( TForm ) - BClose : TBitBtn; - LInfoError : TLabel; - LInfoNote : TLabel; - LInfoHint : TLabel; - LInfoWarning : TLabel; - LInfoLines : TLabel; - LNError : TLabel; - LNNote : TLabel; - LNLines : TLabel; - LNHint : TLabel; - LNWarning : TLabel; - Panel2 : TPanel; - Panel4 : TPanel; + BClose: TBitBtn; + lbInfo: TLabel; + LInfoError: TLabel; + LInfoHint: TLabel; + LInfoLines: TLabel; + LInfoNote: TLabel; + LInfoWarning: TLabel; + LNError: TLabel; + LNHint: TLabel; + LNLines: TLabel; + LNNote: TLabel; + LNWarning: TLabel; + pnlLines: TPanel; + Panel3: TPanel; + pnlNotesErrors: TPanel; + pnlHintsWarnings: TPanel; + pnlHintsWarnings1: TPanel; + pnlHintsWarnings2: TPanel; + pnlErrors: TPanel; + pnlInfo: TPanel; + pnlButton: TPanel; PCurrentStatus : TLabel; Panel1 : TPanel; - PInfo : TPanel; + PnlTitle : TPanel; procedure BCloseClick ( Sender : TObject ) ; procedure FormCreate ( Sender : TObject ) ; private @@ -95,9 +103,8 @@ begin SetStatus('Aborted...!'); MakeBold; SetCanClose; - end - else - Close; + end else + Close; end; procedure TFInfoCompile.FormCreate ( Sender : TObject ) ; @@ -107,7 +114,8 @@ begin NErrors := 0; NNotes := 0; NLines := 0; - + + LInfoLines.Caption := lisInfoBuildLines; LInfoError.Caption := lisInfoBuildErrors; LInfoHint.Caption := lisInfoBuildHint; @@ -127,7 +135,7 @@ end; Procedure TFInfoCompile.SetProjectName(Const Sname : String); begin - PInfo.Caption := lisInfoBuildBuild + ' '+Sname; + lbInfo.Caption := lisInfoBuildBuild + ' '+ ExtractFileName(Sname); end; Procedure TFInfoCompile.SetStatus(Const SStatus : String); @@ -135,7 +143,9 @@ Var S : String; Ok : Boolean; NL : Integer; + iLoc:Integer; begin + S := LowerCase(SStatus); if (pos('warning(s)', s) > 0) or @@ -171,25 +181,19 @@ begin LNNote.Caption := IntToStr(NNotes); Ok := False; end; - - If (Pos('lines compiled', s) > 0) then - begin - s := copy(s, 1, pos('lines compiled', s)-1); + iLoc:=Pos('lines compiled', s); + If (iLoc> 0) then begin + s := copy(s, 1, iLoc-1); while copy(s, 1, 1) = ' ' do delete(s, 1, 1); while copy(s, length(s), 1) = ' ' do delete(s, length(s), 1); - try - NL := strtoint(s) - except - NL := 0; - end; - + NL := StrTointDef(S,0); NLines := NLines + NL; - LNLines.Caption := IntToStr(NLines); + LNLines.Caption := FormatFloat('#,##0',NLines); Ok := false; end; - If Ok then PCurrentStatus.Caption := SStatus; + pnlInfo.Refresh; end; Procedure TFInfoCompile.SetCanClose;