Hirdetés
- Luck Dragon: Asszociációs játék. :)
- Graphics: Telefonvásárlási kálváriám....avagy clickbait cím: Horror a hardveraprón
- Lalikiraly: Kinek milyen setupja van?
- Lalikiraly: Mercis kalandok - Huszonnyolcadik rész - Az újrakezdés
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- sziku69: Fűzzük össze a szavakat :)
- Parci: Milyen mosógépet vegyek?
- sziku69: Szólánc.
- bambano: Bambanő háza tája
- Elektromos rásegítésű kerékpárok
-
LOGOUT

Új hozzászólás Aktív témák
-
-
Knives94
csendes tag
Na igen, ilyennel én is próbálkoztam, ezt is kipróbáltam, csak az a baj, hogy nem úgy müködik mint a readkey. Ahogy eddig megfigyeltem, ha megnyomom a felfele nyilat nem küld 0-t el...:-|; gondolom ennek van 4 külön "index". Fogalmam nincs hol tudnék utánnanézni, a dokumentációban sem találtam, de a rendes gombok viszont ascii szerint vannak bene(a,b,c..enter,space stb.). Ezért mondtam, hogy a legtöbb.
Ha érthetetlenül fogalmaztam előzőleg, vagy most, elnézést, csak mostanában nem tudok figyelek annyira... -
Knives94
csendes tag
(fpc 2.4, vfgx unit link: http://www.venomsoftware.de)
hello,
Arról lenne szó, hogy ennek a unitnak van úgye egy sajátos gombhasználata, és azt, hogy melyik gomb azt egy tömb-ben tárolja (Ktaste). Ebben a legtöbb gomb az ascii szerint van benne, csak arra vagyok kiváncsi, hogy mi az indexe a nyilaknak, vagy 1 olyan linket szeretnék, ami minden indexének megadja, hogy melyik gomb. (index alatt értem ktaste[index]).pl: "ha megnyomják az entert" if Ktaste[13] then ...
köszönöm.
-
Knives94
csendes tag
Hello VGFX ismét:
miért van az h így lefut?
sz1:=0;
repeat
init_VW(eredmeny,szelesseg,magassag,true);
flip_VW(vwhatter.offset,eredmeny);if sz1<=294 then begin
kill_VW(ireteg);
kill_VW(ujreteg);
sz1:=sz1+1;init_VW(ujreteg,294,185,true);
scalesprite(reteg02,ujreteg);
init_VW(ireteg,sz1,185,true);
putsprite(ireteg,ujreteg,0,0);
putsprite(eredmeny,ireteg,0,0);
end
else putsprite(eredmeny,reteg02,0,0);
flipp_DD(eredmeny.VWoffset);
kill_VW(eredmeny);
getallmessages;
handleminimalized;
until not(applicationRunning) or m_l;És így nem:
sz1:=0;
repeat
init_VW(eredmeny,szelesseg,magassag,true);
flip_VW(vwhatter.offset,eredmeny);if sz1<=185 then begin
kill_VW(ireteg);
kill_VW(ujreteg);
sz1:=sz1+1;init_VW(ujreteg,294,185,true);
scalesprite(reteg02,ujreteg);
init_VW(ireteg,294,sz1,true);
putsprite(ireteg,ujreteg,0,0);
putsprite(eredmeny,ireteg,0,0);
end
else putsprite(eredmeny,reteg02,0,0);
flipp_DD(eredmeny.VWoffset);
kill_VW(eredmeny);
getallmessages;
handleminimalized;
until not(applicationRunning) or m_l;különbség annyi kéne legyen, hogy az elsőnél jobbról balra pixelsoronként jelenik meg a kép, a másodiknál fentről lefele, pixeloszloponként.
a hiba a 217es, azaz valami nincs tárgyalva. -
Knives94
csendes tag
thanks
-
Knives94
csendes tag
mit jelent a 217-es exitcod free pascalban?
-
Knives94
csendes tag
Még 1 problémám van a vgfx-ben, van pl ez a kép:
http://prohardver.hu/dl/upc/2010-01/07/248581_lydnu7ibig8uaox8_kerdes_m2.jpgHogyan lehetne megoldani,hogy a fekete ne legyen látható mikor elinditjuk a programot, tehát csak az a narancssárgás, sárga izé látszodjon.
-
Knives94
csendes tag
A nyilakkal mi legyen? 0-val kezdődnek és 77 stb, ezeket hol találom a KTaste táblázatban? mármint mien index alatt.
Akkor probáld meg mikor mented hogy azt írod alma.pas v valami akkor talán nem txtben menti el
-
Knives94
csendes tag
Szerintem készíts egy shot-ot totalcommanderben, az elhelyezkedésről.
Már csak azért mert a kódban nincs hiba

-
Knives94
csendes tag
Na igen és még valami, leírná valaki, hol találom meg: a KTaste tömbben meik index meik gombot jelenti (pl. KTaste[13]=enter)
-
Knives94
csendes tag
Köszönöm, mostmár jól megy, de ezt a pontos elérési utat ki lehet küszöbölni?
-
Knives94
csendes tag
megpróbálom, azt hiszem megy
köszönöm -
Knives94
csendes tag
Üdv mindenki,

Én egy olyan kérdéssel fordulok (azokhoz akik használnak/használtak vgfx uses-t), hogy amikor megprobálok képet betölteni egy Sprite-be akkor kidob és azt írja nem létezik a fájl, pedig létezik, ez nem tudom miért van így. Erre szeretnék megoldást ha valakinek van.
Egyébként ez van írva free pascalba:{$ASMMODE INTEL}
{$APPTYPE GUI}
{$MODE FPC}
{$RANGECHECKS OFF}
{$Q-}
{$S-}
{$D-}program proba;
USES Windows,
VGFX,
VGFX_2D,
VGFX_Sprites,
VGFX_Text,
VGFX_win32,
VGFX_Files,
VGFX_Errors,
BigFile2,
SysUtils;CONST alkalmazas_nev: PChar = 'VGFXdemo';
szelesseg: Longint = 800;
magassag: Longint = 600;
var
reteg01:VirtualWindow;
reteg02:VirtualWindow;
hatter:VirtualWindow;
eredmeny:VirtualWindow;
i:integer;BEGIN
Window_RegisterClass(WIN_Normal);
Window_Main_Handle:= Window_CreateClass(alkalmazas_nev,WIN_Normal);
CheckWMCreate;
Init_Graph(szelesseg,magassag);
Load_Pcx('Image1.pcx','',Sprite01);
END.
mivel már a betöltésnél hibát jelez nem folytattam, ám nem helyességben hanem fájlétezésben...pedig létezik...

Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Luck Dragon: Asszociációs játék. :)
- Filmvilág
- Crimson Desert
- nVidia tulajok OFF topikja
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- Xiaomi 13 - felnőni nehéz
- Azonnali informatikai kérdések órája
- AMD Navi Radeon™ RX 9xxx sorozat
- Kertészet, mezőgazdaság topik
- Kuponkunyeráló
- További aktív témák...
- ASUS Rog Ally Z1 Extreme, 2027.01.12-ig gyári garanciás, hálózati töltőjével, szilikon tokkal eladó!
- HP 250 G7,15.6",i5-1035G1,8GB DDR4,256GB SSD,WIN11
- Lenovo ThinkPad T480s,FHD,14",i5-7300U,8GB DDR4,256GB SSD,WIN11,TOUCH,jó akku
- Lenovo ThinkPad T480s,FHD,14,i5-7300U,8GB DDR4,256GB SSD,WIN11,TOUCH
- Ugreen Revodok Max Thunderbolt 4, dokkoló, port többszöröző állomás
- LG UltraGear 39GX90SA-W OLED Monitor! 3440x1440 / 240Hz / 0.03ms / FreeSync / G-Sync
- Apple iPhone 13 Pro Max / 128GB / Kártyafüggetlen / 12Hó Garancia / Akku:86%
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RTX 5060 Ti 8GB GAMER PC termékbeszámítással
- Samsung Galaxy A34 5GB 128GB/6GB/Számlával!
- BESZÁMÍTÁS! Lenovo LOQ 15AHP10 FHD GAMER notebook - Ryzen7 250 16GB DDR5 1TB SSD RTX 5060 8GB
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest




köszönöm

