Форум: "Основная";
Поиск по всему сайту: 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.72 MB
Время: 0.024 c
4-22484           TroJan                2001-11-03 19:56  2002.01.08  
Как можно загрузить свой курсор в дельфи!


1-22095           ev                    2001-12-18 20:22  2002.01.08  
форма волны и спектр


4-22454           Ewgeniy               2001-10-31 07:40  2002.01.08  
Отображение на форме графики из памяти


1-22018           DelphiG               2001-12-18 01:51  2002.01.08  
Печать текста из Memo! У меня что то не так....


3-21919           VS                    2001-12-04 14:07  2002.01.08  
Чтение и исправление данных из базы формата DBF Visual FoxPro 6.0