Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Вниз

Как сделать, чтобы Canvas прорисовывался при любых монипуляцих с окном 


dimonf   (2001-12-16 17:23) [0]

Народ, как зделать чтобы мой данные которые я вывожу на Canvas не исчезали при лубых монипуляциях с окном?
И как мне сделать оброботчик нажатия клавиши если я создаю програмно TPanel?

type
TPreview = class(TPanel)
private
property Canvas;
protected
public
constructor Create(AOwner:TComponent); override;
end;

{ TPreview }

constructor TPreview.Create(AOwner: TComponent);
begin
Inherited Create(AOwner);
Parent := AOwner as TWinControl;
BevelInner := bvNone;
BevelOuter := bvNone;
Color := clWhite;
BorderStyle := bsNone;
end;

procedure TForm1.FormPaint(Sender: TObject);
var R: TRect;
begin
with MyPrev do
begin
Canvas.Pen.Width := 1;
Canvas.Brush.Style := bsSolid;
Canvas.Font.Size := 18;
R := Rect(10,10,100,100);
Canvas.Rectangle(R.Left-1, R.Top-1, R.Right+1, R.Bottom+1);
Canvas.TextRect(R,0,0,"Demos");
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var R: TRect;
begin
MyPrev:=TPreview.Create(Self);
MyPrev.Height:=Form1.Height*2;
Panel1.Height:=Form1.Height*2;
with MyPrev do
begin
Canvas.Pen.Width := 1;
Canvas.Brush.Style := bsSolid;
Canvas.Font.Size := 18;
end;
end;

end;



dimonf   (2001-12-16 18:09) [1]

Народ, нет мыслей???




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх






Память: 0.74 MB
Время: 0.024 c
6-22307           Leviathan             2001-10-12 12:54  2002.01.08  
NMFTP - отстой!!!!


1-22098           Alexander             2001-12-19 14:58  2002.01.08  
Кто знает как вытащить виндовый редактор IP адреса или компонент какой?


14-22349          Иван Шихалев          2001-11-06 21:48  2002.01.08  
to Anatoly Podgoretsky


1-22229           Man In Red            2001-12-16 14:31  2002.01.08  
Опять вопрос связаный с RichEdit!


14-22375          Nemeis                2001-11-07 14:08  2002.01.08  
И опять про Ламеров ;)