Ver Mensaje Individual
  #6  
Antiguo 07-01-2004
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.964
Reputación: 29
delphi.com.ar Va camino a la fama
Si se usa... pero no tanto como del otro lado de la cordillera! y mas apuntando a "Fastidiado, Cansado.."
Yo te recomendaría hacerlo de código, pintar un canvas con un mozaico....

Observá lo sencillo que es este ejemplo, tené en cuenta que así como se hace sobre un Form, puedes hacerlo sobre cualquier TGraphicControl o TCustomControl, o cualquier objeto que tenga Canvas / DC:
Código:
type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    BackGround: TBitmap;
  public
  end;

implementation

....

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Brush.Bitmap := BackGround;
  Canvas.FillRect(ClientRect);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  BackGround := TBitmap.Create;
  BackGround.LoadFromFile('C:\Windows\Burbujas.bmp');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  BackGround.Free;
end;
;
Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.

Última edición por delphi.com.ar fecha: 07-01-2004 a las 22:23:01.
Responder Con Cita