Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

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


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

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

tipo
TPreview = class(TPanel)
privado
property Canvas;
protegido
público
constructor Create(AOwner:TComponent); override;
end;

{ TPreview }

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

procedimento TForm1.FormPaint (Sender: TObject);
var R: TRect;
começar
with MyPrev do
começar
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;

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

end;



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

Pessoas, sem pensamentos ???



Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima









Memória: 0.81 MB
Hora: 0.029 c
4-22505
Delphi5.01
2001-11-07 20:14
2002.01.08
Problema com o Bitmap


1-22210
Homem vermelho
2001-12-15 20:12
2002.01.08
Como namut tais que ............................


3-21916
SVS
2001-12-03 12:08
2002.01.08
InterBase


14-22395
Alienígena
2001-11-07 01:15
2002.01.08
Como uma bagunça difere da ordem?


1-22105
Gonza
2001-12-19 16:35
2002.01.08
MDI Приложение ???





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol