Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

Cómo hacer un lienzo dibujado cuando una ventana pasa con una ventana Encontrar ramas similares


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

Gente, ¿cómo crear uno que mis datos que puse en el lienzo no desaparecieron durante las monipulaciones contundentes con la ventana?
¿Y cómo puedo realizar una operación de pulsación de tecla si creo el software TPanel?

tipo
TPreview = clase (TPanel)
privada
Lienzo de propiedad;
protegido
público
constructor Crear (AOwner: TComponent); anular
fin;

{TPreview}

constructor TPreview.Create (AOwner: TComponent);
comenzar
Creación heredada (AOwner);
Padre: = AOwner como TWinControl;
BevelInner: = bvNone;
BevelOuter: = bvNone;
Color: = clWhite;
BorderStyle: = bsNone;
fin;

procedimiento TForm1.FormPaint (Sender: TObject);
var R: TRect;
comenzar
con MyPrev hacer
comenzar
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");
fin;
fin;

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

fin;



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

¿Gente, sin pensamientos?



Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba









Memoria: 0.55 MB
Tiempo: 0.039 c
4-22511
Plug & play
2001-10-29 22:23
2002.01.08
¿Y cómo apagar programáticamente la computadora?


6-22309
Denso
2001-10-10 19:02
2002.01.08
¡Hay una TARJETA DE RED sin pasaporte, sellada!


14-22359
Sergey1
2001-11-07 15:36
2002.01.08
Cp1251


14-22352
Esmerejón
2001-11-02 13:04
2002.01.08
Tenemos todos los movimientos registrados!


1-22061
Tracción a las ruedas
2001-12-18 19:44
2002.01.08
¿Por qué el formulario MDI no muestra MDIChild en el menú?





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish Francés
gallego georgiano Alemán Griego criollo haitiano hebreo hindi Húngaro islandés Indonesian irlandés Italiana Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español