On 05/12/2014 11:41 AM, Vojtěch Čihák wrote:
I tried:
var aNewColor, aOldColor: TColorRef;
begin
aNewColor:=ColorToRGB(clRed);
aOldColor:=LCLIntf.SetBkColor(Canvas.Handle, aNewColor);
ThemeServices.DrawElement(Canvas.Handle,
ThemeServices.GetElementDetails(caThemedItems[AItemState]), ARect, nil);
writeln(ColorToString(LCLIntf.SetBkColor(Canvas.Handle, AOldColor)));
Now the output is now clRed, which means that clRed was set during DrawElement
but painted element (tbPushButtonNormal) is still default.
if you doing that in Qt, then you should set palette brush from current
painter (in DrawElement) brush. That's not implemented, I've just said
that it's maybe possible to implement it in that way.
zeljko
Vojtěch
______________________________________________________________
Od: zeljko <zel...@holobit.net>
Komu: Lazarus mailing list <lazarus@lists.lazarus.freepascal.org>
Datum: 12.05.2014 11:23
Předmět: Re: [Lazarus] Colourful Themes
On 05/12/2014 10:54 AM, Vojtěch Čihák wrote:
Thanks,
I tried LCLIntf.SetBkColor(Canvas.Handle, clRed); and no visual change.
And if I try writeln(ColorToString(LCLIntf.SetBkColor(HANDLE, $00FF0000))); it
never returns the color that I set (Qt4, GTK2), so it seems widgetsets doesn't
support it.
1.SetBkColor as param uses TColorRef, not TColor
2.When setting new color with SetBkColor, old TColorRef is returned as
result.
var
AOldColor, ANewColorRef: TColorRef;
begin
ANewColorRef := ColorToRGB(clRed);
AOldColor := LCLIntf.SetBkColor(Canvas.Handle, ANewColorRef);
...do something
LCLIntf.SetBkColor(Canvas.Handle, AOldColor);
end;
zeljko
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
