Forum Discussion

rmnrdi's avatar
rmnrdi
Contributor
7 years ago

compare object

I have a program that I need to check the properties of in two different states. TC only allows one object to be captured by object spy at a time.   Is there any way to do a side by side comparison...
  • tristaanogre's avatar
    tristaanogre
    7 years ago

    No additional save, just a refresh of the variable as per below.

     

     

    procedure CompareObjects;
var
tracePanel, PropertyNames, CollectionName, tfrmModifyTrace2 : OleVariant;
begin
//Get panel object
tracePanel := Aliases.SettingsNavigator.frmModifyTrace2.VCLObject('Panel3');

// Sets the name of the property collection
CollectionName := 'TracePanelProps';

// I want it to check all properties, so I leave the property name blank.
Objects.Save(tracePanel, CollectionName);

tfrmModifyTrace2 := Aliases.SettingsNavigator.frmModifyTrace2;
tfrmModifyTrace2.MainMenu.Click('Manage|Get Library Trace');
tfrmModifyTrace2.pnlLibLookup.isLibName.Keys('[Enter]');

tracePanel := Aliases.SettingsNavigator.frmModifyTrace2.VCLObject('Panel3');

Objects.Compare(tracePanel, CollectionName, true, lmMessage);

Objects.Remove(CollectionName); 

     Additionally... there is more information in the error than just "Object Compare error".  Any additional info/text would be useful.

rmnrdi's avatar
rmnrdi
Contributor

It passes without error. Which is incorrect because properties did change. Also, it should have shown the differences.

 

procedure CompareObjects;
var
tracePanel, PropertyNames, CollectionName, tfrmModifyTrace2 : OleVariant;
begin
//Get panel object
tracePanel := Aliases.SettingsNavigator.frmModifyTrace2.VCLObject('Panel3');

// Sets the name of the property collection
CollectionName := 'TracePanelProps';

// I want it to check all properties, so I leave the property name blank.
Objects.Save(tracePanel, CollectionName);

tfrmModifyTrace2 := Aliases.SettingsNavigator.frmModifyTrace2;
tfrmModifyTrace2.MainMenu.Click('Manage|Get Library Trace');
tfrmModifyTrace2.pnlLibLookup.isLibName.Keys('[Enter]');

 

*****Save Again?*****
Objects.Save(tracePanel, CollectionName);

Objects.Compare(tracePanel, CollectionName, true, lmMessage);

Objects.Remove(CollectionName);

end;

tristaanogre's avatar
tristaanogre
Esteemed Contributor
7 years ago

No additional save, just a refresh of the variable as per below.

 

 

procedure CompareObjects;
var
tracePanel, PropertyNames, CollectionName, tfrmModifyTrace2 : OleVariant;
begin
//Get panel object
tracePanel := Aliases.SettingsNavigator.frmModifyTrace2.VCLObject('Panel3');

// Sets the name of the property collection
CollectionName := 'TracePanelProps';

// I want it to check all properties, so I leave the property name blank.
Objects.Save(tracePanel, CollectionName);

tfrmModifyTrace2 := Aliases.SettingsNavigator.frmModifyTrace2;
tfrmModifyTrace2.MainMenu.Click('Manage|Get Library Trace');
tfrmModifyTrace2.pnlLibLookup.isLibName.Keys('[Enter]');

tracePanel := Aliases.SettingsNavigator.frmModifyTrace2.VCLObject('Panel3');

Objects.Compare(tracePanel, CollectionName, true, lmMessage);

Objects.Remove(CollectionName); 

 Additionally... there is more information in the error than just "Object Compare error".  Any additional info/text would be useful.

  • rmnrdi's avatar
    rmnrdi
    Contributor
    7 years ago

    I think this was a success. I guess I should be getting a Object.Compare error if the properties are different?

     

    Yeah. I was looking at the log entry for the differences. I didn't realize they would be in the "Additional Information" area.

     

    Also, I don't get as many differences as when I diff the full object.

     

    Anyway, this is the output:

     

    The following errors occurred when comparing the "Sys.Process('SettingsNavigator').VCLObject('frmModifyTrace2').VCLObject('Panel3')" object with the stored "TracePanelProps" object: ------------------------ The "Index" property of the "VCLObject('Panel3')" object holds a value that differs from the "Index" property of the stored "TracePanelProps" object. Current value = "3". Stored value = "2". ------------------------ The "MouseInClient" property of the "VCLObject('Panel3')" object holds a value that differs from the "MouseInClient" property of the stored "TracePanelProps" object. Current value = "True". Stored value = "False". ------------------------ The "VisibleOnScreen" property of the "VCLObject('Panel3')" object holds a value that differs from the "VisibleOnScreen" property of the stored "TracePanelProps" object. Current value = "True". Stored value = "False". ------------------------ The "FMouseInClient" property of the "VCLObject('Panel3')" object holds a value that differs from the "FMouseInClient" property of the stored "TracePanelProps" object. Current value = "True". Stored value = "False". ------------------------

    The following errors occurred when comparing the "Sys.Process('SettingsNavigator').VCLObject('frmModifyTrace2').VCLObject('Panel3')" object with the stored "TracePanelProps" object:
    ------------------------
    The "Index" property of the "VCLObject('Panel3')" object holds a value that differs from the "Index" property of the stored "TracePanelProps" object.
    Current value = "3".
    Stored value = "2".
    ------------------------
    The "MouseInClient" property of the "VCLObject('Panel3')" object holds a value that differs from the "MouseInClient" property of the stored "TracePanelProps" object.
    Current value = "True".
    Stored value = "False".
    ------------------------
    The "VisibleOnScreen" property of the "VCLObject('Panel3')" object holds a value that differs from the "VisibleOnScreen" property of the stored "TracePanelProps" object.
    Current value = "True".
    Stored value = "False".
    ------------------------
    The "FMouseInClient" property of the "VCLObject('Panel3')" object holds a value that differs from the "FMouseInClient" property of the stored "TracePanelProps" object.
    Current value = "True".
    Stored value = "False".
    ------------------------
     
    Thanks so much for sticking with me on this. I'm kind of new to TC and I really learned a lot. 
     
    I'd buy you a beer if I could.