unit Linia;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, Graphics, Forms, Dialogs, StdCtrls;
type
TLinia = class(TGraphicControl)
private
{ Private declarations }
protected
{ Protected declarations }
public
constructor Create(AOwner : TComponent); override;
{ Public declarations }
published
property Width default 50;
property Height default 20;
end;
procedure Register;
implementation
constructor TLinia.Create (AOwner: TComponent);
begin
inherited Create(AOwner);
Width:= 50;
Height:= 20;
end;
procedure Register;
begin
RegisterComponents('Wodzu', [TLinia]);
end;
end.
Oto ten komponent, jak widzicie jest straszliwie skomplikowany;) Chcialbym teraz dodac do niego procedure TLinia.Paint tak aby na Canvasie komponentu cos sie narysowalo. Jednak kiedy to robie to dostaje ostrzezenie od kompilatora i nic sie nie rysuje;(
Czy ktos moze mi pomoc?
Ja chce po prostu narysowac na Canvasie komponentu jedna glupia linie... hmm... --take care,
Wodzu