- Bambu Lab 3D nyomtatók
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Projektor topic
- Milyen belső merevlemezt vegyek?
- HiFi műszaki szemmel - sztereó hangrendszerek
- AMD vs. INTEL vs. NVIDIA
- Apple MacBook
- Elkezdtek szállingózni az Arctic P Pro sorozatú ventilátorai
- Megjött a Razer DeathAdder egerek legfrissebb nemzedéke
- Majdnem mindenki a TSMC 2 nm-es node-jára vágyik, de van egy nagy probléma vele
Új hozzászólás Aktív témák
-
vz12
tag
válasz
Tomi_78 #2092 üzenetére
Én úgy látom, hogy Lazarusban is úgy működik a CopyRect(), mint a Delphiben.
Feltettem egy Lazarust, és kipróbáltam.
Egy üres formra rátettem egy "TImage" elemet, és gyorsan írtam egy példakódot. Rajzoltam egy kört, és "CopyRect"-tel klónoztam:procedure TForm1.FormCreate(Sender: TObject);
var r1,r2:TRect;
begin
Image1.left:=0;
Image1.top:=0;
Image1.width:=200;
Image1.height:=100;;
Image1.Canvas.pen.color:=clWhite;
Image1.Canvas.brush.color:=clWhite;
Image1.Canvas.Rectangle(0,0,200,100);
Image1.Canvas.pen.color:=clRed;
Image1.Canvas.brush.color:=clYellow;
Image1.Canvas.Ellipse(0,0,100,100);
r1.left:=0; r1.top:=0; r1.right:=100; r1.bottom:=100;
r2.left:=100; r2.top:=0; r2.right:=200; r2.bottom:=100;
Image1.Canvas.CopyRect(r2,Image1.Canvas,r1);
end;Az eredmény 2 db kör egymás mellett, tehát működik.
A CopyRect() szintaktikája talán egy kicsit furcsa, de meg lehet szokni, és pontosan olyan, mint Delphi-ben, nem látok különbséget.
Új hozzászólás Aktív témák
- gban: Ingyen kellene, de tegnapra
- Samsung Galaxy S23 Ultra - non plus ultra
- Bambu Lab 3D nyomtatók
- eBay
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Projektor topic
- Azonnali mobilos kérdések órája
- Bővebb Google-támogatást kap sok Garmin óra
- Milyen belső merevlemezt vegyek?
- Poco X6 Pro - ötös alá
- További aktív témák...
- Turtle Beach Atlas Air - újszerű állapotban- eladó
- Montech King 95 Pro házikó egy halom ventivel, esetleg Thermalright AIO-val
- Csere is érdekel! Canon C100 super 35mm cinema kamera +Canon EF-S 18-135 obi +Power Zoom adapter
- HP OMEN 17" Gamer laptop , RTX 4060 , R5 8645HS , 16GB DDR5
- Eladó egyben 17 db HDD
- Huawei P20 Lite 64GB, Kártyafüggetlen, 1 Év Garanciával
- Tablet felvásárlás!! Apple iPad, iPad Mini, iPad Air, iPad Pro
- Apple iPhone 14 128GB, Kártyafüggetlen, 1 Év Garanciával
- Olcsó Gamer PC-Számítógép! R5 3600 / RTX 2060 / 16GB DDR4 / 512GB SSD
- BESZÁMÍTÁS! Lenovo ThinkPad X13 Gen 5 notebook - Ultra 5 135U16GB DDR5 512GB SSD Intel Graphics W11
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest