Új hozzászólás Aktív témák

• #1081 Diskcopy tag corvin #1080

  Új Válasz 2006-01-15 14:31:28 #1081

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Diskcopy

  tag

  válasz corvin #1080 üzenetére

  Miért nem teszed be a képeket egy resource fileba, aztán töltöd be futás közben, az ImageList ResourceLoad segítségével? [link] például.. Szal megszerkeszted szépen a Resource filet a képekkel, aztán meg {$R -el behívod, majd resourceLoad.Próbáld ki.

• #489 Alan aktív tag corvin #487

  Új Válasz 2005-01-15 19:03:38 #489

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Alan

  aktív tag

  válasz corvin #487 üzenetére

  Egy lehetőség: tegyél fel egy TPaintBox komponenst a kívánt méretben, alá egy gombot (Button1), majd a következő kódot írd bele a programodba:
  
  ...
  var ABitmap: TBitmap;
  
  ...
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  ABitmap := TBitmap.Create;
  ABitmap.LoadFromFile('c:\temp\kép.bmp');
  PaintBox1.Canvas.Draw(0, 0, ABitmap);
  end;
  
  Ekkor ''normálisan'' kirjazolja a képet. A 0, 0 helyére kell beírnod a kívánt koordinátákat az eltolt rajzoláshoz.
  
  Aztán persze lehet továbbfejleszteni, a koordinátákat más kezelőszerv állásához vagy az egér mozgásához kötni lenyomott bal gomb esetén stb.

Új hozzászólás Aktív témák