Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

In this Discussion

Bug in TLMDPicturePropEditor (64 bits only)

MECALUX, S.A.
edited December 2020 in LMD IDE-Tools Vote Up0Vote Down
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.