Subject | Re: [IBO] Odd display problem in Vista, IB_ComboBox, on IB_Grid |
---|---|
Author | Andreas Hesse |
Post date | 2009-01-28T19:55:02Z |
Adrian Wreyford schrieb:
procedure TIB_ComboBoxEx.CreateWindowHandle(const Params: TCreateParams);
begin
inherited;
if not FFlag then
try
FFlag := true;
if ThemeServices.ThemesEnabled and IsWinVista and (Parent is
TIB_CustomGrid) then
SetWindowTheme(Handle, ' ', ' ');
finally
FFlag := false;
end;
end;
IsWinVista is a function of Jcl.
Hope it helps.
Andreas
> Hi, Andreas, could you advise how I turn off theming for the control, so I can see if this helps?I override CreateWindowHandle (in a child TIB_ComboBox):
>
> Regards
> Adrian
>
>
> Last time I saw this I turned off theming for this control only.
> And then it work, but I don't know why.
>
> Andreas
>
> .
>
procedure TIB_ComboBoxEx.CreateWindowHandle(const Params: TCreateParams);
begin
inherited;
if not FFlag then
try
FFlag := true;
if ThemeServices.ThemesEnabled and IsWinVista and (Parent is
TIB_CustomGrid) then
SetWindowTheme(Handle, ' ', ' ');
finally
FFlag := false;
end;
end;
IsWinVista is a function of Jcl.
Hope it helps.
Andreas