Bild in DelphiX strechen

[ISAS]

Habe hier eine Form und eine DXDraw-Fläche, die dieselben Grössen haben. Wenn ich nun die Form Vergrössere, soll sich die DXDraw-Fläche der Grösse anpassen. Kein Problem. Aber:

Es soll sich das/die Bild/er auch vergrössern, aber gleichmässig. zB ein Bilder mit der grösse 1/1. Das kann dann nur so gross sein: 2/2 oder 3/3 und nicht 2/1 oder 3/5.

Geht das irgendwie?

[danielmattes]

das geht so:

Delphi-Quellcode:

//surface löschen:
DXDraw1.Surface.Fill( 0 );
//bitmap zeichnen:
DXImagelist1.Items[0].Picture.assign(bitmap);
Dximagelist1.Items[0].Restore;
DXImagelist1.items[0].StretchDraw(dxdraw1.Surface,rect(0,0,dxdraw1.width,dxdraw1.height),0);
Dxdraw1.Flip;

(wobei bitmap ein assoziertes bitmap darstellt, z.b. paintbox.picture.bitmap)

[edit=sakura] [delphi]Tags Mfg, sakura[/edit]

[ISAS]

Das funkt irgendwie nicht. Hab das so eingegeben. Ist das falsch??

Delphi-Quellcode:

  DXInput1.Update;
  DXSpriteEngine1.Move(1);
  DXDraw1.Surface.Fill(0);
  DXImagelist1.Items[0].Picture.assign(Form1.DXImageList1.Items[2]);
  DXimagelist1.Items[0].Restore;
  DXImagelist1.items[0].StretchDraw(dxdraw1.Surface,rect(0,0,dxdraw1.width,dxdraw1.height),0);
  DXSpriteEngine1.Draw;
  DXDraw1.Flip;
  DXSpriteEngine1.Dead;

Dann kommt eine Fehlermedung:

'TPictureCollectionItem kann nicht zu TPicture zugewiesen werden'