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.044 c
1-22241
Yuraz
2001-12-17 10:09
2002.01.08
FileListBox1.FileName retorna o caminho completo para o arquivo, como fazer com que ele retorne apenas o nome do arquivo?


1-22052
avr555
2001-12-17 19:54
2002.01.08
Componente arrastável


14-22407
KL
2001-11-03 00:47
2002.01.08
Teste Beta !!!


3-21958
bk
2001-12-05 19:15
2002.01.08
Pomogite kto moget ado unikal nomer


1-22193
T2
2001-12-14 03:17
2002.01.08
DLL





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