- E-book olvasók
- Computex 2024: az Akasa mágneses burkolatot ad, az SSD-t te rakhatod bele
- Dell notebook topic
- Apple notebookok
- Bluetooth hangszórók
- Ventilátorok - Ház, CPU (borda, radiátor), VGA
- Vezetékes FEJhallgatók
- Internet Rádió építése (hardver), és programozása
- Azonnali fotós kérdések órája
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
Hirdetés
-
Nem lesz idén Nothing Phone (3)
ma És az AI tehet róla.
-
Megpróbálják a spanyolok: megvédenék a gyerekeket a közösségi médiától
it Több intézkedést is hoznak, hogy óvják a gyerekeket a közösségi média káros hatásaitól.
-
Retro Kocka Kuckó 2024
lo Megint eltelt egy esztendő, ezért mögyünk retrokockulni Vásárhelyre! Gyere velünk gyereknapon!
Ú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
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Külpolitika
- Milyen légkondit a lakásba?
- Hivatalos képen a Samsung hajlíthatók
- Konteó topic
- Nők, nőügyek (18+)
- Kés topik
- Megérkezett a Google Pixel 7 és 7 Pro
- Skoda, VW, Audi, Seat topik
- Tombol az AI-láz: az NVIDIA már értékesebb, mint az Apple
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs