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

Para baixo

Como fazer o Canvas render quando qualquer janela é monitorada Encontre agências semelhantes


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

As pessoas, como se certificar de que meus dados que eu saída para o Canvas não desaparecem durante as manipulações de janela?
E como faço um manipulador de pressionamento de tecla se eu criar o TPanel programaticamente?

tipo
TPreview = class (TPanel)
privado
propriedade Canvas;
protegido
público
construtor Create (AOwner: TComponent); substituir;
end;

{TPreview}

construtor TPreview.Create (AOwner: TComponent);
começar
Inherited Create (AOwner);
Parent: = AOwner como TWinControl;
BevelInner: = bvNone;
BevelOuter: = bvNone;
Cor: = preto;
BorderStyle: = bsNone;
end;

procedimento TForm1.FormPaint (Sender: TObject);
var R: TRect;
começar
com MyPrev do
começar
Canvas.Pen.Width: = 1;
Canvas.Brush.Style: = bsSolid;
Canvas.Font.Size: = 18;
R: = recto (10,10,100,100);
Canvas.Rectangle (R.Left-1, R. Top-1, R. Direito + 1, R. Fundo + 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;
com 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.55 MB
Hora: 0.033 c
6-22267
wHammer
2001-09-28 15:00
2002.01.08
Seria muito conveniente ...


3-21931
SklifF
2001-12-04 15:59
2002.01.08
Qual é esse erro? Capacidade não suportada


7-22437
Paradoxo
2001-09-25 18:48
2002.01.08
wav


14-22388
Esmerilhão
2001-11-08 11:43
2002.01.08
Outra sujeira na despensa


14-22401
wHammer
2001-11-09 12:56
2002.01.08
Isso foi interessante?





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