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.54 MB
Hora: 0.551 c
14-22364
Esmerilhão
2001-11-06 00:22
2002.01.08
Se você não salvar, ele desaparecerá!


1-22175
viajante
2001-12-20 16:06
2002.01.08
sobre a dica e


3-21915
KAA
2001-12-04 10:28
2002.01.08
Zerando uma variável MSSQL2000


4-22495
soluço
2001-11-05 09:57
2002.01.08
Princípios básicos do WinAPI


3-21932
Christina
2001-12-04 07:43
2002.01.08
Ajuda :(





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