- Ismét minimalista miditorony érkezett a Fractal Design műhelyéből
- Alakul a SpaceX Starlink európai ellenfele
- Digital Fingerprinting: Így buktat le a böngésződ a neten - Tech Percek #18
- Prezentálta PCI Express 6.0-s SSD-vezérlőjét a Silicon Motion
- Ha a fejlesztőkön múlik, akkor nem tér vissza a GPU-s PhysX
- Vezetékes FEJhallgatók
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- E-book olvasók
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Melyik tápegységet vegyem?
- A partnerektől függ, hogy lesz-e Arc csúcs-VGA az aktuális generációban
- Milyen cserélhető objektíves gépet?
- Apple MacBook
- Sony MILC fényképezőgépcsalád
- Azonnali alaplapos kérdések órája
Új hozzászólás Aktív témák
-
Tomi_78
aktív tag
Sziasztok!
Lazarusban írnék egy programot, amiben a főablak akkora, mint a képernyőfelbontás, és van egy kétszer akkora, görgethető pályakép. Ezen most egyelőre csak egy felirat van, amit a görgetés során szeretnék elmozgatni. Mozogni mozog is, de az előző helyén is megmarad, ami elég csúnyán néz ki. Az invalidate nem törli is a képernyőt egyben? Vagy mit kellene tennem a rendes kinézetű programhoz? Van külön képernyőtörlés grafikus módban is? Itt a kódom:
procedure TForm1.FormCreate(Sender: TObject);
begin
width:=Screen.width;
height:=Screen.height;
palyakep:=TBitmap.Create;
palyakep.SetSize(width*2,height*2);
palyakepx:=0;
palyakepy:=0;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
palyakep.Free;
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
);
begin
if Key=VK_LEFT then
begin
if (palyakepx+palyakep.canvas.width)-4>=width then
begin
dec(palyakepx,4);
invalidate;
end;
end;
if Key=VK_RIGHT then
begin
if palyakepx+4<=0 then
begin
inc(palyakepx,4);
invalidate;
end;
end;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
canvas.draw(palyakepx,palyakepy,palyakep);
palyakep.canvas.textout(palyakepx+(palyakep.canvas.width div 2),20,'Ez itt a közepe.');
end;
Új hozzászólás Aktív témák
- Több mint 500 millió dollárt spórolt az AI a Microsoftnak
- PlayStation 5
- Mr Dini: Mindent a StreamSharkról!
- A fociról könnyedén, egy baráti társaságban
- EAFC 25
- Vezetékes FEJhallgatók
- Samsung Galaxy Watch6 Classic - tekerd!
- Kínai és egyéb olcsó órák topikja
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- E-book olvasók
- További aktív témák...
- PocketBook Touch HD 3 (PB632) e-könyv olvasó, Spicy Copper színben, tokjában
- Legolcsóbban Bivaly érintőképernyős Dell 7430 (12.gen Core I7 16Gb 512Gb) laptopom eladó!!!
- Samsung Galaxy Watch Ultra + Trail Band
- BESZÁMÍTÁS! SAPPHIRE Pulse OC RX 9060 XT 16GB GDDR6 videokártya 27% áfa 3 év garancia
- PNY EPIC-X RGB RTX 5060Ti 16GB / Gigabyte EAGLE OC RTX 5070 12GB videokárty 3 év garancia 27% áfa
- Apple iPhone 14 128GB , Kártyafüggetlen
- Új! Számla + 1-3ÉV Gari! Áfás! Gamer PC - Számítógép! I5 14400F / RTX 3080 / 32GB DDR5 / 1TB SSD M.2
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB DDR5 RTX 4070Ti Super GAMER PC termékbeszámítással
- Samsung Galaxy S21 Ultra , 12GB , 128 GB , Kártyafüggetlen
- Légy a Gépek Mestere! Kamatmentes részletfizetési lehetőség!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest