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-22359
Сергей1
2001-11-07 15:36
2002.01.08
Cp1251


1-22137
AlexandrH_
2001-12-20 08:06
2002.01.08
Come gestire lo stato attivo in StringGride.


3-21901
vincitore
2001-12-06 09:46
2002.01.08
problema con l'eliminazione dei record


1-22255
Dmitry Kataev
2001-12-14 14:51
2002.01.08
Come implementare una nuova voce di menu in IE, che viene chiamata dal pulsante destro (ad esempio in Reget, ad esempio)


3-21925
Nailka
2001-12-04 16:16
2002.01.08
Il problema con la ricerca del campo lungo in Oracle





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