WinAPI: DrawFrameControl - 绘制控件

//声明:

DrawFrameControl(

  DC: HDC;            {设备环境句柄}

  const Rect: TRect;  {矩形}

  uType, uState: UINT {控件类型与控件状态}

): BOOL;





//控件类型 uType 参数可选值:

DFC_CAPTION   = 1; {标题按钮}

DFC_MENU      = 2; {菜单}

DFC_SCROLL    = 3; {滚动条按钮}

DFC_BUTTON    = 4; {标准按钮}

DFC_POPUPMENU = 5; {弹出菜单}





//控件状态  uState 参数可选值:



{针对 DFC_CAPTION}

DFCS_CAPTIONCLOSE   = 0;

DFCS_CAPTIONMIN     = 1;

DFCS_CAPTIONMAX     = 2;

DFCS_CAPTIONRESTORE = 3;

DFCS_CAPTIONHELP    = 4;



{针对 DFC_MENU}

DFCS_MENUARROW      = 0;

DFCS_MENUCHECK      = 1;

DFCS_MENUBULLET     = 2;

DFCS_MENUARROWRIGHT = 4;



{针对 DFC_SCROLL}

DFCS_SCROLLUP            = 0;

DFCS_SCROLLDOWN          = 1;

DFCS_SCROLLLEFT          = 2;

DFCS_SCROLLRIGHT         = 3;

DFCS_SCROLLCOMBOBOX      = 5;

DFCS_SCROLLSIZEGRIP      = 8;

DFCS_SCROLLSIZEGRIPRIGHT = $10;



{针对 DFC_BUTTON}

DFCS_BUTTONCHECK      = 0;

DFCS_BUTTONRADIOIMAGE = 1;

DFCS_BUTTONRADIOMASK  = 2;

DFCS_BUTTONRADIO      = 4;

DFCS_BUTTON3STATE     = 8;

DFCS_BUTTONPUSH       = $10;



{通用状态}

DFCS_INACTIVE    = $100;

DFCS_PUSHED      = $200;

DFCS_CHECKED     = $400;

DFCS_TRANSPARENT = $800;

DFCS_HOT         = $1000;

DFCS_ADJUSTRECT  = $2000;

DFCS_FLAT        = $4000;

DFCS_MONO        = $8000;


 
   




//举例:

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;



type

  TForm1 = class(TForm)

    RadioGroup1: TRadioGroup;

    RadioGroup2: TRadioGroup;

    RadioGroup3: TRadioGroup;

    RadioGroup4: TRadioGroup;

    RadioGroup5: TRadioGroup;

    RadioGroup6: TRadioGroup;

    Panel1: TPanel;

    procedure RadioGroup1Click(Sender: TObject);

    procedure RadioGroup2Click(Sender: TObject);

    procedure RadioGroup3Click(Sender: TObject);

    procedure RadioGroup4Click(Sender: TObject);

    procedure RadioGroup5Click(Sender: TObject);

    procedure RadioGroup6Click(Sender: TObject);

    procedure Draw;

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



var

  DFC  : Integer = 0;

  DFCS1: Integer = 0;

  DFCS2: Integer = 0;



procedure TForm1.Draw;

begin

  Panel1.Refresh;

  DrawFrameControl(GetDC(Panel1.Handle), Rect(10,10,100,50), DFC, DFCS1 or DFCS2);

end;



procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

  Panel1.Refresh;

  case RadioGroup1.ItemIndex of

    0: begin

      DFC := DFC_CAPTION;

      RadioGroup3.Enabled := True;

      RadioGroup4.Enabled := False;

      RadioGroup5.Enabled := False;

      RadioGroup6.Enabled := False;

    end;

    1: begin

      DFC := DFC_MENU;

      RadioGroup3.Enabled := False;

      RadioGroup4.Enabled := True;

      RadioGroup5.Enabled := False;

      RadioGroup6.Enabled := False;

    end;

    2: begin

      DFC := DFC_SCROLL;

      RadioGroup3.Enabled := False;

      RadioGroup4.Enabled := False;

      RadioGroup5.Enabled := True;

      RadioGroup6.Enabled := False;

    end;

    3: begin

      DFC := DFC_BUTTON;

      RadioGroup3.Enabled := False;

      RadioGroup4.Enabled := False;

      RadioGroup5.Enabled := False;

      RadioGroup6.Enabled := True;

    end;

    4: begin

      DFC := DFC_POPUPMENU;

      RadioGroup3.Enabled := False;

      RadioGroup4.Enabled := True;

      RadioGroup5.Enabled := False;

      RadioGroup6.Enabled := False;

    end;

  end;

end;



procedure TForm1.RadioGroup2Click(Sender: TObject);

begin

  case RadioGroup2.ItemIndex of

    0: DFCS1 := DFCS_INACTIVE;

    1: DFCS1 := DFCS_PUSHED;

    2: DFCS1 := DFCS_CHECKED;

    3: DFCS1 := DFCS_TRANSPARENT;

    4: DFCS1 := DFCS_HOT;

    5: DFCS1 := DFCS_ADJUSTRECT;

    6: DFCS1 := DFCS_FLAT;

    7: DFCS1 := DFCS_MONO;

  end;

  Draw;

