Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.08;
Скачать: CL | DM;

Вниз

Как сделать, чтобы 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]

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



Страницы: 1 вся ветка

Текущий архив: 2002.01.08;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.016 c
1-22026
Romualds Stashans
2001-12-18 11:07
2002.01.08
Каким образом через Delphi можно запустить *.exe с ....


14-22409
Vadim
2001-11-12 13:56
2002.01.08
А может, не будем бить друг друга по рукам?


14-22337
Alexandr
2001-11-05 13:20
2002.01.08
Print Server DP-101(D-Link) и печать из-под DOS


1-22156
vlv
2001-12-15 21:05
2002.01.08
HTMLHelp


1-22178
Анастасия
2001-12-15 21:38
2002.01.08
Нужна информация!