- Google Pixel topik
- Android alkalmazások - szoftver kibeszélő topik
- Touroll J1 - amikor az átlagos is elég
- iPhone topik
- Samsung Galaxy A54 - türelemjáték
- Szárba szökken a Galaxy Buds 3 Pro
- Samsung Galaxy A55 - új év, régi stratégia
- Élénk színekben várható a Galaxy Watch FE
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
Hirdetés
-
Computex 2024: szemrevaló madzag nélküli klaviatúrák a Varmilo portfóliójából
ph A cég igényesen megvalósított, háromféle kapcsolódási módot ismerő, hot swapes üdvöskéi közül az egyik hazai kiosztással is megvehető.
-
Az EU-s bejegyzésekkel tréningezi az AI-t a Meta
it A Meta közölte: az AI tréningezéséhez ezentúl az európai közösségi médiás bejegyzéseket is felhasználják.
-
Ilyen lesz a Metal Slug Tactics
gp A friss gameplay anyag mellé sajnos továbbra sem kaptuk meg, hogy a játék mikor érkezik az ősz folyamán.
Aktív témák
-
pendragonhu
csendes tag
Üdv
olyan gondom van hogy felezéses algoritmus szerint kellene vonalat kirajzoltatnom delphiben.
találtam is olyan függványt hogy writepixel de ezt kifügyülte a delphi.
hogy kell nekiesnem ennek a proginak?
esetleg tudnátok ide (pendragonhu@gmail.hu)küldeni egy elkészült progit?
(2 egér katt után, ami kijelöli a kezdő és végpontot, megrajzolja az egyenest)előre is kösz minden segítséget
-
kicsitomi88
őstag
-
pendragonhu
csendes tag
válasz kicsitomi88 #2 üzenetére
nekem olyan kéne ahol én tudok képpontonként rajzoltatni
-
pendragonhu
csendes tag
válasz pendragonhu #3 üzenetére
procedure MidpointLine(x0,y0,x1,y1,value : integer);
var
dx,dy,incrE,incrNE,d,x,y : integer;
begin
dx := x1-x0;
dy := y1-y0;
d := 2*dy-dx;
incrE := 2*dy;
incrNE := 2*(dy-dx);
x := x0;
y := y0;
WritePixel(x,y,value);
while x < x1 do
begin
if d <= 0 then
begin
d := d + incrE;
x := x + 1
end
else
begin
d := d + incrNE;
x := x + 1;
y := y + 1
end;
WritePixel(x,y,value)
end {while}
end; {MidpointLine}szal ezt kéne működésre bírni
-
kicsitomi88
őstag
válasz pendragonhu #4 üzenetére
Azt rtfm es a kereso melyik reszet nem erted?
Ha azt akarod, hogy a teljes progit megirjam akkor priviben kuldom a szamlaszamom.
Tudtam, h delphis totyikot is nyitni kellett volna ujat
[ Szerkesztve ]
90 87.5 87.8 87.5
-
pendragonhu
csendes tag
válasz kicsitomi88 #5 üzenetére
ott a gondom hogy a fenn lévő cuccok nekem nem működnek (delphi 6 alatt)
-
kicsitomi88
őstag
válasz pendragonhu #6 üzenetére
Akkor valamit rosszul csinalsz. Van valamilyen könyved?
90 87.5 87.8 87.5
-
pendragonhu
csendes tag
válasz kicsitomi88 #7 üzenetére
jugyus jegyzetem van csak.
próbálok aszerint haladni de sok mindent nem említ, amire már rájöttem:
canvasra kellene rajzolni és writepixel helyett form1.canvas.Pixels[ x, y ] := clBlack; utasítással működik, csak nem a megfelelő kezdő és végpontra rakja ki az egyenest
Aktív témák
- Google Pixel topik
- Politika
- Milyen cserélhető objektíves gépet?
- ASUS ROG Ally
- The Division 2 (PC, XO, PS4)
- Synology NAS
- Android alkalmazások - szoftver kibeszélő topik
- PayPal
- Debrecen és környéke adok-veszek-beszélgetek
- ZTE Router - Digi, Port továbbítási megoldhatatlan gondok...
- További aktív témák...
- Samsung Galaxy S23 Ultra 1TB + 12GB RAM Gyári független (Phantom Black) SM-S918 + 24 hó garancia
- Samsung Galaxy S23 Ultra 1TB + 12GB RAM Gyári független (Phantom Black) SM-S918 + 24 hó garancia
- LG 65" B3 OLED 4K HDR SMART 120HZ GAMING TV
- ThinkPad L380 fém fedlap - 13.3", I5-8350, 16 ddr4/ 512 NVMe, ujjl.olvasó, type-c +SZLA +GAR!
- Lenovo Thinkpad P70 , T470p
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen