DrawFrameControl и Windows XP [D6, WinXP]
Ученик © (2002-07-25 17:46:00)
Может быть кто-нибудь в курсе, почему вызов DrawFrameControl
меняет вид заголовка окна в Windows XP, т.е если не вызывать
DrawFrameControl заголовок XP-ный, вызвал меняется на обыкновенный.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure WMNCPaint(var Message : TWMNCPaint); message
WM_NCPAINT;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMNCPaint(var Message : TWMNCPaint);
var
DC : HDC;
R : TRect;
begin
inherited;
R := Rect(100, 6, 116, 22);
DC := GetWindowDC(Handle);
if DC <> 0 then try
DrawFrameControl(DC, R, DFC_CAPTION, DFCS_CAPTIONHELP)
finally
ReleaseDC(Handle, DC)
end
end;
Ученик (2002-07-31 15:45:00) [1]
Проблема еще не решена
Наверх 
ЧАТ |
Орешник |
|
