Привет всем!!!
Возникла следующа проблемка:
Нужно сделать кнопку на Caption bar формы (код ниже),с этим проблем нет, однако возникла другая проблема: Когда в Windows xp стоит стиль Windows Xp  (не классический) кнопка рисуется в классическом стиле, и наложение Xpmanifest не помогает. Как можно решить эту проблему ? Благодарю.

procedure TForm1.DrawCaptButton;
var
 xFrame, yFrame, xSize, ySize: integer;
 R: TRect;
begin
 
 xFrame:= GetSystemMetrics(SM_CXFRAME);
 yFrame:= GetSystemMetrics(SM_CYFRAME);

 
 xSize:= GetSystemMetrics(SM_CXSIZE);
 ySize:= GetSystemMetrics(SM_CYSIZE);

   CaptionBtn:= Bounds(Width - xFrame - 4*xSize + 2,
                     yFrame + 2, xSize - 2, ySize - 4);


 Canvas.Handle:= GetWindowDC(Self.Handle);

 Canvas.Font.Name:= 'Symbol';
 Canvas.Font.Color:= clBlue;
 Canvas.Font.Style:= [fsBold];
 Canvas.Pen.Color:= clYellow;
 Canvas.Brush.Color:= clBtnFace;

 try
   DrawButtonFace(Canvas, CaptionBtn, 1, bsnew, False, False, False);
   
   R:= Bounds(Width - xFrame - 4*xSize + 2,
               yFrame + 3, xSize - 6, ySize - 7);
   with CaptionBtn do
     Canvas.TextRect(R, R.Left + 2, R.Top - 1, 'W');
 finally
   ReleaseDC(Self.Handle, Canvas.Handle);
   Canvas.Handle:= 0;
 end;
end;

> [0] kolj   (08.01.09 15:07)

для начала, посмотреть готорые решения, например из пакета JEDI VCL. но там у кнопки серьезный недостаток, при ресайзе формы есть утечка огромного количества GDI дескрипторов.

Как оказалось всьо просто. В место ф-и DrawButtonFace надо использовать ф-ю DrawThemeBackground.

научишься рисовать такие стилизованные кнопки в висте с включенным аеро - скажи )

Да вот что-то типа такого.

http://webdrive.avtograd.ru/Download/Explorer/sources/caption_button_theme_src.zip

вот так в висте выглядит этот пример http://f.imagehost.org/0470/example.png

Я кстати хотел универсально сделать с пересчетом координат на нестандартных темах оформления еще.




Как-то так вычислял длинну и высоту кнопок. Только с посдчетом координат фигня. Кнопка вполовину рисуется почему -то.