Utiliser une image comme frise

Revu et amélioré par Christophe Foret < christopheforet@hotmail.com >
Pensez à mettre la fonction dans l'Event OnRepaint.

function GrafikKacheln(dateiname: string; Sender: TObject; AStretch:
Boolean): boolean;
var
x, y: Integer; Bmp: TBitmap;
MyRect: TRect;
begin
if fileexists(dateiname) then begin
bmp := TBitmap.Create;
try
bmp.LoadFromFile(dateiname);
if (AStretch) then
begin
MyRect.Left := 0;
MyRect.Right := (Sender as TForm).With;
MyRect.Bottom := (Sender as TForm).Heigth;
MyRect.Top := 0;
(Sender as TForm).Canvas.StretchDraw(MyRect, bmp)
end
else
begin
with (Sender as TForm) do begin
for x := 0 to (Width div bmp.width) do
for y := 0 to (height div bmp.height) do
Canvas.Draw(x * bmp.width, y * bmp.height, bmp);
end;
end;
finally
bmp.Free;
end;
result := true;
end else begin
result := false;
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
if Opendialog1.Execute then
begin
GrafikKacheln(Opendialog1.FileName, Form1);
end;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour16/11/2001
VisualisationVu 1677 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Graphisme
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur