-
Fototrend

Ú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!
- !AKCIÓ+GARI! GAMER PC Intel Core i5-14400F/ASUS TUF Gaming B760M/RTX 4070 12GB/32 GB DDR5 5200 MHz
- Új állapotú Samsung Galaxy S23 Ultra garanciával
- Kingston FURY Beast 16GB (2x8GB) DDR4-3600 CL17
- Sapphire NITRO+ RX 6700 XT (192bit 12gb)
- Micron 32GB modulok egyben (1 x 32GB) 3200Mhz - több db elérhető!
- HIBÁTLAN iPhone 15 128GB Pink-1 ÉV GARANCIA - Kártyafüggetlen, MS4635
- iPhone 15 Plus 128GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS4271
- Apple iPhone 15 Pro / 128GB / Kártyafüggetlen / 12Hó Garancia / Akku: 86%
- Akciós kisWorkstation! Dell Precision 3560 i7-1165G7 4.7GHz / 32GB / 512GB / Quadro T500 2GB FHD 15"
- 1000 W HP DPS-800GB-A szerver tápegység
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest




köszönöm

