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.54 MB
Ora: 0.023 c
3-21962
phantom2040
2001-12-04 13:27
2002.01.08
Impostazione del filtro in TDStringGrid


1-22104
DerZky
2001-12-18 19:54
2002.01.08
Come confrontare le date.


1-22085
ProfiUgl
2001-12-19 15:24
2002.01.08
Come leggere le opzioni della riga di comando


3-21954
Strahov
2001-12-05 15:32
2002.01.08
Qualcuno ha incontrato un bug


6-22308
Igor
2001-10-14 09:44
2002.01.08
Scambio di dati tra client e server in Delphi





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