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

debugger: rename TExceptionDialog to TIDEExceptionDlg to resolve conflict with JCF2

Browse Source 
git-svn-id: trunk@18986 -
This commit is contained in:
paul 2009-03-14 12:35:06 +00:00
parent 3393bef1b3
commit 38c3709b80
3 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
debugger/exceptiondlg.lfm
View File

@ -1,4 +1,4 @@
object ExceptionDialog: TExceptionDialog object IDEExceptionDlg: TIDEExceptionDlg
Left = 479 Left = 479
Height = 113 Height = 113
Top = 376 Top = 376
@ -6,7 +6,7 @@ object ExceptionDialog: TExceptionDialog
AutoSize = True AutoSize = True
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'ExceptionDialog' Caption = 'IDEExceptionDlg'
ClientHeight = 113 ClientHeight = 113
ClientWidth = 612 ClientWidth = 612
Position = poScreenCenter Position = poScreenCenter

7
debugger/exceptiondlg.lrs
View File

@ -1,9 +1,10 @@
{ This is an automatically generated lazarus resource file } { This is an automatically generated lazarus resource file }
LazarusResources.Add('TExceptionDialog','FORMDATA',[
'TPF0'#16'TExceptionDialog'#15'ExceptionDialog'#4'Left'#3#223#1#6'Height'#2'q' LazarusResources.Add('TIDEExceptionDlg','FORMDATA',[
'TPF0'#16'TIDEExceptionDlg'#15'IDEExceptionDlg'#4'Left'#3#223#1#6'Height'#2'q'
+#3'Top'#3'x'#1#5'Width'#3'd'#2#8'AutoSize'#9#11'BorderIcons'#11#12'biSystemM' +#3'Top'#3'x'#1#5'Width'#3'd'#2#8'AutoSize'#9#11'BorderIcons'#11#12'biSystemM'
+'enu'#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#15'ExceptionDialog'#12'Cl' +'enu'#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#15'IDEExceptionDlg'#12'Cl'
+'ientHeight'#2'q'#11'ClientWidth'#3'd'#2#8'Position'#7#14'poScreenCenter'#10 +'ientHeight'#2'q'#11'ClientWidth'#3'd'#2#8'Position'#7#14'poScreenCenter'#10
+'LCLVersion'#6#6'0.9.27'#0#6'TLabel'#10'lblMessage'#22'AnchorSideLeft.Contro' +'LCLVersion'#6#6'0.9.27'#0#6'TLabel'#10'lblMessage'#22'AnchorSideLeft.Contro'
+'l'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#6#6'Height'#2 +'l'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#6#6'Height'#2

14
debugger/exceptiondlg.pas
View File

@ -33,9 +33,9 @@ uses
type type
{ TExceptionDialog } { TIDEExceptionDlg }
TExceptionDialog = class(TForm) TIDEExceptionDlg = class(TForm)
btnBreak: TBitBtn; btnBreak: TBitBtn;
btnContinue: TBitBtn; btnContinue: TBitBtn;
cbIgnoreExceptionType: TCheckBox; cbIgnoreExceptionType: TCheckBox;
@ -53,9 +53,9 @@ implementation
function ExecuteExceptionDialog(AMessage: String; out IgnoreException: Boolean): TModalResult; function ExecuteExceptionDialog(AMessage: String; out IgnoreException: Boolean): TModalResult;
var var
ADialog: TExceptionDialog; ADialog: TIDEExceptionDlg;
begin begin
ADialog := TExceptionDialog.Create(Application); ADialog := TIDEExceptionDlg.Create(Application);
try try
Result := ADialog.Execute(AMessage, IgnoreException); Result := ADialog.Execute(AMessage, IgnoreException);
finally finally
@ -63,9 +63,9 @@ begin
end; end;
end; end;
{ TExceptionDialog } { TIDEExceptionDlg }
constructor TExceptionDialog.Create(AOwner: TComponent); constructor TIDEExceptionDlg.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
Caption := lisExceptionDialog; Caption := lisExceptionDialog;
@ -77,7 +77,7 @@ begin
btnContinue.LoadGlyphFromLazarusResource('menu_run'); btnContinue.LoadGlyphFromLazarusResource('menu_run');
end; end;
function TExceptionDialog.Execute(AMessage: String; out IgnoreException: Boolean): TModalResult; function TIDEExceptionDlg.Execute(AMessage: String; out IgnoreException: Boolean): TModalResult;
begin begin
lblMessage.Caption := AMessage; lblMessage.Caption := AMessage;
Result := ShowModal; Result := ShowModal;