Array of Bitmap

**Kuehter**

Habe schon in mehreren Foren geguckt, nur ich komme nicht auf den Fehler

Delphi-Quellcode:

			type 

Tarraybmp = array [0..26] of TBitmap;

zusammenfalten · markieren

Delphi-Quellcode:

			function TForm1.bmpcall: Tarraybmp;

var

    counter : integer;

begin

    for counter := 0 to 26 do

    begin

        Result[counter].Create;

    end;

    Result[0].Assign(Image1.Picture.Graphic);

    Result[1].Assign(Image2.Picture.Graphic);

    Result[2].Assign(Image3.Picture.Graphic);

    Result[3].Assign(Image4.Picture.Graphic);

    Result[4].Assign(Image5.Picture.Graphic);

    Result[5].Assign(Image6.Picture.Graphic);

    Result[6].Assign(Image7.Picture.Graphic);

    Result[7].Assign(Image8.Picture.Graphic);

    Result[8].Assign(Image9.Picture.Graphic);

    Result[9].Assign(Image10.Picture.Graphic);

    Result[10].Assign(Image11.Picture.Graphic);

    Result[11].Assign(Image12.Picture.Graphic);

    Result[12].Assign(Image13.Picture.Graphic);

    Result[13].Assign(Image14.Picture.Graphic);

    Result[14].Assign(Image15.Picture.Graphic);

    Result[15].Assign(Image16.Picture.Graphic);

    Result[16].Assign(Image17.Picture.Graphic);

    Result[17].Assign(Image18.Picture.Graphic);

    Result[18].Assign(Image19.Picture.Graphic);

    Result[19].Assign(Image20.Picture.Graphic);

    Result[20].Assign(Image21.Picture.Graphic);

    Result[21].Assign(Image22.Picture.Graphic);

    Result[22].Assign(Image23.Picture.Graphic);

    Result[23].Assign(Image24.Picture.Graphic);

    Result[24].Assign(Image25.Picture.Graphic);

    Result[25].Assign(Image26.Picture.Graphic);

    Result[26].Assign(Image27.Picture.Graphic);

end;

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button2Click(Sender: TObject);

var

  DestRect : Trect;

  bmp : tarraybmp;

  verschiebung: integer;

begin

    bmp := bmpcall;

    verschiebung := 0;

    DestRect.Left := 20 + verschiebung;

    DestRect.Top := 20 + Verschiebung;

    Destrect.Right := Printer.PageWidth -4500 + verschiebung;

    Destrect.Bottom := Printer.PageHeight -6550 + verschiebung;

    Printer.Title := 'Hello';

    Printer.BeginDoc;

    Printer.Canvas.CopyRect(DestRect,bmp[0].Canvas,bmp[0].Canvas.ClipRect);

    //Printer.Canvas.Draw(30,30, Image1.Picture.Graphic);

    Printer.EndDoc;

end;

end.

steh gerade irgendwie aufen schlauch

ja wenn ich das aufrufen will kommt ein Exeptionfehler woran kann das den liegen ?
Vielleicht irgendwo ne Create oder so vergessen ?

Array of Bitmap

Array of Bitmap

Forumregeln