之前已經爬過文了~~
已經將checkbox和raiobuttom塞進去
也正常
但在昨天也塞edit發生困難
checkbox是 cfc_button
DFCS_BUTTONCHECK 是checkbox
dfcs_buttonradio 是radiobuttom
那想請問edit要用那個函數繪圖出來
謝謝
//--------------------------------------------------------
procedure TForm1.DrawCheckBox(Canvas:TCanvas;Ck:TCheckBox;Const R:TRect);
Const
bW = 13;
var
tx,ty :Integer;
bR :TRect;
uState:Integer;
begin
Canvas.Brush.Style:=bsSolid;
Canvas.Brush.Color:=ck.Color;
Canvas.FillRect(R);
Canvas.Brush.Style:=bsClear;
Canvas.Font:=ck.Font;
//繪製方塊 DFCS_INACTIVE(Not Enabled) DFCS_CHECKED (Checked)
uState:=DFCS_BUTTONCHECK;
if(Not ck.Enabled)then uState:=uState or DFCS_INACTIVE;
if(ck.Checked)then uState:=uState or DFCS_CHECKED;
tx:=R.Left;
ty:=R.Top (R.Bottom-R.Top-bw)div 2;
DrawFrameControl(Canvas.Handle,Rect(tx,ty,tx bw,ty bw),DFC_BUTTON,uState);<-------
//繪製文字
tx:=tx bw 5;
ty:=R.Top (R.Bottom-R.Top-Canvas.TextHeight('A'))div 2;
if(Not Ck.Enabled)then begin
Canvas.Font.Color:=clWindow;
Canvas.TextOut(tx 1,ty 1,ck.Caption);
Canvas.Font.Color:=clGrayText;
Canvas.TextOut(tx ,ty ,ck.Caption);
end else Canvas.TextOut(tx,ty,ck.Caption);
end;
//--------------------------------------------------------