Forum: Object-Pascal / Delphi-Language
Delphi
by Namenloser,
17. Nov 2010
One thing I immediately spotted:
procedure TForm20.FormCreate(Sender: TObject);
begin
SetWindowTheme(lvRecentFiles.Handle, 'Explorer', nil);
Theme := OpenThemeData(0, 'ListView');
end;
has to be
Forum: Object-Pascal / Delphi-Language
Delphi
by Namenloser,
16. Nov 2010
Maybe you should post your source code along with a screenshot.
Forum: Object-Pascal / Delphi-Language
Delphi
by Namenloser,
16. Nov 2010
Does it work if you don't use any owner/custom drawing code?
Btw: As you're already using clGrayText, why not use clWindowText for regular text as well? Depending on the settings, text may not always be black by default. In general, you should avoid combining environment colors with hard coded colors, because it can get ugly (e.g. black text on a black background) if someone uses different...
Forum: Object-Pascal / Delphi-Language
Delphi
by Namenloser,
16. Nov 2010
TListview doesn't support the themed selection rectangle out of the box. You have to activate it manually by calling SetWindowTheme(Listview.Handle, 'Explorer', nil);