MDI com imagem.

Delphi

30/01/2004

Olá, gostaria de saber como fazer para incluir uma imagen dentro do meu formulario MDI, e dar as opç~es de lado-a-lado, centralizado ou extendido,

a imagem eu consigo inserir mas nao com as opções acima.

Valeu.


Jsegoa

Jsegoa

Curtidas 0

Respostas

Silviogs

Silviogs

30/01/2004

Lá vai..

procedure TFMain.FormShow(Sender: TObject);
procedure CarregaFundo;
var
Bitmap : TBitmap;
Imagem : TJPEGImage;
posDest,
posOrig : TRect;
begin
try
Imagem := TJPEGImage.Create;
Imagem.LoadFromFile(ExtractFilePath(Application.ExeName) + ARQ_FUNDO_APLICACAO);

Bitmap := TBitmap.Create;
Bitmap.Assign(Imagem);
Imagem.Free;

Imagem := CreateInitImage;

posOrig := Rect(FMain.Left + 6, FMain.Top + PnTop.Height +6, FMain.Width, FMain.Height);
posDest := Rect(0, 0, FMain.Width - posOrig.Left, FMain.Height - posOrig.Top);

MDIWallPaper1.Bitmap.Assign(Imagem);
MDIWallPaper1.Bitmap.Canvas.CopyRect(posDest,Bitmap.Canvas,posOrig);
finally
Bitmap.Free;
Imagem.Free;
end;
end;
begin
...
end;

-------------------------------

Atenciosamente

Silvio Guedes


GOSTEI 0
POSTAR