Legfrissebb anyagok
IT café témák
PROHARDVER! témák
Mobilarena témák
Új hozzászólás Aktív témák
-
Alan
aktív tag
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
Aktív témák
Új prémium hirdetések
- XBOX ONE/PS4/PS5/XBOX SERIES/NINTENDO SWITCH konzolt vásárolnék!
- XBOX SERIES/PS4/PS5/XBOX ONE/NINTENDO SWITCH konzolt vásárolnék!
- PS5/PS4/XBOX ONE/XBOX SERIES/NINTENDO SWITCH konzolt vásárolnék!
- Új Dobozos Lenovo Ideapad Flex 5 x360 Érintős Ultrabook Óriás Tab 16" -40% Ryzen 5 5500U 16/512 QHD
- PS4/PS5/XBOX ONE/XBOX SERIES/NINTENDO SWITCH konzolt vásárolnék!