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.55 MB
Ora: 0.022 c
1-22103
ProfiUgl
2001-12-19 17:15
2002.01.08
Forma di evento


6-22297
investigatore
2001-10-10 17:09
2002.01.08
Consiglia chi può


3-21922
Stas
2001-11-29 12:50
2002.01.08
BDE


1-22009
oomneeq
2001-12-14 21:26
2002.01.08
Riferimento di classe circolare


14-22336
Ivan Shikhalev
2001-11-02 23:31
2002.01.08
Banana d'oro





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ù
Inglese Francese tedesco italiano portoghese russo spagnolo