AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Bild auf TImage kacheln?
Thema durchsuchen
Ansicht
Themen-Optionen

Bild auf TImage kacheln?

Ein Thema von ryLIX · begonnen am 24. Feb 2010 · letzter Beitrag vom 24. Feb 2010
 
Benutzerbild von s.h.a.r.k
s.h.a.r.k

Registriert seit: 26. Mai 2004
3.159 Beiträge
 
#5

Re: Bild auf TImage kacheln?

  Alt 24. Feb 2010, 12:00
Zitat von himitsu:
aber Besser wäre es so
Delphi-Quellcode:
procedure TForm1.Form1Create(Sender: TObject);
begin
  img := TJPEGImage.Create;
  img.LoadFromFile('back.jpg');
end;

procedure TForm1.Form1Destroy(Sender: TObject);
begin
  img.Free;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to PaintBox1.Width div img.Width - 1 do
    PaintBox1.Canvas.Draw(img.Width * I, 0, img);
end;
Wieso das denn? So muss ich ja eine "globale" Varibale in der Klasse halten, die erst gegen Ende freigegeben wird. Ich würde es noch verstehe, wenn das Image mehrfach im Code verwendet werden würde, was es aber nicht wird.

PS: Über TImage und kacheln bin ich auf den Thread gestoßen es gab nur zwei Treffer: Hier im Forum suchentimage kacheln
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:49 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz