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

IDE: improved debugging

Browse Source 
git-svn-id: trunk@15547 -
This commit is contained in:
mattias 2008-06-23 18:43:04 +00:00
parent 7e0bf7487b
commit b772f0d83b
4 changed files with 112 additions and 71 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/infobuild.lfm
View File

@ -1,10 +1,8 @@
object FInfoCompile: TFInfoCompile object FInfoCompile: TFInfoCompile
Left = 242 Left = 270
Height = 199 Height = 199
Top = 231 Top = 251
Width = 397 Width = 397
HorzScrollBar.Page = 396
VertScrollBar.Page = 198
ActiveControl = BClose ActiveControl = BClose
BorderIcons = [] BorderIcons = []
BorderStyle = bsDialog BorderStyle = bsDialog
@ -72,8 +70,8 @@ object FInfoCompile: TFInfoCompile
BevelInner = bvLowered BevelInner = bvLowered
BevelOuter = bvLowered BevelOuter = bvLowered
BorderStyle = bsSingle BorderStyle = bsSingle
ClientHeight = 44 ClientHeight = 48
ClientWidth = 206 ClientWidth = 210
TabOrder = 3 TabOrder = 3
object LNHint: TLabel object LNHint: TLabel
Left = 68 Left = 68

132
ide/infobuild.lrs
View File

