casa
Top.Mail.Ru Yandeks.Metrika
Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

giù

Come fare una tela disegnata quando una finestra passa con una finestra Trova rami simili


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

La gente, come crearne una che i miei dati che ho messo sulla tela non siano scomparsi durante le monopolitazioni smussate con la finestra?
E come posso eseguire un'operazione di battitura se creo il software TPanel?

Digitare
TPreview = class (TPanel)
privato
proprietà Canvas;
protetta
pubblico
costruttore Create (AOwner: TComponent); ignorare;
fine;

{} TPreview

costruttore TPreview.Create (AOwner: TComponent);
iniziare
Inherited Create (AOwner);
Parent: = AOwner come TWinControl;
BevelInner: = bvNone;
BevelOuter: = bvNone;
Colore: = clWhite;
BorderStyle: = bsNone;
fine;

procedura TForm1.FormPaint (Sender: TObject);
var R: TRect;
iniziare
con MyPrev do
iniziare
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");
fine;
fine;

procedura TForm1.FormCreate (Sender: TObject);
var R: TRect;
iniziare
MyPrev: = TPreview.Create (Self);
MyPrev.Height: = Form1.Height * 2;
Panel1.Height: = Form1.Height * 2;
con MyPrev do
iniziare
Canvas.Pen.Width: = 1;
Canvas.Brush.Style: = bsSolid;
Canvas.Font.Size: = 18;
fine;
fine;

fine;



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

Persone, niente pensieri ???



Pagine: 1 tutto il ramo

Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

al piano di sopra









Memoria: 0.81 MB
Ora: 0.029 c
14-22345
petr_v_a
2001-11-05 20:13
2002.01.08
In difesa di Lana Rozanova & Co !!!


4-22499
YUS
2001-10-31 20:51
2002.01.08
FindWindow


6-22299
Leviathan
2001-10-11 21:58
2002.01.08
Gestione degli errori TClientSocket


1-22231
Leviathan
2001-12-16 22:16
2002.01.08
BitBlt ...


1-22038
Dima ~
2001-12-18 17:53
2002.01.08
Come trasferire la riga di comando al file avviato?





afrikaans albanese Arabic armeno Azero basco bielorusso Bulgarian catalano Cinese (semplificato) Cinese (tradizionale) croato Ceco danese Dutch Inglese estone filippina Finnish Francese
galiziano georgiano Tedesco greco Creolo haitiano ebraico hindi ungherese islandese Indonesian irlandese Italiano Giapponese Korean lettone lituano macedone Malay maltese Norwegian
persiano polacco Portoghese rumeno Russian serbo Slovak sloveno Spagnolo swahili Swedish Thai turco ucraino Urdu vietnamita gallese yiddish bengalese bosniaco
Cebuano esperanto Gujarati Hausa Hmong Igbo giavanese kannada khmer lao latino maori marathi mongolo nepali punjabi somalo tamil telugu Yoruba
zulù
Английский Francese tedesco italiano portoghese russo spagnolo