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

* Forgot one class for modified registers

Browse Source 
git-svn-id: trunk@17456 -
This commit is contained in:
marc 2008-11-20 00:40:06 +00:00
parent f64f9318a3
commit c3040c20bd
3 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
debugger/registersdlg.lfm
View File

@ -1,7 +1,7 @@
inherited RegistersDlg: TRegistersDlg
Left = 359
Left = 342
Height = 253
Top = 126
Top = 117
Width = 346
ActiveControl = lvRegisters
Caption = 'Registers'

4
debugger/registersdlg.lrs
View File

@ -12,8 +12,8 @@ LazarusResources.Add('TLocalsDlg','FORMDATA',[
]);
LazarusResources.Add('TRegistersDlg','FORMDATA',[
'TPF0'#241#13'TRegistersDlg'#12'RegistersDlg'#4'Left'#3'g'#1#6'Height'#3#253#0
+#3'Top'#2'~'#5'Width'#3'Z'#1#13'ActiveControl'#7#11'lvRegisters'#7'Caption'#6
'TPF0'#241#13'TRegistersDlg'#12'RegistersDlg'#4'Left'#3'V'#1#6'Height'#3#253#0
+#3'Top'#2'u'#5'Width'#3'Z'#1#13'ActiveControl'#7#11'lvRegisters'#7'Caption'#6
+#9'Registers'#12'ClientHeight'#3#253#0#11'ClientWidth'#3'Z'#1#0#242#2#0#9'TL'
+'istView'#11'lvRegisters'#6'Height'#3#253#0#5'Width'#3'Z'#1#5'Align'#7#8'alC'
+'lient'#7'Columns'#14#1#7'Caption'#6#4'Name'#5'Width'#3#150#0#0#1#7'Caption'

8
ide/debugmanager.pas
View File

@ -284,6 +284,7 @@ type
procedure RegistersChanged(Sender: TObject);
procedure SetMaster(const AMaster: TDBGRegisters);
protected
function GetModified(const AnIndex: Integer): Boolean; override;
function GetName(const AnIndex: Integer): String; override;
function GetValue(const AnIndex: Integer): String; override;
public
@ -523,6 +524,13 @@ begin
then NotifyChange;
end;
function TManagedRegisters.GetModified(const AnIndex: Integer): Boolean;
begin
if Master = nil
then Result := inherited GetModified(AnIndex)
else Result := Master.Modified[AnIndex];
end;
function TManagedRegisters.GetName(const AnIndex: Integer): String;
begin
if Master = nil