@ -1,49 +1,91 @@
{ Questo è un file risorse generato automaticamente da Lazarus } { Questo è un file risorse generato automaticamente da Lazarus }
LazarusResources.Add('TFInfoCompile','FORMDATA',[ LazarusResources.Add('TFInfoCompile','FORMDATA',[
'TPF0'#13'TFInfoCompile'#12'FInfoCompile'#4'Left'#3#242#0#6'Height'#3#199#0#3 'TPF0'#13'TFInfoCompile'#12'FInfoCompile'#4'Left'#3#14#1#6'Height'#3#199#0#3
+'Top'#3#231#0#5'Width'#3#141#1#18'HorzScrollBar.Page'#3#140#1#18'VertScrollB' +'Top'#3#251#0#5'Width'#3#141#1#13'ActiveControl'#7#6'BClose'#11'BorderIcons'
+'ar.Page'#3#198#0#13'ActiveControl'#7#6'BClose'#11'BorderIcons'#11#0#11'Bord' +#11#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#15'Compile project'#12'Clie'
+'erStyle'#7#8'bsDialog'#7'Caption'#6#15'Compile project'#12'ClientHeight'#3 +'ntHeight'#3#199#0#11'ClientWidth'#3#141#1#9'FormStyle'#7#11'fsStayOnTop'#8
+#199#0#11'ClientWidth'#3#141#1#9'FormStyle'#7#11'fsStayOnTop'#8'OnCreate'#7 +'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6
+#10'FormCreate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.25'#0 +#6'0.9.25'#0#6'TPanel'#5'PInfo'#4'Left'#2#6#6'Height'#2#24#3'Top'#2#6#5'Widt'
+#6'TPanel'#5'PInfo'#4'Left'#2#6#6'Height'#2#24#3'Top'#2#6#5'Width'#3#130#1#10 +'h'#3#130#1#10'BevelInner'#7#9'bvLowered'#10'BevelOuter'#7#9'bvLowered'#11'B'
+'BevelInner'#7#9'bvLowered'#10'BevelOuter'#7#9'bvLowered'#11'BorderStyle'#7#8 +'orderStyle'#7#8'bsSingle'#7'Caption'#6#5'PInfo'#10'Font.Style'#11#6'fsBold'
+'bsSingle'#7'Caption'#6#5'PInfo'#10'Font.Style'#11#6'fsBold'#0#8'TabOrder'#2 +#0#8'TabOrder'#2#0#0#0#7'TBitBtn'#6'BClose'#4'Left'#3#138#0#6'Height'#2'"'#3
+#0#0#0#7'TBitBtn'#6'BClose'#4'Left'#3#138#0#6'Height'#2'"'#3'Top'#3#154#0#5 +'Top'#3#154#0#5'Width'#2'k'#7'Caption'#6#3'&OK'#7'Default'#9#4'Kind'#7#4'bkO'
+'Width'#2'k'#7'Caption'#6#3'&OK'#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResu' +'K'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#7'OnClick'#7#11'BCloseClick'#8'TabO'
+'lt'#2#1#9'NumGlyphs'#2#0#7'OnClick'#7#11'BCloseClick'#8'TabOrder'#2#1#0#0#6 +'rder'#2#1#0#0#6'TPanel'#6'Panel1'#4'Left'#2#6#6'Height'#2'2'#3'Top'#2'"'#5
+'TPanel'#6'Panel1'#4'Left'#2#6#6'Height'#2'2'#3'Top'#2'"'#5'Width'#3#130#1#10 +'Width'#3#130#1#10'BevelInner'#7#9'bvLowered'#10'BevelOuter'#7#9'bvLowered'
+'BevelInner'#7#9'bvLowered'#10'BevelOuter'#7#9'bvLowered'#11'BorderWidth'#2#1 +#11'BorderWidth'#2#1#12'ClientHeight'#2'2'#11'ClientWidth'#3#130#1#8'TabOrde'
+#12'ClientHeight'#2'2'#11'ClientWidth'#3#130#1#8'TabOrder'#2#2#0#6'TLabel'#14 +'r'#2#2#0#6'TLabel'#14'PCurrentStatus'#4'Left'#2#3#6'Height'#2','#3'Top'#2#3
+'PCurrentStatus'#4'Left'#2#3#6'Height'#2','#3'Top'#2#3#5'Width'#3'|'#1#5'Ali' +#5'Width'#3'|'#1#5'Align'#7#8'alClient'#9'Alignment'#7#8'taCenter'#8'AutoSiz'
+'gn'#7#8'alClient'#9'Alignment'#7#8'taCenter'#8'AutoSize'#8#7'Caption'#6#14 +'e'#8#7'Caption'#6#14'PCurrentStatus'#11'ParentColor'#8#8'WordWrap'#9#0#0#0#6
+'PCurrentStatus'#11'ParentColor'#8#8'WordWrap'#9#0#0#0#6'TPanel'#6'Panel4'#4 +'TPanel'#6'Panel4'#4'Left'#3#176#0#6'Height'#2'0'#3'Top'#2'^'#5'Width'#3#210
+'Left'#3#176#0#6'Height'#2'0'#3'Top'#2'^'#5'Width'#3#210#0#10'BevelInner'#7#9 +#0#10'BevelInner'#7#9'bvLowered'#10'BevelOuter'#7#9'bvLowered'#11'BorderStyl'
+'bvLowered'#10'BevelOuter'#7#9'bvLowered'#11'BorderStyle'#7#8'bsSingle'#12'C' +'e'#7#8'bsSingle'#12'ClientHeight'#2'0'#11'ClientWidth'#3#210#0#8'TabOrder'#2
+'lientHeight'#2','#11'ClientWidth'#3#206#0#8'TabOrder'#2#3#0#6'TLabel'#6'LNH' +#3#0#6'TLabel'#6'LNHint'#4'Left'#2'D'#6'Height'#2#14#3'Top'#2#5#5'Width'#2#31
+'int'#4'Left'#2'D'#6'Height'#2#14#3'Top'#2#5#5'Width'#2#31#9'Alignment'#7#14 +#9'Alignment'#7#14'taRightJustify'#8'AutoSize'#8#7'Caption'#6#1'0'#10'Font.C'
+'taRightJustify'#8'AutoSize'#8#7'Caption'#6#1'0'#10'Font.Color'#7#6'clBlue' +'olor'#7#6'clBlue'#11'ParentColor'#8#0#0#6'TLabel'#9'LInfoHint'#4'Left'#2#6#6
+#11'ParentColor'#8#0#0#6'TLabel'#9'LInfoHint'#4'Left'#2#6#6'Height'#2#14#3'T' +'Height'#2#14#3'Top'#2#5#5'Width'#2#29#7'Caption'#6#6'Hints:'#11'ParentColor'
+'op'#2#5#5'Width'#2#29#7'Caption'#6#6'Hints:'#11'ParentColor'#8#0#0#6'TLabel' +#8#0#0#6'TLabel'#12'LInfoWarning'#4'Left'#2#6#6'Height'#2#14#3'Top'#2#26#5'W'
+#12'LInfoWarning'#4'Left'#2#6#6'Height'#2#14#3'Top'#2#26#5'Width'#2'2'#7'Cap' +'idth'#2'2'#7'Caption'#6#9'Warnings:'#11'ParentColor'#8#0#0#6'TLabel'#9'LNWa'
+'tion'#6#9'Warnings:'#11'ParentColor'#8#0#0#6'TLabel'#9'LNWarning'#4'Left'#2 +'rning'#4'Left'#2'D'#6'Height'#2#14#3'Top'#2#26#5'Width'#2#31#9'Alignment'#7
+'D'#6'Height'#2#14#3'Top'#2#26#5'Width'#2#31#9'Alignment'#7#14'taRightJustif' +#14'taRightJustify'#8'AutoSize'#8#7'Caption'#6#1'0'#10'Font.Color'#7#7'clGre'
+'y'#8'AutoSize'#8#7'Caption'#6#1'0'#10'Font.Color'#7#7'clGreen'#11'ParentCol' +'en'#11'ParentColor'#8#0#0#6'TLabel'#10'LInfoError'#4'Left'#2'p'#6'Height'#2
+'or'#8#0#0#6'TLabel'#10'LInfoError'#4'Left'#2'p'#6'Height'#2#14#3'Top'#2#26#5 +#14#3'Top'#2#26#5'Width'#2'"'#7'Caption'#6#7'Errors:'#11'ParentColor'#8#0#0#6
+'Width'#2'"'#7'Caption'#6#7'Errors:'#11'ParentColor'#8#0#0#6'TLabel'#7'LNErr' +'TLabel'#7'LNError'#4'Left'#3#172#0#6'Height'#2#14#3'Top'#2#26#5'Width'#2#31
+'or'#4'Left'#3#172#0#6'Height'#2#14#3'Top'#2#26#5'Width'#2#31#9'Alignment'#7 +#9'Alignment'#7#14'taRightJustify'#8'AutoSize'#8#7'Caption'#6#1'0'#10'Font.C'
+#14'taRightJustify'#8'AutoSize'#8#7'Caption'#6#1'0'#10'Font.Color'#7#5'clRed' +'olor'#7#5'clRed'#11'ParentColor'#8#0#0#6'TLabel'#9'LInfoNote'#4'Left'#2'p'#6
+#11'ParentColor'#8#0#0#6'TLabel'#9'LInfoNote'#4'Left'#2'p'#6'Height'#2#14#3 +'Height'#2#14#3'Top'#2#5#5'Width'#2'!'#7'Caption'#6#6'Notes:'#11'ParentColor'
+'Top'#2#5#5'Width'#2'!'#7'Caption'#6#6'Notes:'#11'ParentColor'#8#0#0#6'TLabe' +#8#0#0#6'TLabel'#6'LNNote'#4'Left'#3#172#0#6'Height'#2#14#3'Top'#2#5#5'Width'
+'l'#6'LNNote'#4'Left'#3#172#0#6'Height'#2#14#3'Top'#2#5#5'Width'#2#31#9'Alig' +#2#31#9'Alignment'#7#14'taRightJustify'#8'AutoSize'#8#7'Caption'#6#1'0'#10'F'
+'nment'#7#14'taRightJustify'#8'AutoSize'#8#7'Caption'#6#1'0'#10'Font.Color'#7 +'ont.Color'#7#7'clBlack'#11'ParentColor'#8#0#0#0#6'TPanel'#6'Panel2'#4'Left'
+#7'clBlack'#11'ParentColor'#8#0#0#0#6'TPanel'#6'Panel2'#4'Left'#2#8#6'Height' +#2#8#6'Height'#2#28#3'Top'#2'h'#5'Width'#3#144#0#10'BevelInner'#7#9'bvLowere'
+#2#28#3'Top'#2'h'#5'Width'#3#144#0#10'BevelInner'#7#9'bvLowered'#10'BevelOut' +'d'#10'BevelOuter'#7#9'bvLowered'#11'BorderStyle'#7#8'bsSingle'#12'ClientHei'
+'er'#7#9'bvLowered'#11'BorderStyle'#7#8'bsSingle'#12'ClientHeight'#2#28#11'C' +'ght'#2#28#11'ClientWidth'#3#144#0#8'TabOrder'#2#4#0#6'TLabel'#7'LNLines'#4
+'lientWidth'#3#144#0#8'TabOrder'#2#4#0#6'TLabel'#7'LNLines'#4'Left'#2'X'#6'H' +'Left'#2'X'#6'Height'#2#14#3'Top'#2#6#5'Width'#2'1'#9'Alignment'#7#14'taRigh'
+'eight'#2#14#3'Top'#2#6#5'Width'#2'1'#9'Alignment'#7#14'taRightJustify'#8'Au' +'tJustify'#8'AutoSize'#8#7'Caption'#6#1'0'#11'ParentColor'#8#0#0#6'TLabel'#10
+'toSize'#8#7'Caption'#6#1'0'#11'ParentColor'#8#0#0#6'TLabel'#10'LInfoLines'#4 +'LInfoLines'#4'Left'#2#6#6'Height'#2#14#3'Top'#2#6#5'Width'#2#29#7'Caption'#6
+'Left'#2#6#6'Height'#2#14#3'Top'#2#6#5'Width'#2#29#7'Caption'#6#6'Lines:'#11 +#6'Lines:'#11'ParentColor'#8#0#0#0#0#13'TFInfoCompile'#12'FInfoCompile'#4'Le'
+'ParentColor'#8#0#0#0#0 +'ft'#3#14#1#6'Height'#3#199#0#3'Top'#3#251#0#5'Width'#3#141#1#13'ActiveContr'
+'ol'#7#6'BClose'#11'BorderIcons'#11#0#11'BorderStyle'#7#8'bsDialog'#7'Captio'
+'n'#6#15'Compile project'#12'ClientHeight'#3#199#0#11'ClientWidth'#3#141#1#9
+'FormStyle'#7#11'fsStayOnTop'#8'OnCreate'#7#10'FormCreate'#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#130#1#10'BevelInner'#7#9'bvLowered'#10
+'BevelOuter'#7#9'bvLowered'#11'BorderStyle'#7#8'bsSingle'#7'Caption'#6#5'PIn'
+'fo'#10'Font.Style'#11#6'fsBold'#0#8'TabOrder'#2#0#0#0#7'TBitBtn'#6'BClose'#4
+'Left'#3#138#0#6'Height'#2'"'#3'Top'#3#154#0#5'Width'#2'k'#7'Caption'#6#3'&O'
+'K'#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#7'On'
+'Click'#7#11'BCloseClick'#8'TabOrder'#2#1#0#0#6'TPanel'#6'Panel1'#4'Left'#2#6
+#6'Height'#2'2'#3'Top'#2'"'#5'Width'#3#130#1#10'BevelInner'#7#9'bvLowered'#10
+'BevelOuter'#7#9'bvLowered'#11'BorderWidth'#2#1#12'ClientHeight'#2'2'#11'Cli'
+'entWidth'#3#130#1#8'TabOrder'#2#2#0#6'TLabel'#14'PCurrentStatus'#4'Left'#2#3
+#6'Height'#2','#3'Top'#2#3#5'Width'#3'|'#1#5'Align'#7#8'alClient'#9'Alignmen'
+'t'#7#8'taCenter'#8'AutoSize'#8#7'Caption'#6#14'PCurrentStatus'#11'ParentCol'
+'or'#8#8'WordWrap'#9#0#0#0#6'TPanel'#6'Panel4'#4'Left'#3#176#0#6'Height'#2'0'
+#3'Top'#2'^'#5'Width'#3#210#0#10'BevelInner'#7#9'bvLowered'#10'BevelOuter'#7
+#9'bvLowered'#11'BorderStyle'#7#8'bsSingle'#12'ClientHeight'#2'0'#11'ClientW'
+'idth'#3#210#0#8'TabOrder'#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#0#0#6'TLabel'
+#9'LInfoHint'#4'Left'#2#6#6'Height'#2#14#3'Top'#2#5#5'Width'#2#29#7'Caption'
+#6#6'Hints:'#11'ParentColor'#8#0#0#6'TLabel'#12'LInfoWarning'#4'Left'#2#6#6
+'Height'#2#14#3'Top'#2#26#5'Width'#2'2'#7'Caption'#6#9'Warnings:'#11'ParentC'
+'olor'#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#0#0#6'TLabel'#10'LInfoErro'
+'r'#4'Left'#2'p'#6'Height'#2#14#3'Top'#2#26#5'Width'#2'"'#7'Caption'#6#7'Err'
+'ors:'#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'taRightJustify'#8'AutoSize'#8
+#7'Caption'#6#1'0'#10'Font.Color'#7#5'clRed'#11'ParentColor'#8#0#0#6'TLabel'
+#9'LInfoNote'#4'Left'#2'p'#6'Height'#2#14#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'Hei'
+'ght'#2#14#3'Top'#2#5#5'Width'#2#31#9'Alignment'#7#14'taRightJustify'#8'Auto'
+'Size'#8#7'Caption'#6#1'0'#10'Font.Color'#7#7'clBlack'#11'ParentColor'#8#0#0
+#0#6'TPanel'#6'Panel2'#4'Left'#2#8#6'Height'#2#28#3'Top'#2'h'#5'Width'#3#144
+#0#10'BevelInner'#7#9'bvLowered'#10'BevelOuter'#7#9'bvLowered'#11'BorderStyl'
+'e'#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'Caption'#6#1'0'#11'Par'
+'entColor'#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
]); ]);

