paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-01 15:07:38 +01: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 inherited RegistersDlg: TRegistersDlg
Left = 359 Left = 342
Height = 253 Height = 253
Top = 126 Top = 117
Width = 346 Width = 346
ActiveControl = lvRegisters ActiveControl = lvRegisters
Caption = 'Registers' Caption = 'Registers'

4
debugger/registersdlg.lrs
View File

@ -12,8 +12,8 @@ LazarusResources.Add('TLocalsDlg','FORMDATA',[
]); ]);
LazarusResources.Add('TRegistersDlg','FORMDATA',[ LazarusResources.Add('TRegistersDlg','FORMDATA',[
'TPF0'#241#13'TRegistersDlg'#12'RegistersDlg'#4'Left'#3'g'#1#6'Height'#3#253#0 'TPF0'#241#13'TRegistersDlg'#12'RegistersDlg'#4'Left'#3'V'#1#6'Height'#3#253#0
+#3'Top'#2'~'#5'Width'#3'Z'#1#13'ActiveControl'#7#11'lvRegisters'#7'Caption'#6 +#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' +#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' +'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' +'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 RegistersChanged(Sender: TObject);
procedure SetMaster(const AMaster: TDBGRegisters); procedure SetMaster(const AMaster: TDBGRegisters);
protected protected
function GetModified(const AnIndex: Integer): Boolean; override;
function GetName(const AnIndex: Integer): String; override; function GetName(const AnIndex: Integer): String; override;
function GetValue(const AnIndex: Integer): String; override; function GetValue(const AnIndex: Integer): String; override;
public public
@ -523,6 +524,13 @@ begin
then NotifyChange; then NotifyChange;
end; 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; function TManagedRegisters.GetName(const AnIndex: Integer): String;
begin begin
if Master = nil if Master = nil