人
人
Unregistered / Unconfirmed
GUEST, unregistred user!
unit fMain2;interfaceuses................type TVertLine = class(TGraphicControl) private FVisible: Boolean; protected procedure Paint; override; public constructor Create(AOwner: TComponent); override; property Position: Integer read FPosition write SetPosition; end;TfrmMain2 = class(TForm)...............private............protected procedure DrawK(C: TCanvas; R: TRect); overload;publicproperty UnitWidth: Integer read FUnitWidth write SetUnitWidth;var frmMain2: TfrmMain2; //主窗口implementation{$R *.dfm}