Luiz Americo Pereira Camara wrote:
function CreatePatternBrush(hbmp:HBITMAP):HBRUSH;
var
Log: TLogBrush;
begin
with Log do
begin
lbColor := 0;
lbHatch := hbmp;
lbStyle := BS_PATTERN;
Result := CreateBrushIndirect(Log);
end;
end;
I warry in this case about DIBs, but for other widgetsets than windows I
can use indeed CreateBrushIndirect.
Best regards,
Paul Ishenin.
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