39
ide/infobuild.pp
View File

@ -31,7 +31,7 @@ interface
uses uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons, Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons,
ExtCtrls, StdCtrls, ExtDlgs, LCLProc, ExtCtrls, StdCtrls, ExtDlgs,
LazIDEIntf, LazIDEIntf,
LazarusIDEStrConsts; LazarusIDEStrConsts;
@ -40,24 +40,24 @@ type
{ TFInfoCompile } { TFInfoCompile }
TFInfoCompile = class ( TForm ) TFInfoCompile = class ( TForm )
BClose : TBitBtn; BClose : TBitBtn;
LInfoError : TLabel; LInfoError : TLabel;
LInfoNote : TLabel; LInfoNote : TLabel;
LInfoHint : TLabel; LInfoHint : TLabel;
LInfoWarning : TLabel; LInfoWarning : TLabel;
LInfoLines : TLabel; LInfoLines : TLabel;
LNError : TLabel; LNError : TLabel;
LNNote : TLabel; LNNote : TLabel;
LNLines : TLabel; LNLines : TLabel;
LNHint : TLabel; LNHint : TLabel;
LNWarning : TLabel; LNWarning : TLabel;
Panel2 : TPanel; Panel2 : TPanel;
Panel4 : TPanel; Panel4 : TPanel;
PCurrentStatus : TLabel; PCurrentStatus : TLabel;
Panel1 : TPanel; Panel1 : TPanel;
PInfo : TPanel; PInfo : TPanel;
procedure BCloseClick ( Sender : TObject ) ; procedure BCloseClick ( Sender : TObject ) ;
procedure FormCreate ( Sender : TObject ) ; procedure FormCreate ( Sender : TObject ) ;
private private
NHints : Integer; NHints : Integer;
NWarnings : Integer; NWarnings : Integer;
@ -219,6 +219,7 @@ end;
Procedure CreateInfoBuilder(Owner: TComponent); Procedure CreateInfoBuilder(Owner: TComponent);
begin begin
//DebugLn(['CreateInfoBuilder ',ShowCompileDialog]);
DestroyInfoBuilder; DestroyInfoBuilder;
if ShowCompileDialog then if ShowCompileDialog then
begin begin

2
ide/main.pp
View File

@ -95,7 +95,7 @@ uses
IDEProtocol, IDEProtocol,
// compile // compile
Compiler, CompilerOptions, CompilerOptionsDlg, CheckCompilerOpts, Compiler, CompilerOptions, CompilerOptionsDlg, CheckCompilerOpts,
W32VersionInfo, ImExportCompilerOpts, infobuild, W32VersionInfo, ImExportCompilerOpts, InfoBuild,
// projects // projects
Project, ProjectDefs, NewProjectDlg, ProjectOpts, Project, ProjectDefs, NewProjectDlg, ProjectOpts,
PublishProjectDlg, ProjectInspector, PackageDefs, PublishProjectDlg, ProjectInspector, PackageDefs,