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

• #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