end;



procedure TForm1.RadioGroup3Click(Sender: TObject);

begin

  case RadioGroup3.ItemIndex of

    0: DFCS2 := DFCS_CAPTIONCLOSE;

    1: DFCS2 := DFCS_CAPTIONMIN;

    2: DFCS2 := DFCS_CAPTIONMAX;

    3: DFCS2 := DFCS_CAPTIONRESTORE;

    4: DFCS2 := DFCS_CAPTIONHELP;

  end;

  Draw;

end;



procedure TForm1.RadioGroup4Click(Sender: TObject);

begin

  case RadioGroup4.ItemIndex of

    0: DFCS2 := DFCS_MENUARROW;

    1: DFCS2 := DFCS_MENUCHECK;

    2: DFCS2 := DFCS_MENUBULLET;

    3: DFCS2 := DFCS_MENUARROWRIGHT;

  end;

  Draw;

end;



procedure TForm1.RadioGroup5Click(Sender: TObject);

begin

  case RadioGroup5.ItemIndex of

    0: DFCS2 := DFCS_SCROLLUP;

    1: DFCS2 := DFCS_SCROLLDOWN;

    2: DFCS2 := DFCS_SCROLLLEFT;

    3: DFCS2 := DFCS_SCROLLRIGHT;

    4: DFCS2 := DFCS_SCROLLCOMBOBOX;

    5: DFCS2 := DFCS_SCROLLSIZEGRIP;

    6: DFCS2 := DFCS_SCROLLSIZEGRIPRIGHT;

  end;

  Draw;

end;



procedure TForm1.RadioGroup6Click(Sender: TObject);

begin

  case RadioGroup6.ItemIndex of

    0: DFCS2 := DFCS_BUTTONCHECK;

    1: DFCS2 := DFCS_BUTTONRADIOIMAGE;

    2: DFCS2 := DFCS_BUTTONRADIOMASK;

    3: DFCS2 := DFCS_BUTTONRADIO;

    4: DFCS2 := DFCS_BUTTON3STATE;

    5: DFCS2 := DFCS_BUTTONPUSH;

  end;

  Draw;

end;



end.


 
   




//效果图:

---

附上窗体结构代码: object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 386 ClientWidth = 499 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object RadioGroup1: TRadioGroup Left = 0 Top = 8 Width = 137 Height = 129 Caption = 'RadioGroup1' Items.Strings = ( 'DFC_CAPTION ' 'DFC_MENU ' 'DFC_SCROLL ' 'DFC_BUTTON ' 'DFC_POPUPMENU ') TabOrder = 0 OnClick = RadioGroup1Click end object RadioGroup2: TRadioGroup Left = 0 Top = 143 Width = 137 Height = 170 Caption = 'RadioGroup2' Items.Strings = ( 'DFCS_INACTIVE' 'DFCS_PUSHED' 'DFCS_CHECKED' 'DFCS_TRANSPARENT' 'DFCS_HOT' 'DFCS_ADJUSTRECT' 'DFCS_FLAT' 'DFCS_MONO') TabOrder = 1 OnClick = RadioGroup2Click end object RadioGroup3: TRadioGroup Left = 143 Top = 8 Width = 178 Height = 129 Caption = 'RadioGroup3' Items.Strings = ( 'DFCS_CAPTIONCLOSE ' 'DFCS_CAPTIONMIN' 'DFCS_CAPTIONMAX' 'DFCS_CAPTIONRESTORE' 'DFCS_CAPTIONHELP') TabOrder = 2 OnClick = RadioGroup3Click end object RadioGroup4: TRadioGroup Left = 327 Top = 8 Width = 170 Height = 129 Caption = 'RadioGroup4' Items.Strings = ( 'DFCS_MENUARROW' 'DFCS_MENUCHECK' 'DFCS_MENUBULLET' 'DFCS_MENUARROWRIGHT') TabOrder = 3 OnClick = RadioGroup4Click end object RadioGroup5: TRadioGroup Left = 143 Top = 143 Width = 178 Height = 170 Caption = 'RadioGroup5' Items.Strings = ( 'DFCS_SCROLLUP' 'DFCS_SCROLLDOWN' 'DFCS_SCROLLLEFT' 'DFCS_SCROLLRIGHT' 'DFCS_SCROLLCOMBOBOX' 'DFCS_SCROLLSIZEGRIP' 'DFCS_SCROLLSIZEGRIPRIGHT') TabOrder = 4 OnClick = RadioGroup5Click end object RadioGroup6: TRadioGroup Left = 327 Top = 143 Width = 170 Height = 170 Caption = 'RadioGroup6' Items.Strings = ( 'DFCS_BUTTONCHECK' 'DFCS_BUTTONRADIOIMAGE' 'DFCS_BUTTONRADIOMASK' 'DFCS_BUTTONRADIO' 'DFCS_BUTTON3STATE' 'DFCS_BUTTONPUSH') TabOrder = 5 OnClick = RadioGroup6Click end object Panel1: TPanel Left = 0 Top = 319 Width = 499 Height = 67 Align = alBottom Caption = 'Panel1' TabOrder = 6 end end

---