Einzelnen Beitrag anzeigen

Gandalfus

Registriert seit: 19. Apr 2003
407 Beiträge
 
Delphi 2006 Professional
 
#13

Re: Zeichenroutine frisst zuviel Speicher

  Alt 26. Jan 2004, 19:45
selbst wenn das unter XP läuft unter 98 geht das mit so grossen Bildern niemals. Das Bild muss zerteilt werden wie das jetzt in deinem Fall geht kann man ohne code nicht sagen.

Delphi-Quellcode:
ich würde das in etwa so machen:

type
  TBildteil = object;
  puplic
    width,height: integer;
    left,top: integer;
    Bild: TBitmap;
    constructor create;
    destructor destroy; override;
  end;

[..]

constructor TBildteil.create;
begin
  inherited;
  Bild := TBItmap.create;;
end;

destructor TBildteil.destroy;
begin
  Bild.free;
  inherited;
end;


var
  Bildteil : array [0..2,0..2] of TBildteil;

[..]
for x:=0 to 2 do
begin
  for y:=0 to 2 do
  begin
    Bildteil[x,y] := TBildteil.create;
    Bildteil.left := x;
    Bildteil.top := y;
  end;
end;

Bildteil[0,0].bild.asign(BIldteil1)
....


zeichnen:
for x:=0 to 2 do
begin
  for y:=0 to 2 do
  begin
    //hab im Moment keien Zeit mehr
  end;
end;
mfg
  Mit Zitat antworten Zitat