Delphi XE2, CreateBrushIndirect incompatible type

Hi

I installed Delphi XE2 and try to compile an old project. Now I have the following problem:

In the old project there is code like

procedure JustAsample;
var
  Data: PEMRCreateBrushIndirect;
  xx : int64;
begin
  xx := CreateBrushIndirect(Data^.lb);
end;

the compiler now says: "incompatible type tagLogBrush and tagLogBrush32." Same error it doesn't matter if I compile 3bit or 64bit.

The CreateBrushIndirect-procedure is definied in winapi.windows-unit and I really can see that there are different types. Is that a bug from that unit and how can I solve it?

Thanks for your help, Peter
formiAsked:
Who is Participating?
 
rotem156Connect With a Mentor Commented:
It takes a TLogBrush structure as an argument and returns a handle to a brush (HBRUSH).

procedure JustAsample;
var
  Data: TLogBrush;
  xx :  HBRUSH;
begin
  xx := CreateBrushIndirect(Data);
end;

Open in new window

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.