Howdy, Stranger!

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

In this Discussion

Bug in TLMDPicturePropEditor (64 bits only)

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.