8 respuestas en este tema

[c0lo]

Bueno ahora mas sobre imagenes, ocurre que tengo mi form transparente, gracias a esta funcion o utilidad que me sirve de maravillas.

delphi

procedure TForm2.MakeTransparent;
var
  AControl: TControl;
  A, Margin, X, Y, CtlX, CtlY: Integer;
begin
  Margin    := (Width - ClientWidth) div 2;
  FullRgn  := CreateRectRgn(0, 0, Width, Height);
  X        := Margin;
  Y        := Height - ClientHeight - Margin;
  ClientRgn := CreateRectRgn(X, Y, X + ClientWidth, Y + ClientHeight);
  CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF);
  for A := 0 to ControlCount - 1 do
  begin
    AControl := Controls[A];
    if (AControl is TWinControl) or (AControl is TGraphicControl) then with AControl do
      begin
        if Visible then
        begin
          CtlX  := X + Left;
          CtlY  := Y + Top;
          CtlRgn := CreateRectRgn(CtlX, CtlY, CtlX + Width, CtlY + Height);
          CombineRgn(FullRgn, FullRgn, CtlRgn, RGN_OR);
        end;
      end;
  end;
  SetWindowRgn(Handle, FullRgn, True);
end;

Esta función que todo mi form sea transparente excepto los controles, ahora lo que quiero es poner un label sobre este form y que el label tenga un form transparente. ya que cuando introduzco el label me sale algo así



Como puedo hacer q mi componente sea transparente al igual q mi form.

[egostar]

Hola

No se que versión de Delphi tienes pero en mi Turbo Delphi (2006) el label tiene una propiedad llamada Transparent y hace lo que quieres

Salud OS

PD; Ya vi, tienes Delphi7 

Archivos adjuntos

•  2564_daf770b49e312fc6b3236fdde8e6354bf4de6793.jpg   7,56KB   8 descargas

[c0lo]

Si tengo Delphi7, tambien tengo Borland Delphi2009. Probare ahi y vere si la propiedad se mantiene aun cuando haga mi form transparente y os comento.


Edit: Pase mi codigo al Delphi2009 y lamentablemente no funciona la propiedad Transparente del form en el.

[escafandra]

Si tu objetivo es adaptar un TLabel para un SkinForm, tal como parece según este hilo y la respuesta que te dí, la solución no va a pasar por la propiedad Transparent del TLabel, pues su región no va a cambiar.

Nada te impide hacerlo a bajo nivel pintar directamente en el HDC de una ventana:

Ventana STATIC (Label) a bajo nivel con API:

delphi

hFrame:= CreateWindowEx(WS_EX_LAYERED, 'UPMSG', '',WS_POPUP or WS_THICKFRAME, X, Y, W, H, HWND_DESKTOP, HMENU(0), hInstance, nil);
hLabel:= CreateWindow('STATIC', '', WS_VISIBLE or WS_CHILD, Margin, Margin, W-Margin*2, H-Margin*2, hFrame, HMENU(0), hInstance, nil);
SetWindowText(hLabel, PCHAR(Msg));SetLayeredWindowAttributes(hFrame, 0, 200, LWA_ALPHA);

Dibujando Texto:

delphi

DrawText(DC, Msg, lstrlen(Msg), Rect, DT_LEFT);

Puedes tener un ejemplo completo de los dos sistemas tanto en delphi como en C/C++ usando API pura, en este hilo: Ventana desplegable translúcida, una alternativa a AnimateWindow.



Saludos.

PD: Si en realidad este hilo es una continuación de Problema con Api UpdateLayeredWindow?, tal vez sea coherente unificarlos. Por el momento lo dejo a tu criterio.

[c0lo]

No entiendo bien...

Sobre los dos post si es el mismo tema, pero visto de ambos lados. Es decir, tengo mi form que es transparente utilizando la api del post anterior, Ahora estoy haciendo un form tal que sea la mascara del anterior pero q sea transparente, excepto sus componentes, pero el problema aqui es el label que quiero q sea transparente pero nose peude ya.

Ahora entiendo lo que me dices creo?

delphi

  //Creamos la fuente, por detalles de lo que significa cada parámetro mira
  Fuente := CreateFont(-12, 0, 0, 0, 400, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,DEFAULT_PITCH + FF_DONTCARE, 'MS Sans Serif');
 
  //Creamos una label
  //lcPosX := CreateWindow( 'Static', 'X:', WS_VISIBLE + WS_CHILD + SS_LEFT, X, Y, W, H, Handle, 0, hInstance, nil );
  lcPosX := CreateWindow( 'Static', 'aqui', WS_VISIBLE or WS_CHILD, X, Y, W, H, Handle, 0, hInstance, nil );
 
 
  SendMessage( lcPosX      , WM_SETFONT , Fuente , lcPosX      );

Ahi tengo i label dentro de mi form, donde estan los controles, ocurre que como este label tiene el handle del form, automaticamente el form es transparente este label ya es transparente por hecho...

Ahora nose si entendi bien, pero me decias sobre dibujar, nose si se peude dibujar sobre este form... xispas o si? no pense en eso..

[Sergio]

Yo uso simplemente Form.AlphaBlendValue:= 125; al diseñar el form, o en el form create / OnShow o donde prefieras, y todo lo que el form contiene se hace semi transparente... igual necesitas mas funcionalidad, pero en Delphi7 esto funciona perfectamente.

[escafandra]

Ahora nose si entendi bien, pero me decias sobre dibujar, nose si se peude dibujar sobre este form... xispas o si? no pense en eso..

Entiendo que tratas de de realizar lo que te comenté en el  otro hilo, es decir colocar un Form Transparente en el que sólo se vean los controles, encima de una ventana con un bitmap que usa la API UpdateLayeredWindow. En ese caso, el label lo pintas en el DC de la ventana que tiene el Bitmap, no en la de los controles, que anulan las regiones no cubiertas por controles. 



Saludos.

[escafandra]

...no logro dibujar el label de tal forma sea transparente pero  se vean las letras y ademas tenga la propiedad de q si pase el mouse  por ahi cambie el icono del moouse y q si se clque salga una web o algo  ....

Te muestro dos ejemplos de como hacerlo usando Bitmap, Máscaras y regiones, similar al ejemplo que hice en el hilo cuya lectura te recomendé: Manejo de imágenes Bitmap estilo Winamp.

Esta vez sólo maneja un Form de forma caprichosa y un label. El Label reacciona al paso del cursor del ratón variando el mismo y al evento OnClick.

El primer ejemplo muestra un Skin para el label, es decir, está dibujado. Esto te puede permitir darle luminosidad y efectos, por ejemplo, al pasar el ratón por encima. Solo tendrías que dibujar los bitmap que te apetezcan siguiendo la filosofía expuesta en Manejo de imágenes Bitmap estilo Winamp.

El segundo ejemplo es mas simple. El label es un TLabel normal, visible, de fondo trasparente, también encastrado en un Form de forma caprichosa.


Espero que obtengas las ideas necesarias para tu proyecto.


Saludos.

[c0lo]

Muchas gracias escafandra sos un grande...