paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 15:20:49 +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
Height = 113
Top = 376
@ -6,7 +6,7 @@ object ExceptionDialog: TExceptionDialog
AutoSize = True
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'ExceptionDialog'
Caption = 'IDEExceptionDlg'
ClientHeight = 113
ClientWidth = 612
Position = poScreenCenter

7
debugger/exceptiondlg.lrs
View File

@ -1,9 +1,10 @@
{ 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'
+'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
+'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

14
debugger/exceptiondlg.pas
View File

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