This forum is temporaily read-only. All existing discussions remain available for reference. For new questions, bug reports or support requests, please contact us at mail@lmdsupport.com.

Bug in TLMDPicturePropEditor (64 bits only)

MECALUX, S.A.MECALUX, S.A.
edited December 2020 in LMD IDE-Tools
The following function in TLMDPicturePropEditor is not correct for 64 bits:

function TLMDPicturePropEditor.GetValue: TLMDString;
begin
  if TPicture(GetOrdValue(0)).Graphic = nil then
    Result := '(None)'
  else
    Result := '(Picture)';
end;

GetOrdValue returns a 32 bit integer that can not be casted into TPicture when we are working in 64 bits. A possible replacement should be:

function TLMDPicturePropEditor.GetValue: TLMDString;
begin
  if TPicture(GetObjectValue(0)).Graphic = nil then
    Result := '(None)'
  else
    Result := '(Picture)';
end;

Comments

Sign In or Register to comment.