Rysowanie granicy tematycznej TEdit

Question

Chcę narysować granicę tematyczną TEdit w Paintbox. Kod musi działać w systemie Windows Vista i 7. Próbowałem wykonać następujące czynności. Działa tylko pod Windows XP.

var 
    Details: TThemedElementDetails; //uses Themes 
begin 
    if ThemeServices.ThemesEnabled then 
    begin 
    Details := ThemeServices.GetElementDetails(teEditRoot); 
    ThemeServices.DrawElement(PaintBox1.Canvas.Handle, Details, PaintBox1.ClientRect); 
    end; 
end; 

Pod systemem Windows XP wszystko jest w porządku. Ale pod Windows Vista i 7 granica jest pomalowana na ciemnoszaro. Wszystkie 4 strony w tym samym kolorze. Ale TEdit pod Vistą wygląda inaczej: Górna granica ma ciemnoszary kolor. Prawa krawędź jest średnio szara. Granice lewe i dolne mają jasnoszarą barwę. Mam nadzieję, że rozumiesz różnicę. Jak pomalować to we właściwy sposób? Dzięki!

Answer 1

Spróbuj:

R := Rect(15, 15, 80, 30); 
DrawThemeBackground(ThemeServices.Theme[teEdit], PaintBox1.Canvas.Handle, EP_EDITBORDER_NOSCROLL, ETS_NORMAL, R, @R); 
/// DrawThemeBackground(ThemeServices.Theme[teEdit], PaintBox1.Canvas.Handle, EP_EDITTEXT, ETS_NORMAL, R, @R); <<< XP Behaviour 

Jeśli chcesz, aby Twój kod do uruchomienia w XP należy upewnić, że warunkowa, jak na WinXP należy użyć 2 jeden.