J
jack.shi
Unregistered / Unconfirmed
GUEST, unregistred user!
从日期控件继承而来，但不知如何自己重画外观，请大家帮忙！！
unit TXPDateTimePickerUnit;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, XPUtilitys;
type
TXPDateTimePicker = class(TDateTimePicker)
private
FButtonWidth: integer;
FSysBtnWidth: Integer;
protected
procedure PaintButton;
procedure RedrawBorders;
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
procedure WMNCPaint(var Message: TMessage); message WM_NCPAINT;
public
constructor Create(AOwner: TComponent); override;
published
{ Published declarations }
end;
implementation
constructor TXPDateTimePicker.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle := ControlStyle - [csFixedHeight] + [csOpaque];
TControlCanvas(Canvas).Control := self; 这句话不能编译为什么？
FButtonWidth := 17;
FSysBtnWidth := GetSystemMetrics(SM_CXVSCROLL);
end;
想改变伊拉按钮的形状以及选择日期框中按钮的形状，达到自己程序中的效果！！
unit TXPDateTimePickerUnit;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, XPUtilitys;
type
TXPDateTimePicker = class(TDateTimePicker)
private
FButtonWidth: integer;
FSysBtnWidth: Integer;
protected
procedure PaintButton;
procedure RedrawBorders;
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
procedure WMNCPaint(var Message: TMessage); message WM_NCPAINT;
public
constructor Create(AOwner: TComponent); override;
published
{ Published declarations }
end;
implementation
constructor TXPDateTimePicker.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle := ControlStyle - [csFixedHeight] + [csOpaque];
TControlCanvas(Canvas).Control := self; 这句话不能编译为什么？
FButtonWidth := 17;
FSysBtnWidth := GetSystemMetrics(SM_CXVSCROLL);
end;
想改变伊拉按钮的形状以及选择日期框中按钮的形状，达到自己程序中的效果！！