* Updated looks of build progress dialog. Patch by Andrew Brunner (modified)

git-svn-id: trunk@22413 -

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

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
 ]);

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;