pascal.103ivans,
-> #87, isekulovic* trubo.pascal negde pri kraju teme i Moj mikro 9/91.
─────
Je l' prosvir'o? :))) E, onda me je duboko razočarao! :))) I Borland i TP! :)))
Pozdrav,
Ivans.
P.S. Bez teških punjenja! :))))
pascal.104ssokorac,
-> #97, vitez.koja ─┼┤ podatke ;))) valjda 40:nesto. I nekom od fajlova u direktorijumima
─┼┤ sezama imas opis toga, ali u koje ne znamo ;)
40:17 :).
Ajde neka dobra duša da kaže koji fajl (ako ga ima) ima sve te adrese?
pascal.105vitez.koja,
-> #100, inesic#=> Pa ti si genije. Koga da ubijem za modulu-2 koja će da
#=> radi na mom XTu? Ne tražim ja pascal džabe. (Tri prog.
Pa nemoj onda da probiraš, da se nećkaš na inline i asm... Treba ti
jedan jedini bajt, bilo kao inline ili asm, da bi napisao program u
paskalu...
pascal.106ssokorac,
-> #102, ppekovic ─┼┤ 0418H: bit
Thanks. Je si li to izvukao iz nekog fajla ili...?
pascal.107mjova,
-> #106, ssokorac> ─┼┤ 0418H: bit
> Thanks. Je si li to izvukao iz nekog fajla ili...?
ma jok, zna napamet ;)
pascal.108edge,
-> #100, inesicYo! > Pa ti si genije. Koga da ubijem za modulu-2 koja će da radi
Nemoj da ubijaš imenjače:))))...imam ja MODULU 2 ako ti treba.
Ako si zainteresovan mail send edge.
Ica.
pascal.109dejanr,
-> #98, janko>> Za nas koji ne kapiraju, opiši u reč-dve kakve stvari...
>> Ukapirao sam da zove neke njegove junite da bi radio to što
>> radi, ali šta to radi i kako nisam.
>>
>> Dovoljno je da kažeš šta, kako nije bitno. ;)
Pa, problem je u tome što svaki element strukture mora da ima po
jedan AT deskriptor a to znači 64 K :( U rečenom primeru je, u
okviru procedure koja inicijalizuje objekat (TBigData.Init), sa
GLOBALALLOC alocirao prostor koji može da bude veći od 64K, ali
je veličina svakog recorda i dalje WORD tj. manja od 64 K.
Glavna "mutljavina" je u proceduri TBigData.GetSetData gde deli
broj sa 65536 da bi obračunao u kom je objektu pa onda odatle
uzima element prava_adresa mod 65536.
Inače, tu nisu izmislili ništa novo, istu tehniku koriste i u
(sada već starom) TP for Windows.
pascal.110dzakic,
-> #99, ssokorac> var p:žbyte;
> begin
> p:=ptr($40,$17);
> pž:=pž or 32
> end.
>
> Ovime ću uključiti Num Lock, ali tek kada neki taster bude pritisnut :(.
> Na koji način mogu 'simulirati' pritisnuti taster, ili postoji drugi način
> uključivanja num locka? (osim da pritisnem num lock;).
(odgovor je u potpunosti Vasin, ja ga samo prenosim ovde)
Stvar je istorijske prirode. Na tastaturi originalnog XT-a sav taj light
show nije postojao pa su se stanja lock-ova mogla menjati onako kako si
i ti hteo: jednostavnim upisom u BIOS promenljivu. Na AT-u se situacija
komplikuje: kakve fizičke veze ima sadržaj bilo koje memorijske lokacije
sa stanjem tamo nekih LED-ova na jednom periferijskom uređaju? Nikakve!
Znači, sem što ćeš poknuti šta ti treba na 0:417h, moraš sam i da
pališ/gasiš odgovarajuće diode. E, tu su se pisci (nekih?) AT BIOS-a
setili svih onih XT programa koji o ovome pojma nemaju, pa su se
pobrinuli da s vremena na vreme provere stanje lock-ova zadato u 0:417h
i dovedu stanje LED-ova u sklad sa time. Kod tebe to izgleda da obavlja
int 9, dok je to kod mene očigledno osmica jer nema čekanja na pritisak
tastera. Ipak, verovatno je bolje da sam obaviš taj posao:
----------------------------------------------------------------
program locks;
uses crt;
const light: array[0..3] of integer = ( 1, 4, 2, 4 );
var i: integer;
procedure setlocks(CNS: integer);
(*
Parametar CNS se zove tako zato sto njegovi bitovi 2, 1 i 0
predstavljaju stanje Caps, Num i Scroll locka tim redom
*)
var i: integer;
begin
CNS := CNS and 7;
mem[0:$417] := mem[0:$417] and $8F or CNS shl 4;
port[$60] := $ED;
delay(10);
port[$60] := CNS
end;
begin
i := 0;
repeat
setlocks(light[i]);
i := (i+1) mod 4;
delay(300)
until keypressed
end.
----------------------------------------------------------------
ps. Jel' će to novi Supi imati i grafiku? (Hi-Res 3x1 :)))
pascal.111ssokorac,
-> #110, dzakic ─┼┤ ps. Jel' će to novi Supi imati i grafiku? (Hi-Res 3x1 :)))
Naravno, šteta što ne mogu ovu četvrtu da ugasim, ali nju bar nemaju svi
(on-line). :)
pascal.112isekulovic,
-> #103, ivans>> Je l' prosvir'o? :))) E, onda me je duboko razočarao! :))) I Borland i
>> TP! :)))
:)))))))
Crnjak je što sam ja video da sam otkucao trubo, obrisao to ali
izgleda da sam ponovo napisao, odnosno da smo i ja i Borland zajedno
prosvirali. :))))))
pascal.113isekulovic,
-> #99, ssokorac>> :(. Na koji način mogu 'simulirati' pritisnuti taster, ili postoji
>> drugi način uključivanja num locka? (osim da pritisnem num lock;).
Pogledaj 'tpfast40' u nekom od direktorijuma. Ima to što ti treba i
još mnogo više.
pascal.114predragd,
Za rad sa bazama koristim neku TOPAZ v2.5 biblioteku koja radi
samo na TP 4.0 i 5.0, i datira još od '89. Inače je mračno dobra,
rutine su identične Kliperovim samo što su naravno brže. Postoji li
novija verzija, ili nešto slično.
Peđa.
pascal.115dejanr,
Ima li možda neko listing RTL-a za Turbo Pascal da pogleda kako
tačno radi generator slučajnih brojeva (ako je to tamo napisano)?
Ja sam nešto kao disasemblirao, i došao do sledećeg:
data_xx dw 8405h
seedlow equ ...
seedhi equ ...
random proc near
mov ax,ds:seedlow
mov bx,ds:seedhi
mov cx,ax
mul cs:data_xx
shl cx,1
shl cx,1
shl cx,1
add ch,cl
add dx,cx
add dx,bx
shl bx,1
shl bx,1
add dx,bx
add dh,bl
mov cl,5
shl bx,cl
add dh,bl
add ax,1
adc dx,0
mov ds:seedlow,ax
mov ds:seedhi,dx
retn
random endp
Seedlow i seedhi je "u zbiru" onaj longint koji predstavlja seed,
pominje se u Uputstvu. Ako se traži slučajan broj između 0 i NN,
onda on "vulgaris" nađe ostatak pri deljenju dobijenog sl. broja
sa NN. Nisam se nešto mnogo bavio testiranjem, ali mi, ako je ovo
sve, to ne izgleda kao neki naročito dobar generator slučajnih
brojeva :(
pascal.116almi,
Da li neko može da mi napiše funkciju tipa
Function Bajt:Boolean;
ASM
----
----
----
End;
Koja ispituje da li je u port[$03da] setovan neki bit.
Hvala
ALMI.
pascal.117ssokorac,
Juce sam ukucao unit mouse iz Računara 84, ali imam jedan problem :(.
Kada nacrtan nešto u boji, recimo, plavo, i onda predjem strelicom misa
preko toga to pobeli :(
Kako se to može izbeći? Thanks unapred.
í
Stasha
pascal.118dejanr,
-> #116, almi>> Da li neko može da mi napiše funkciju tipa
>> Function Bajt:Boolean;
>> ASM
>> ----
>> ----
>> ----
>> End;
>> Koja ispituje da li je u port[$03da] setovan neki bit.
Da li baš mora da je ASM? Ja bih je napisao nekako ovako:
function bajt: Boolean;
begin
bajt:=(port[$3DA] and $80)<>0
end;
$80 bi testiralo najviši bit, za neki drugi ti treba neka
druga maska. Takođe, nisam baš siguran da je ono <>0 nužno,
ali nek stoji, "leba ne jede".
pascal.119bdm.,
-> #117, ssokorac## Juce sam ukucao unit mouse iz Racunara 84, ali imam jedan problem :(.
## Kada nacrtan nesto u boji, recimo, plavo, i onda predjem strelicom misa
## preko toga to pobeli :(
Nisam gledao pomenu UNIT, ali mozda je greska u sledecem. Kad nesto
ispisujes na ekran moras udariti jedan MOUSE_Hide ili kako se vec
zove jer ako se pacov tu nadje onda dolazi do takvih problema.
Pokusaj MOUSE_Hide-Write-MOUSE_Show.
BDM.
pascal.120inesic,
-> #21, vilic> jezik da kupe knjigu "Programiranje na jeziku MODULA-2"
> od Niklaus Wirth-a (koji je i otac module". Knjiga je
> izdanje Mikro knjige.
čao mi je što mi ništa drugo ne pada na pamet da kažem osim
hvala za ovaj silni UL. (to je baš mogao i Moderator da kaže
ali neima veze) Biće mi od koristi, zanimljivo izgleda.
Uzgred, u vezi knjige: gde si je zadnji put video i pošto je?
Ivica
pascal.121zokalezic,
Hi
Da li je moguće napraviti rezidentni program koji će napr na
ALT nešto aktivirati neki drugi program.Konkretno da li je moguće
napraviti nešto ovako
Procedure Proba ; interrupt;
....
......
Exec ('drugiprog.exe');
.....
..
End;
pascal.122ssokorac,
-> #119, bdm. ─┼┤ Pokusaj MOUSE_Hide-Write-MOUSE_Show.
Znam za taj problem, pa sa tako i pisao. Nije u tome stvar :(.
pascal.123vitez.koja,
-> #117, ssokorac#=> Juce sam ukucao unit mouse iz Racunara 84, ali imam
#=> jedan problem :(. Kada nacrtan nesto u boji, recimo,
#=> plavo, i onda predjem strelicom misa preko toga to
#=> pobeli :(
Koristi onaj _mouse.tpu, on sasvim fino radi...
pascal.124vitez.koja,
-> #121, zokalezic#=> Da li je moguce napraviti rezidentni program koji ce
#=> napr na ALT nesto aktivirati neki drugi program.
Nije, bar ne kao sto si ti zamislio...
pascal.125skoprivica,
-> #21, vilic fala puno, meni direktno ne treba, ali eto sada "imam" i to,
nego samo jedna molba moderatoru, kada se ove arhive .arc
budu prenosile u dir. neka budu .arj (garantujem 30% usteda).
Aje... CTEBO.
pascal.126ssokorac,
-> #123, vitez.koja ─┼┤ Koristi onaj _mouse.tpu, on sasvim fino radi...
Rado, samo mi reci na koji _mouse.tpu misliš?
pascal.127bulaja,
-> #120, inesic│Zao mi je sto mi nista drugo ne pada na pamet da kazem osim hvala za
│ovaj silni UL. (to je bas mogao i Moderator da kaze ali neima veze)
└───
Sprema se i moderator da kaze, samo prvo da pokupim sve to :). Nadam se
da radi :), u kom slucaju ce ici u neki dir. HVALA Vilic-u na trudu.
pascal.129sbrk,
Pošto sam pitao već par ljudi ovde na Sezamu za ovaj problem, i nisam
dobio (zadovoljavajući) odgovor, reko' da ostavim pitanje ovde.
Tek sam instalirao TP 6.0 kod mene i instalacija je prošla bez ikakvih
prijava greški ili sličnih pojava, ali kad pomeram kursor u editoru
TP-a, neprestano se markira prostor (pravi se reversnim), kao da je
izabran blok, odnosno manifestacija je ista kao u Telemateovom editoru.
Dobio sam savet da skinem ANSI iz config-a, ali to nije jer ga i nemam
tamo :)
Zna li neko kako da ovo ispravim?
pascal.130kenza,
Hi! Zamolio bih nekog ko ima vremena i zeli da pomogne da se malo
pozabavi jednim problemom:
treba da napisemo program koji simulira chat izmedju 2
kompjutera preko kabla(najbolje bi bilo na COM1)
Nasao sa neke fj-e u starim racunarima koje to rade preko bios-a
ali to je dosta nepouzdano(na jednom kompu radi,na drugom ne :( )
Pozdrav,Kenza
pascal.131dejanr,
-> #129, sbrkPrvo, probaj da podigneš sistem sa "čistim DOS-om", dakle bez
drajvera, rezidentnih programa i tako dalje. Probaj radi li tada
normalno.
Ako to ne pomogne, instaliraj ponovo TP.
Ako ni to ne pomaže, verovatno imaš lošu verziju TP-a.
pascal.132snemcev,
-> #129, sbrkKad smo već kod problema sa TP 6.0
Kad ga startujem, miš (inverzni kursor) je tu, al čim otvorim
neki prozor i u njega učitam nešto, isti nestaje. Zašto, samo
Bog i Borland znaju. Ili možda još neko zna?
pascal.133stal,
-> #129, sbrk=> TP-a, neprestano se markira prostor (pravi se reversnim), kao da je
=> izabran blok, odnosno manifestacija je ista kao u Telemateovom
=> editoru. Dobio sam savet da skinem ANSI iz config-a, ali to nije jer
=> ga i nemam tamo :)
E pa, prvo stavi ansi pa ga onda skini...
Tako ces da proveris da li su u pravu ovi sto su ti predlozili ;)
pascal.134ssokorac,
-> #129, sbrk ─┼┤ izabran blok, odnosno manifestacija je ista kao u Telemateovom editoru.
Meni se isto dešavalo na školskom XT-u i rešavao sam pritiskom (češće
udarcem zbog stanja tastature) na oba shifta :). Probaj, možda i tu bude
radilo.
pascal.135vitez.koja,
-> #126, ssokorac#=> Rado, samo mi reci na koji _mouse.tpu mislis?
Ovaj...
pascal.136dejanr,
-> #132, snemcevProbaj da promeniš drajver za miša i uzmeš neki noviji.
pascal.137dejanr,
==========
pascal/turbo #4620, from terjem, 1385 chars, Mon Dec 7 03:01:46 1992
Comment(s).
----------
TITLE: SHR bug in BP 7.0
You should all know that there is a bug in all Intel and AMD 386/486 CPU's,
which gives wrong results if you try to use the SHRD opcode in 16-bit mode,
with a shift count > 16.
Unfortunately, this is used in BP 7.0's run-time library if you are running
on a 386 or better processor.
To work around this problem, you must make two small modifications to
\BP\RTL\SYS\LONG.ASM, the RTL file that implements the support functions
for LongInt arithmetic:
.....
LongShr:
CMP Test8086,2
JB @@1
.386
; BUGFIX! SHRD AX,DX,CL failes if CL > 16!
; SHRD AX,DX,CL
; SHR DX,CL
SHL EDX,16 ; New code
MOV DX,AX ;
SHR EDX,CL ;
MOV AX,DX ;
SHR EDX,16 ; New code
RETF
.8086
.....
LongShl:
CMP Test8086,2
JB @@1
.386
; BUGFIX!
; SHLD DX,AX,CL
; SHL AX,CL
SHL EDX,16 ; New code
MOV DX,AX ;
SHL EDX,CL ;
MOV AX,DX ;
SHR EDX,16 ; New code
RETF
.8086
......
I took part in the beta testing, but I found this problem after the end
of the test period.
After you make the modifications, just run this batch file to remake the
*.TPL files:
cd \bp\rtl
make
cd \bp\bin
copy *.tpl *.sav
copy ..\rtl\bin\*.tpl *.*
Terje
pascal.138vilic,
-> #120, inesic#> Uzgred, u vezi knjige: gde si je zadnji put video i pošto je?
Ja sam knjigu kupio u maju. Koštala je tadašnjih 750 din. Kupljena je
u Jugoslovenskoj knjizi. Ako je tamo nema, predlažem ti da pozoveš direktno
Mikro knjigu i da ih pitaš da li im je ostao koji primerak.
\bye
pascal.139vilic,
-> #125, skoprivica#> nego samo jedna molba moderatoru, kada se ove arhive .arc
#> budu prenosile u dir. neka budu .arj (garantujem 30% usteda).
Lično koristim .arj, ali sam ovaj put slao originalne arhive, onako kako
sam ih i ja dobio. Uzgred stacker mi za .arj prijavljuje da je stepen
kompresije 1.2:1 dok za .arc 1.0:1 Da li zna neko zašto?
\bye
pascal.140ssokorac,
-> #135, vitez.koja ─┼┤ Ovaj...
Hvala, ali imaš li neki veći? ;) (nije bilo ničega uz poruku:).
pascal.141drpr,
-> #138, vilic-> Ja sam knjigu kupio u maju. Koštala je tadašnjih 750 din.
-> Kupljena je u Jugoslovenskoj knjizi. Ako je tamo nema,
-> predlažem ti da pozoveš direktno
Ako se o O'brien-u radi ja sam je kupio pre dve nedelje za
15000 dinara u Jugoslovenskoj knjizi.
fr
pascal.142zddb,
-> #129, sbrk
>>prijava greški ili sličnih pojava, ali kad pomeram kursor u editoru
TP-a, neprestano se markira prostor (pravi se reversnim), kao da je<<
Nisi imao sreće da se obratiš pravom dijagnostičaru. Ko hoće da rješava
hardverske probleme izgleda da mora danas da dobija i nadahnuće od
"Svetog Duha". Ako imaš VGA karticu, onda sam siguran šta je u pitanju.
Moraš da staviš njen drajver koji zamjenjuje ANSI.SYS (EANSI.SYS ili
slično). Ovo rješenje važi i za druge probleme sa bojama. Na primjer,
kada promijenite karticu, vidite da onaj program što ga redovno
koristite ima drugačije boje. Javi ako uspješ!
pascal.143ssokorac,
-> #141, drpr ─┼┤ Ako se o O'brien-u radi ja sam je kupio pre dve nedelje za
─┼┤ 15000 dinara u Jugoslovenskoj knjizi.
Ne, radi se o Wirthovoj 'Moduli 2' :),a O'Brien sada košta u
jugoslovenskoj knjizi 12.000 :). Ne znam da l' je pojeftinilo il' šta...:)
pascal.144vitez.koja,
-> #135, vitez.koja#=> Ovaj...
Sorry :), zaboravio sam da zakacim sta treba :( Ali evo sad se
ispravljam
_.zippascal.145d.petrovic,
-> #144, vitez.kojaĂ> Sorry :), zaboravio sam da zakacim sta treba :( Ali evo sad se
Ă> ispravljam
Nemoj više tako da se ispravljaš ;))
pascal.146vitez.koja,
-> #145, d.petrovic#=> Nemoj vise tako da se ispravljas ;))
? ;>
pascal.147d.petrovic,
-> #146, vitez.kojaĂ># => Nemoj vise tako da se ispravljas ;))
Ă>
Ă> ? ;>
Pa opet nisi ništa zakačio :)
pascal.148ssokorac,
-> #144, vitez.koja ─┼┤ Sorry :), zaboravio sam da zakacim sta treba :( Ali evo sad se
─┼┤ ispravljam
Ne bih da sam dosadan, ali opet si zaboravio ;).
pascal.149vitez.koja,
-> #147, d.petrovic#=> Pa opet nisi nista zakacio :)
Je'l si siguran ? ;)))
pascal.150vitez.koja,
-> #148, ssokorac#=> Ne bih da sam dosadan, ali opet si zaboravio ;).
;) Ma nisam, samo sam zakacio malo kasnije... pogledaj opet u tu poruku
(na sezamu ne u soru)
pascal.151almi,
Evo jedna igre pisane u pascalu
pozdrav almi.
pascal.152ssokorac,
-> #150, vitez.koja ─┼┤ ;) Ma nisam, samo sam zakacio malo kasnije... pogledaj opet u tu poruku
─┼┤ (na sezamu ne u soru)
Ok, nadjoh, thanks, a sad reci - kako se to čudo koristi? :)
Probao sam i sa mis.visible:=true; i sa mis.show(true); i sa
mis.initialize(arrow); i sa mis.getmousedriver; ali ništa :(, neće da se
pokrene :(.
pascal.153ssokorac,
-> #151, almi A za koju karticu je pisano, za Tandy? ;) I na Herc i na CGA i na EGA
i na VGA kaže dva puta 'This mode is not supported by this card' :(
pascal.154almi,
-> #153, ssokoracStartuj sa yublue p1
p1= svga driver 0-SVG256
1-svg16
2-svg32k
3-twk256
4-twk16
pr.:yublue 1
pozdrav almi
ps.ako ima još nekih probleme reci mi pa ću ti poslati source da ga oprpobaš
pascal.155pedjak,
-> #152, ssokorac> Probao sam i sa mis.visible:=true; i sa mis.show(true); i sa
> mis.initialize(arrow); i sa mis.getmousedriver; ali ništa :(, neće da se
Khm. Izvin'te nisam od početka pratio tok rasprave, ali kol'ko vidim
treba vam neki dobar mouse unit.Imam unit koji vrlo lepo radi i u
grafičkom i u tekstualnom modu, podržava čak i grafički mod
HERCULESA, pa ako ima zainteresovanih mogu da UL.Izjasnite se..
pedja
pascal.156peca.st,
-> #155, pedjak!-> Khm. Izvin'te nisam od početka pratio tok rasprave, ali
!-> kol'ko vidim treba vam neki dobar mouse unit.Imam unit koji
!-> vrlo lepo radi i u grafičkom i u tekstualnom modu, podržava
!-> čak i grafički mod HERCULESA, pa ako ima zainteresovanih mogu
!-> da UL.Izjasnite se..
Otprilike i sa mnom je slicno, naime, nisam pratio od pocetka. Ako vam treba
dobar mouse unit, ja koristim onaj iz valjda septembarskih racunara. Haos je,
jednostavan je i radi. (samo na VGA) Ima sledece funkcije i procedure:
- showmousecursor
- hidemousecursor
- getmouSEX
- getmousey
- area(x1,y1,x2,y2)
Dakle ako hocete uploadovacu source!
P e C a
pascal.157inesic,
-> #155, pedjak> grafičkom i u tekstualnom modu, podržava čak i grafički
> mod HERCULESA, pa ako ima zainteresovanih mogu da
---------
TOOOO!
Pošalji, Pedja, nešto za nas smrtnike koji se još patimo sa
HGC.
inesic
pascal.158ssokorac,
-> #155, pedjak ─┼┤ HERCULESA, pa ako ima zainteresovanih mogu da UL.Izjasnite se..
Pošalji, što da ne :).
pascal.159ssokorac,
-> #154, almi ─┼┤ ps.ako ima još nekih probleme reci mi pa ću ti poslati source da ga
Fina igrica, baš lepa ideja. Samo još malo šminku da doteraš i pravila
napiši malo duža, da se razume o čemu se radi :). Sve sam ukapirao osim
zašto ponekad pred kraj partije kurzor ode u gornmji Ćošak i onda ja moram
da ubodem nekih -11 koje je inače komp trebao da uzme? :)
Kad se pomeram levo-desno, obriše se okvir polja preko koga sam prešao.
Nisam primetio ništa drugo da ne valja, samo, kao što već rekoh, malo šminke
dobro dodje :). Znaš već, neki naslovčić gore, kad kaže ko je dobio neka
kaže za koliko poena, pa onda upisivanje imena igrača...itd. Ah, da, bilo bi
lepo da crvene pruge idu, recimo, suprotno od plavih, ovako na mono monitoru
jedva razlikujem pozitivne od negativnih :).
pascal.160ssokorac,
-> #156, peca.st ─┼┤ Dakle ako hocete uploadovacu source!
Nema potrebe, već ga je neko poslao... Po mogućnostim je sigurno najbloji
onaj _.zip koji je poslao vitez.koja ali samo kad bi još rekao kako radi :).
Ima nekih 15-tak procedura, različite oblike strelice i sl/
pascal.161bdm.,
-> #155, pedjak## grafickom i u tekstualnom modu, podrzava cak i graficki mod
## HERCULESA, pa ako ima zainteresovanih mogu da UL.Izjasnite se..
Ako daje strelicu na HERCULES-u, obavezno.
BDM.
pascal.163ilazarevic,
-> #155, pedjak> grafičkom i u tekstualnom modu, podržava čak i grafički mod
> HERCULESA, pa ako ima zainteresovanih mogu da UL.Izjasnite se..
Bravo majstore! Pošalji ga čim prije :)
pascal.164skerl,
Bilo je dosta price o mouse unit-ima. Evo jednog, pa vidite da li
da ga upload-ujem.
Pozdrav,
Skerl.
--------
William C. Thompson (wct@po.cwru.edu)
KEYDEF - Definitions for keys in XCRT
MATH - Unit for several math functions
MISC - File exists, timer, and a few miscellaneous things
MOUSE - Mouse unit
STRINGS - Some string manipulation stuff
XCRT - Extension of CRT graphics, makes your life a lot easier
XGRAPH - Saving/recalling graphics images, cool drawing routines,
fractal line drawing, and more
Note: some of the routines may look very familiar - occasionally I
incorporate a few procedures and functions I find particularly useful
into my units.
----------
PROCEDURE InitMouse(VAR Buttons : word; VAR Err : boolean);
{ Initializes the mouse driver.
Call: nothing
Returns: Buttons = number of mouse buttons
Err = false if mouse support is available, true otherwise
Note: * After a call to this function the driver is initialized to the
following state:
- Mouse pointer at screen center and hidden.
- Display page is set to zero.
- Mouse pointer shape set to default arrow shape in graphics modes,
or reverse block in text modes.
- User mouse event handlers are disabled.
- Light pen emulation enabled.
- Mouse sensitivity set to default vales (see SetMouseSense)
- Pointer limits set to entire screen.
- Set mouseon to false
}
PROCEDURE Showmouse;
{ Displays the mouse pointer, and cancels any pointer exclusion area. }
PROCEDURE Hidemouse;
{ Removes the mouse pointer from the screen, but continues to track the
position of the mouse. }
FUNCTION ButtonPressed(Mask : word) : boolean;
{ Returns a true value if the specified button(s) is pressed.
Call: Mask = bit mask of desired button(s)
bit(s) Significance(if set)
0 left button
1 right button
2 center button
3-15 reserved(0)
: True is button is pressed, false otherwise.
Note: * The constants LeftButton, RightButton, CenterButton, and
AnyButton can be used for the bit masking. They equal 1, 2,
4, and 7 respectivly.
}
PROCEDURE GetMousePosition(VAR Buttons, Horiz, Vert : word);
{ Returns the current mouse button status and pointer position.
Call: nothing
Returns: Buttons = mouse button status
Horiz = horizontal (X) coordinate
Vert = vertical (Y) coordinate
Note: * Coordinates are in pixels regardless of the current display mode.
Position (0,0) is the upper left corner of the screen.
}
FUNCTION MouseIn(x1,y1,x2,y2: word):boolean;
{ Returns true if mouse is within rectangle with upper-left
corner (x1,y1) and lower-right corner (x2,y2).
}
PROCEDURE SetPointerPosition(Horiz, Vert : word);
{ Set the position of the pointer. The pointer is displayed in the new
position unless it has been hidden using HidePointer or it is an exclusion
area defined by SetPointerExcl.
Call: Horiz = horizontal (X) coordinate
Vert = vertical (Y) coordinate
Returns: nothing
Notes: * Coordinates are in pixels regardless of the current display mode.
Position (0,0) is the upper left corner of the screen.
* The position is adjusted if necessary to lie within the pointer
limits set by SetLimits.
}
PROCEDURE GetPressInfo(Button : word;
VAR Stat, Count, Horiz, Vert : word);
{ Returns the current status of all mouse buttons, and the number of presses
and position of the last press for a specifed mouse button since the last
call to this procedure for that button. The press counter for the button
is reset to zero.
Call: Button = button identifier
0 = left button
1 = right button
2 = center button
: Stat = button status
bit(s) Significance(if set)
0 left button is down
1 right button is down
2 center button is down
3-15 reserved(0)
Count = button press counter
Horiz = horizontal (X) coordinate of last button press
Vert = vertical (Y) coordinate of last button press
}
PROCEDURE GetReleaseInfo(Button : word;
VAR Stat, Count, Horiz, Vert : word);
{ Returns the current status of all mouse buttons, and the number of releases
and position of the last release for a specifed mouse button since the last
call to this procedure for that button. The release counter for the button
is reset to zero.
Call: Button = button identifier
0 = left button
1 = right button
2 = center button
Returns: Stat = button status
bit(s) Significance(if set)
0 left button is down
1 right button is down
2 center button is down
3-15 reserved(0)
Count = button release counter
Horiz = horizontal (X) coordinate of last button release
Vert = vertical (Y) coordinate of last button release
}
PROCEDURE SetLimits(HorMin, HorMax, VerMin, VerMax : word);
{ Limits the mouse pointer to stay within a certian area.
Call: HorMin = Minimum horizontal (X) coordinate
HorMax = Maximum horizontal (X) coordinate
VerMin = Minimum vertical (Y) coordinate
VerMax = Maximum vertical (Y) coordinate
Returns: nothing
Note: * If both HorMin and HorMax are zero then then the previous
horizontal limits remain unchanged; the same is true for
VerMin and VerMax.
}
PROCEDURE SetPointerShape(Horiz, Vert : word; Buffer : pointer);
{ Defines the shape, color, and hot spot of the pointer in graphics modes.
Call: Horiz = hot spot offset from the left
Vert = hot spot offset from the top
Buffer = pointer to mouse pointer image buffer
Returns: nothing
Note: * The pointer image buffer is 64 bytes long. The first 32 bytes
contain a bit mask which is ANDed with the screen image, and the
remaining 32 bytes are then XORed with the screen image.
* The hot spot is relative to the upper left corner of the pointer
image, and each offset must be in the range -16 to 16. In display
modes 4 and 5, the horizontal offset must be an even number.
}
PROCEDURE SetTextPointer(PtrTyp, AND_Str, XOR_End : word);
{ Defines the shape and attributes of the mouse pointer in text modes.
Call: PtrTyp = pointer type
0 = software cursor
1 = hardware cursor
AND_Str = AND mask value (if PtrTyp = 0) or starting line for
cursor (if PtrTyp = 1)
XOR_End = XOR mask value (if PtrTyp = 0) or ending line for
cursor (if PtrTyp = 1)
Returns: nothing
Notes: * If the software text cursor is selected, the masks in AND_Str and
XOR_End are mapped as follows:
Bit(s) Significance
0-7 character code
8-10 foreground color
11 intensity
12-14 background color
15 blink
For Example, the following call would yeild a software cursor
that inverts the foreground and background colors:
SetTextPointer(0, $77FF, $7700);
* When the hardware text cursor is selected, the values in AND_Str
and XOR_End are the starting and ending lines for the blinking
cursor generated by the video adapter. The maximum scan line
depends on the type of adapter and the current display mode.
}
PROCEDURE GetMotionCount(VAR Horiz, Vert : word);
{ Returns the net mouse displacement since the last call to this procedure.
The returned value is in mickeys; a positive number indicates travel to the
right or downwards, a negative number indicates travel to the left or
upwards. One mickey represents approximately 1/200 of an inch of mouse
movement.
Call: nothing
Returns: Horiz = horizontal (X) mickey count
Vert = vertical (Y) mickey count
}
PROCEDURE SetEventHandler(EventMask : word; Handler : pointer);
{ Sets the address and event mask for an application program's mouse event
handler. The handler is called by the mouse drvier whenever the specifed
mouse events occur.
Call: EventMask = event mask
Bit(s) Significance(if set)
0 mouse movement
1 left button pressed
2 left button released
3 right button pressed
4 right button released
5 center button pressed
6 center button released
7-15 reserved(0)
Handler = Pointer to the handler procedure
Returns: nothing
Notes: * The user-defined handler is entered from the mouse driver by a
far call with the registers set up as follows:
AX mouse event flags (see event mask)
BX button state
Bit(s) Significance(if set)
0 left button is down
1 right button is down
2 center button is down
3-15 reserved(0)
CX horizontal (X) pointer coordinate
DX vertical (Y) pointer coordinate
SI last raw vertical mickey count
DI last raw horizontal mickey count
DS mouse driver data segment
* If an event does not generate a call to the user-defined handler
because its bit is not set in the event mask, it is still reported
in the event falgs during calls to the handler for events which
are enabled.
}
PROCEDURE SetLightPen(On_Off : word);
{ Turns the light pen emulation by the mouse driver for IBM BASIC on or off.
A "pen down" condition is created by pressing the left and right mouse
buttons simultaneosly.
Call: On_Off = true to enable or false to disable emulation.
Returns: nothing
}
PROCEDURE SetPointerExcl(HorMin, VerMin, HorMax, VerMax : word);
{ Defines an exclusion area for the mouse pointer. When the mouse pointer
lies within the specified area, it is not displayed.
Call: HorMin = upper left X coordinate
VerMin = upper left Y coordinate
HorMax = lower right X coordinate
VerMax = lower right Y coordinate
Returns: nothing
Note: * The exclusion area is replaced by another call to this
procdure or cancelled by InitMouse and ShowPointer.
}
PROCEDURE SwapEventHandlers(VAR Mask : word; VAR Buffer : pointer);
{ Set the address and event mask for an application program's mouse event
handler and returns the address and event mask for the previous handler.
The newly installed handler is called by the mouse driver whenever the
specified mouse events occur.
Call: Mask = event mask
Bit(s) Significance(if set)
0 mouse movement
1 left button pressed
2 left button released
3 right button pressed
4 right button released
5 center button pressed
6 center button released
7-15 reserved(0)
Handler = Pointer to the handler procedure
Returns: Mask = previous event mask
Handler = pointer to previous handler
Notes: * The notes for SetEventHandler describe the information passed to
the user-defined event handler. Also see SetAltEventHandler.
* Calls to the event handler are disabled with InitMouse or by
setting an event mask of zero.
}
FUNCTION GetSaveStateSize : word;
{ Returns the size of the buffer required to store the current state of the
mouse driver.
Note: * also see SaveDrvrState and RestoreDrvrState.
}
PROCEDURE SaveDrvrState(Buffer : pointer);
{ Saves the mouse driver state in a user buffer. THe minimum size for the
buffer must be determined by GetSaveStateSize.
Call: Buffer = pointer to the user defined buffer.
Returns: nothing
Note: * Use this procedure before executing a child program (Exec), in
case the child aslo uses the mouse. After the Exec call, restore
the previous mouse driver state using RestoreDrvrState.
}
PROCEDURE RestoreDrvrState(Buffer : pointer);
{ Restores the mouse driver state from a user buffer.
Call: Buffer = pointer to the user defined buffer.
Returns: nothing
Note: * The mouse driver state must have been previously saved into the
same buffer with SaveDrvrState. The format of the data in the
buffer in undocumented and subject to change.
}
PROCEDURE SetAltEventHandler(Mask : word; Handler : pointer; VAR Err: boolean);
{ Sets the address and event mask for an application program's mouse event
handler. As many as three handlers with distinct event masks can be
registered with this function. When an event occurs that matches one of the
masks, the corresponding handler is called by the mouse driver.
Call: Mask = event mask
Bit(s) Significance(if set)
0 mouse movement
1 left button pressed
2 left button released
3 right button pressed
4 right button released
5 Shift key pressed during button press or release
6 Ctrl key pressed during button press or release
7 Alt key pressed during button press or release
8-15 reserved(0)
Handler = Pointer to the handler procedure
Returns: Err = false if successful, true otherwise
Notes: * When this procedure is called, at least one of the bits 5, 6, and
7 must be set in Mask.
* The user-defined handler is entered from the mouse driver by a
far call with the registers set up as follows:
AX mouse event flags (see event mask)
BX button state
Bit(s) Significance(if set)
0 left button is down
1 right button is down
2 center button is down
3-15 reserved(0)
CX horizontal (X) pointer coordinate
DX vertical (Y) pointer coordinate
SI last raw vertical mickey count
DI last raw horizontal mickey count
DS mouse driver data segment
* If an event does not generate a call to the user-defined handler
because its bit is not set in the event mask, it is still reported
in the event falgs during calls to the handler for events which
are enabled.
* Calls to the handler are disabled with InitMouse.
* Also see SetEventHandler and SwapEventHandlers.
}
PROCEDURE GetAltEventAdrs(VAR Mask : word; VAR Handler : pointer;
VAR Err : boolean);
{ Returns the address for the mouse event handler matching the specified
event mask.
Call: Mask = event mask
(see SetAltEventHandler)
Returns: Mask = event mask
Handler = pointer to the alternate event handler
Err = false if successful, true if not successful (no handler
installed or event mask does not match any installed
handler.
Note: * SetAltEventHandler allows as many as three event handler with
distinct event masks to be installed. This procedure can be
called to search for a handler that matches a specific event, so
that it can be replaced or disabled.
}
PROCEDURE SetMouseSense(Horiz, Vert, Double : word);
{ Set the number of mickeys per 8 pixels for horizontal and vertical mouse
motion and the threshold speed for doubleing pointer motion on the screen.
One mickey represents approximately 1/200 of an inch of mouse travel.
Call: Horiz = horizontal mickeys (1-32,767; default=8)
Vert = vertical mickeys (1-32,767; default=16)
Double = double speed threshold in mickeys/second (default=64);
Returns: nothing
}
PROCEDURE GetMouseSense(VAR Horiz, Vert, Double : word);
{ Return the current mickeys to pixels ratios for vertical and horizontal
screen movement and the threshold speed for doubling of pointer motion.
Call: nothing
Returns: Horiz = horizontal mickeys (1-32,767; default=8)
Vert = vertical mickeys (1-32,767; default=16)
Double = double speed threshold in mickeys/second (default=64);
}
PROCEDURE SetMouseIntr(Flags : word);
{ Sets the rate at which the mouse driver polls the status of the mouse.
Faster rates provide better resolution in graphics mode but may degrade
the performance of application programs.
Call: Flags = interrupt rate flags
Bit(s) Significance(if set)
0 no interrupts allowed
1 30 interrupts/second
2 50 interrupts/second
3 100 interrupts/second
4 200 interrupts/second
5-15 reserved(0)
Returns: nothing
Notes: * This procedure is applicable for the InPort Mouse only.
* In more than one bit is set in Flags, the lowest order bit
prevails.
}
PROCEDURE SetPointerPage(Page : word);
{ Selects the display page for the mouse pointer.
Call: Page = display page
Returns: nothing
Note: * The valid page numbers depend on the current display mode.
}
FUNCTION GetPointerPage : word;
{ Returns the current display page for the mouse pointer.
}
PROCEDURE DisableMouseDrvr(VAR Handler : pointer; VAR Err : boolean);
{ Disables the mouse driver and returns the address of the previous Int 33H
handler.
Call: nothing
Returns: Handler = pointer to previous Int 33H handler
Err = false if successful, true otherwise
Notes: * When this procedure is called, the mouse driver releases any
interrupt vectors it hase captured OTHER than Int 33H (which may
be Int 10H, Int 71H, and/or Int 74H). The application program
can COMPLETE the process of logically removing the mouse driver
by restoring the original contents of the Int 33H vector with
SetIntVec using the pointer returned by the procedure.
* Also see EnableMouseDrvr.
}
PROCEDURE EnableMouseDrvr;
{ Enables the mouse driver and the servicing fo mouse interrupts.
Call: nothing
Returns: nothing
Note: * Also see DisableMouseDrvr
}
PROCEDURE ResetMouseDrvr(VAR Buttons : word; VAR Err : boolean);
{ Resets the mouse driver and returns driver status. If the mouse pointer was
previously visible, is is removed trom the screen, and any presoiusly
installed user event handlers for mouse events are disabled.
Call: nothing
Returns: Buttons = number of mouse buttons
Err = false if mouse support is available, true otherwise
Note: * This procedure differ from InitMouse in that there is no
initialization of the mouse hardware.
}
PROCEDURE SetMouseLang(LangNumber : word);
{ Selects the language that will be used by the mouse driver for prompts and
error messages.
Call: LangNumber = language number
0 = English
1 = French
2 = Dutch
3 = German
4 = Swedish
5 = Finnish
6 = Spanish
7 = Portuguese
8 = Italian
Returns: nothing
Note: * This procedure is only functional in international versions of
the Microsoft Mouse drive.
}
FUNCTION GetMouseLang : word;
{ Returns the number of the language that is used by the mouse driver for
prompts and error messages.
Call: nothing
Returns: language number (see above)
Note: * This procedure is only functional in international versions of
the Microsoft Mouse drive.
}
PROCEDURE GetMouseInfo(VAR MajVer, MinVer, MouseType, IRQ : word);
{ Returns the mouse driver version number, mouse type, and the IRQ number of
the interrupt used by the mouse adapter.
Call: nothing
Returns: MajVer = major version number (6 for version 6.10, etc.)
MinVer = minor version number (10 for version 6.10, etc.)
MouseType = mouse type
1 = bus mouse
2 = serial mouse
3 = InPort mouse
4 = PS/2 mouse
5 = HP mouse
IRQ = IRQ number
0 = PS/2
2, 3, 4, 5, or 7 = IRQ number
}
pascal.165skerl,
Ovo je interface deo drugog mouse unit-a.
Da saljem i njega?
Pozdrav,
Skerl.
procedure initMouse; {when replacing mouse mode do that..!}
procedure showMouseCursor;
procedure hideMouseCursor;
function getMouseX : word;
function getMouseY : word;
function getButton(Button : Byte) : buttonState;
function buttonPressed : boolean;
procedure setMouseCursor(x,y : word);
function LastXPress(Button : Byte) : word;
function LastYPress(Button : Byte) : word;
function ButtonPresses(Button : Byte) : word; {from last last check}
function LastXRelease(Button : Byte) : word;
function LastYRelease(Button : Byte) : word;
function ButtonReleases(Button : Byte) : word; {from last last check}
procedure mouseBox(left,top,right,bottom : word); {limit mouse rectangle}
procedure graphicMouseCursor(xHotPoint,yHotPoint : byte; dataOfs : pointer);
procedure HardwareTextCursor(fromLine,toLine : byte);
procedure softwareTextCursor(screenMask,cursorMask : word);
function recentXmovement : direction;
function recentYmovement : direction;
procedure setArrowCursor;
procedure setWatchCursor;
procedure setUpArrowCursor;
procedure setLeftArrowCursor;
procedure setCheckMarkCursor;
procedure setPointingHandCursor;
procedure setDiagonalCrossCursor;
procedure setRectangularCrossCursor;
procedure setHourGlassCursor;
procedure setNewWatchCursor;
procedure setEventHandler(mask : word; handler : pointer);
procedure setDefaultHandler(mask : word);
procedure enableLightPenEmulation;
procedure disableLightPenEmulation;
procedure defineSensetivity(x,y : word);
procedure setHideCursorBox(left,top,right,bottom : word);
procedure defineDoubleSpeedTreshHold(treshHold : word);
procedure disableTreshHold;
procedure defaultTreshHold;
procedure setMouseGraph;
procedure resetMouseGraph;
procedure waitForRelease(timeOut : word);
procedure swapEventHandler(mask : word; handler : pointer);
{ return old in lastMask and lastHandler }
function getMouseSaveStateSize : word;
procedure interceptMouse; { get mouse from interrupted program, and stop it ..
}
procedure restoreMouse;
(* mouseLib - Release 2
*)
(*
*)
(* because of quirks in hercules graphic mode that is not detectable *)
(* by the mouse driver we have to know when we initMouse if we want *)
(* to check for graphic mode or not, if we do we must perform a *)
(* setMouseGraph before initGraph, to initGraph in text mode we must *)
(* resetMouseGraph before.. , if these calling conventions are not *)
(* taken we might have problems in hercules cards! *)
(*
*)
(* each call to hideMouseCursor must be balanced by a matching call *)
(* to showMouseCursor, 2 calls to hideMou.. and only 1 to showM.. *)
(* will not show the mouse cursor on the screen!
*)
(******************************************************************************
* MouseLib *
* second release, written by Loewy Ron, AUG 90 *
* Third release, TP6.0 asm support, LR Jan 91. *
* Fourth release, added functions, LR May 91. *
* Fifth release, added intercept, release functions, Jun 91. *
******************************************************************************)
mouseLib documentation file : mouseLib.doc, rel 5.0.
last update : Jun. 12, 1991, LR.
Whats new
---------
- Added interceptMouse, restoreMouse procedures for TSR deactivation ..
- Added setNewWatchCursor procedure.
Introduction
------------
mouseLib is a Turbo-Pascal 6.0 mouse support unit, designed to provide
event driven mouse support, using a standard (default) event handling
mechanism. The unit includes all of the normal mouse library functions,
(show, hide cursor, define tresh-hold, detect mouse etc..). mouseLib was
used for over a year now, with many programs and products written by myself,
and other programmers. The public-domain or shareware products that use this
library, and that were released by me up to May. 91. include :
app17 - menu application, txs12 - text search program, 3D110 & WWToolKit -
(with Ishai Ben-Aroya), These programs use both text and graphic displays,
the graphic applications use normal BGI.
Technical documantation
-----------------------
I will not give any technical documentation but the supplied source code,
I have tried to document the code as good as I could, I used the best names
I could think of to functions and procedures, and added explanations where-
ever I felt the code was not trivial. If you intend to use this unit, you
will have to look into the source code. 2 points I would like to mention -
a.> use the setMouseGraph and resetMouseGraph before using the initMouse
procedure, to choose if you want text or graphics mouse support.
b.> look at the defaultHandler assembler routine, this is the heart of my
event driven applications. (use setDefaultHandler to ...).
Warranty
--------
There is no warranty what so ever, The unit and docs. are supplied as is,
The author (Loewy Ron), is not, and will not be responsible for any damages,
lost profits, or inconveniences caused by the use, or inability to
use this unit. The use of the unit is at your own risk. By using the unit
you agree to this.
General
-------
mouseLib is copyrighted by myself, (c) Loewy Ron, 1990, 1991. I release
the source, and it can be used for non-commercial programs, If you find
mouseLib worthy, and plan to use it in a commercial product - please
register mouseLib. (An order form is supplied - ORDER.TXT)
No one but myself, is allowed to charge money for mouseLib,
except then minimal distribution fees.
What mouseLib lacks
-------------------
There is no TSR support, because my Genius Mouse reference did not mention
INT 033H functions 014h, 015h etc.., I will sit down and write support for
these functions some time, unless some one else will be kind enough to do
that,
and mail me the update. The new release adds functions to save and restore
the mouse driver state (release 4) (functions 14 & 15), but there is still no
tsr support (that will probably need func. 17 & 18 hex.)
Contact
-------
You can contact me on what-ever you want to at my address at :
Loewy Ron, Loewy Ron
9 Haneveem st. Or 20 Smolanskin st.
Herzeliya, 46465, Haifa, 34366,
Israel. Israel.
Credits
-------
Turbo-Pascal is a copyright of Borland International. (I Think just the
BASM is worthy of the upgrade to TP6.0).
Genius Mouse is a trademark of KUN YING ENTERPRISE CO.
pascal.166skerl,
===============================
8.17 PC.PROG.2:cpp
peca.st, 24.12.Cet 00:59, 139 chr
---------------------------------------------------------
Ako neko ima i ako ga ne mrzi molio bih da posalje source kod za manipulaciju
*.gif, *.pcx, *.tif formata. Thanks!
CU P e C a
----------------------------------------------- 8.17 ---
Evo source za tp 6.0
Nadam se da ce pomoci.
Pozdrav,
Skerl.
- A note on the PCX.DOC file -
Upon writing the documentation for the objects contained in the PCX unit,
I am attempting to use the format Borland has established in their Turbo
Vision manual. I think it would be nice if all authors maintained consistancy
and since Borland has established presedence, I copied their style. I
sincerely hope Borland is not offended. What does everyone else say to this
style of documentation?
Files contained in this archive
PCX.TPU - Turbo Pascal v6.0 compiled PCX unit
EGA.TPU - EGA functions needed by PCX.TPU
PCX.INT - Interface section of PCX unit
EGA.INT - Interface section of EGA unit
PCX.DOC - PCX unit object documentaion
EGA.DOC - EGA unit documentation
RUNPCX.PAS - Sample program for PCX unit Delete Ok
PCX_READ.ME - This file Delete Ok
SHAREWRE.TXT - A note on shareware, S.O.P Delete Ok
TP208.PCX - Sample PCX file for use with RUNPCX.PAS Delete Ok
CHESS.PCX - Sample PCX file for use with RUNPCX.PAS Delete Ok
------------
11 files
If you wish the source code for these programs/units
please continue reading . . .
- Please read SHAREWRE.TXT -
As the author of these programs/units, I have spend considerable time in
their developement. In an effort to be fair with the times as well as
promote communications with other programmers, I am requesting a $1.00 reg-
istration fee, plus $1.00 for diskette and handling. ( $2.00 total )
This registration fee will provide you with all source code for the
programs/units included in this file. Additionally I will include a couple
of free reference documents explaining the PCX file format and encoding/
decoding method. It will also entitle you to updates when and if they occur
as well as telephone support ( I would be glad to hear from you ). I have
thoroughly tested these programs/units before releasing and you should find
them bug free, however . . .
Also, ( I have to say this, argg! ) as with all shareware or freeware, the
programs are for use as is. You may use them, distribute them, etc. but the
author is not responsible for any problems incurred from their use, in part
or in whole. If you distribute them please leave the contents as received.
Thank You - your cooperation is appreciated.
Send Registration to: Mark D. Rafn [71530,2307]
Rt1 Box138A
Two Harbors, MN 55616
USA
(218) 834-5154
pascal.168dejanr,
-> #166, skerl>> I am requesting a $1.00 registration fee, plus $1.00 for diskette
>> and handling. ( $2.00 total ) This registration fee will provide
>> you with all source code for the programs/units included in this file.
Nazdravlje :( Ovu sumu bi (čak :) i svako od nas rado dao, ali kako
da pošaljemo $2 u USA :(
pascal.169djelovic,
Ima li Pascal programera zainteresovanih da nauče C na lak način? Naime,
razmišljam da napišem jedan tekst "Sa Pascala na C u par koraka", ali ne znam
da li to ljude zanima. Komments?
pascal.170paki,
-> #169, djelovic=> Ima li Pascal programera zainteresovanih da nauče C na lak
=> način? Naime, razmišljam da napišem jedan tekst "Sa Pascala na
=> C u par koraka", ali ne znam da li to ljude zanima. Komments?
Zanima, kako da ne zanima! Ja znam Pascal osrednje (žalosno :) a hteo
bih da probam i C, jer je u nekim stvarima bolji, ali me hvata jeza
od pogleda na one silne nerazumljive izraze, tako svojstvene C-u...
Daklem, piši što pre, please :))
pascal.171pedjak,
-> #158, ssokorac> Pošalji, što da ne :).
Evo mouse unita. Autor je moja malenkost pa ako budete imali neke
probleme samo vičite... :)
mouse.arjpascal.172kenza,
-> #169, djelovic [;> Ima li Pascal programera zainteresovanih da nauce C na lak nacin? Naime,
Of course da ima !To bi bilo bas zanimljivo :)
Najzad da vidim sta znace oni icludeovi i ostali....
pascal.174peca.st,
-> #166, skerl!-> Evo source za tp 6.0
!-> Nadam se da ce pomoci.
!-> Pozdrav,
!-> Skerl.
To covece.... Ja napisao poruke u teme c i cpp iako prvenstveno radim sa TP-om
jer nisam verovao da je neko to pisao i za TP. Dakle hvala ti ki bratu!!!!
CU P e C a
pascal.175peca.st,
-> #169, djelovic!-> Ima li Pascal programera zainteresovanih da nauče C na lak
!-> način? Naime, razmišljam da napišem jedan tekst "Sa Pascala
!-> na C u par koraka", ali ne znam da li to ljude zanima.
!-> Komments?
Naravno, svakako, kako da ne... A jel' ce biti objavljeno u Racunarima???
P e C a
pascal.176kuki,
-> #169, djelovic> Ima li Pascal programera zainteresovanih da nauče C na lak način? Naime,
> razmišljam da napišem jedan tekst "Sa Pascala na C u par koraka", ali ne
> znam da li to ljude zanima. Komments?
Zanima, naravno :) Thanks in advance
Pozdrav, Vladimir
pascal.177skerl,
Evo stize prvi mouse unit.
Pozdrav,
Skerl.
pascal.178skerl,
Evo ga i drugi.
Pozdrav,
Skerl.
pascal.179nikolas,
-> #169, djelovic> Ima li Pascal programera zainteresovanih da nauče C na lak
> način? Naime, razmišljam da napišem jedan tekst "Sa Pascala na
> C u par koraka", ali ne znam da li to ljude zanima. Komments?
Ima, piši!
:)))))))
pascal.180mjova,
-> #168, dejanr> Nazdravlje :( Ovu sumu bi (čak :) i svako od nas rado dao,
> ali kako da pošaljemo $2 u USA :(
lepo, platiš $50 kao poštarinu ;)
pascal.181skerl,
-> #174, peca.st> Dakle hvala ti ki bratu!!!!
Nema na cemu.
Skerl.
pascal.182peca.st,
Imam jedno pitanjce, vezano za grafiku u TP-u:
Ima li neko neke *.chr fontove za Turbo Pascal osim ona cetiri sto se dobijaju
uz njega??? Ima li neko neki font editor ili nesto slicno za editovanje tih
fontova???
Ako imate posaljite, pliiiiiz!!!!!!!!!!!!
Tenks.
CU P e C a
pascal.183peca.st,
Kad sam vec kod fontova....
Nabavio sam (mada je to verovatno vec bilo na Sezamu) neke cirilicne fontove
za TP. Fontovi nisu *.chr, ima ih cetiri (normal, bold, italic, underlined),
ali na zalost fontovi nisu vektorski vec bit-mapirani tako da imate samo jednu
velicinu slova. Ne koriste se, naravno, graph.tpu procedure vec postoje
njegove. Slova su lepa, ali kazem steta...
So :))), ako nekome to treba neka kaze, pa da ih uploadujem!!!
CU P e C a
pascal.184pedjak,
Evo mouse unita. Autor sam ja pa ako budete imali nekih problema
slobodno vičite...
mouse.arjpascal.185oki.,
-> #182, peca.st>> Ima li neko neke *.chr fontove za Turbo Pascal osim ona cetiri sto se
>> dobijaju uz njega??? Ima li neko neki font editor ili nesto slicno za
>> editovanje tih fontova???
Bio je na Sezamu program Font Editor (direktorijum, ili poruka?) kojim
je moguće editovati/kreirati fontove .CHR za pascal (program ne radi na
herkulesu). Dakle, ako nekom treba, neka javi pa ću ga okačiti.
Pozdrav, 3OPAH.
pascal.186ilazarevic,
-> #165, skerl> Ovo je interface deo drugog mouse unit-a.
> Da saljem i njega?
Ma okači sve đuture, neće biti velike štete (može samo da nam koristi :)
pascal.187ilazarevic,
-> #169, djelovic> Ima li Pascal programera zainteresovanih da nauče C na lak način? Naime,
> razmišljam da napišem jedan tekst "Sa Pascala na C u par koraka", ali ne
> znam da li to ljude zanima. Komments?
Naravno da sam zainteresovan :) To je ono što sam odavno tražio, ali nikako
da nađem. Dakle, kupujem taj broj Računara...
pascal.188vitez.koja,
-> #152, ssokorac#=> Ok, nadjoh, thanks, a sad reci - kako se to cudo
#=> koristi? :)
Veruj mi, ne secam se :) Ali mogu da pogledam, ili jos bolje poslacu
ovde ili tebi u mail program za crtanje koji sam ja pravio, i koji (fala
jasno) koristi iskljucivo misa. Cini mi se da prvo ide
Reset(boolean,byte)... Kad radis nesto na ekranu moras da iskljucis
misa, pa kad zavrsis da ga opet ukljucis (show). ovo za graficki mod.
Probao sam i sa mis.visible:=true
Crni sinko... Pa prvo pravilo lepog ponasanja je da ne diras promenljive
u objektu, narocito kad postoji procedura koja to radi za tebe ;)
pascal.189vvelisavljev,
-> #169, djelovic> Ima li Pascal programera zainteresovanih da nauče C na lak način?
IMA!!!
pascal.190peca.st,
-> #181, skerl!->> Dakle hvala ti ki bratu!!!!
!->
!-> Nema na cemu.
!-> Skerl.
Inace, probao sam onaj tppcx i sve super radi. Jedina je mana sto pri
ucitavanju slike ne mozes da navedes na kojoj gornjoj levoj koordinati ce
se ona nalaziti. Ako moze i to opisi kako!
CU P e C a
pascal.191bearboy,
-> #169, djelovic║ Ima li Pascal programera zainteresovanih da nauče C na lak način? Naime,
║ razmišljam da napišem jedan tekst "Sa Pascala na C u par koraka", ali ne znam
║ da li to ljude zanima. Komments?
To, majstore !
pascal.192dejanr,
Da li je neko probao sve (ili veći deo) mouse unit-a koji su proteklih dana
pristigli? Kakva su iskustva? Može li se neki preporučiti kao "ultimate
solution"?
pascal.193dejanr,
-> #185, oki.>> Bio je na Sezamu program Font Editor (direktorijum, ili poruka?) kojim
>> je moguće editovati/kreirati fontove .CHR za pascal
Vidim da ima jedan takav u prethodnoj konferenciji PC.PROG, uz poruku
4.343. Poslao ga je predragd.
pascal.194ssokorac,
-> #182, peca.st ─┼┤ Ima li neko neke *.chr fontove za Turbo Pascal osim ona cetiri sto se
Pogledaj staru PC.PROG konferenciju poruke 4.729 i ranije...
pascal.195ssokorac,
-> #188, vitez.koja ─┼┤ ovde ili tebi u mail program za crtanje koji sam ja pravio, i koji (fala
Šalji...ovo neće nikako :(.
─┼┤ Crni sinko... Pa prvo pravilo lepog ponasanja je da ne diras promenljive
─┼┤ u objektu, narocito kad postoji procedura koja to radi za tebe ;)
Ma, znam ja da postoji, ali kako ona nije uradila ništa pao sam u očaj i
probao tako :).
pascal.196ssokorac,
-> #192, dejanr ─┼┤ pristigli? Kakva su iskustva? Može li se neki preporučiti kao "ultimate
─┼┤ solution"?
Ona dva koja je poslao skerl su sigurno namoćniji.
pascal.197peca.st,
-> #185, oki.!-> Bio je na Sezamu program Font Editor (direktorijum, ili
!-> poruka?) kojim je moguće editovati/kreirati fontove .CHR za
!-> pascal (program ne radi na herkulesu). Dakle, ako nekom
!-> treba, neka javi pa ću ga okačiti.
!->
!-> Pozdrav, 3OPAH.
Boli me uvo sto ne radi na Hercu jer ja imam VGA. :))))))))))))))
So, ti ga obavezno okaci pa da ga uzmem.
CU P e C a
pascal.198zokalezic,
Help
Ako li zna neko šta mu dođe DOS Error #8
Pozdrav
Zoran
pascal.199skerl,
Evo jednog unit-a koji radi sa sprajtovima.
unit Sprites;
{ Basically a simple and effective spriteengine for use with Turbo }
{ Pascal 6.0. (Does not require the GRAPH unit..) }
{ }
{ Designed for use with MCGA, VGA and compatibles. Works in mode }
{ mode $13 (320x200 with 256 simultaneously colours. }
{ }
{ Written by: }
{ Marius Kjeldahl }
{ Stud. post 104 }
{ N-7034 Trondheim - NTH }
{ Norway }
{ Ph. +47 7 58 91 11 }
{ e-mail: mariusk@lise.unit.no }
{ (at NTH - Norwegian Institute of Technology ) }
{ (dept. of Business and Information Technolgy) }
{ }
{ These routines are being distributed as shareware. To be used in,}
{ or as part of any commercial product, you have to become a }
{ registered user. As a registered user you will receive upgrades }
{ and rights to distribute these routines with your products. }
{ To become a registered user, you will have to send a letter with }
{ who you are and what product(s) will use these routines and }
{ make US$39 payable to the author (cheque or money..). }
{ }
{ }
{ If you have any suggestions or comments please do not hesitate }
{ to contact me. Have fun... }
{ }
sprites.zippascal.200mirossi,
-> #182, peca.st=> Ima li neko neke *.chr fontove za Turbo Pascal osim ona cetiri sto
=> se dobijaju uz njega??? Ima li neko neki font editor ili nesto
=> slicno za editovanje tih fontova???
Ja imam Borlandov "stari" Quattro 2.0 i uz njega priložena
4 vektorska fonta u *.chr datotekama.
Poslao bih ti ali se bojim da se to kosi sa "SEZAMOVIM ZAKONIKOM"
Pozdrav Miroslav!
pascal.201peca.st,
-> #193, dejanr!->>> Bio je na Sezamu program Font Editor (direktorijum, ili
!->>> poruka?) kojim je moguće editovati/kreirati fontove .CHR za
!-> pascal
!->
!-> Vidim da ima jedan takav u prethodnoj konferenciji PC.PROG,
!-> uz poruku 4.343. Poslao ga je predragd.
Jel' ima taj font editor mogucnost konverizije iz nekog drugog tipa fonta u
*.chr font?
CU P e C a
pascal.202pedjak,
-> #182, peca.st> Ima li neko neke *.chr fontove za Turbo Pascal osim ona cetiri sto se
> dobijaju uz njega??? Ima li neko neki font editor ili nesto slicno za
> editovanje tih
Hm, ako imaš u blizini Quatro Pro uzmi od njega fontove,ima ih
dosta a istog su formata kao i oni za TP. Što se tiče editora za
fontove on postoji,čak sam ga i jedno vreme imao,ali od njega nema
nikakve vajde ako nemaš EGA ili nešto jače...
pascal.203ppekovic,
-> #200, mirossi>> Poslao bih ti ali se bojim da se to kosi sa "SEZAMOVIM ZAKONIKOM"
Kosi!
Paya
pascal.204ssokorac,
-> #196, ssokorac ─┼┤ Ona dva koja je poslao skerl su sigurno namoćniji.
Sad sam ih i probao. Prvi je nekako lepši, ali i drugi ima neke svoje
prednosti. AKo treba izabrati jednog onda svakako prvi (wcunits) jer tu ima
i još mnogo drugoh stvari osim miša. Još jedan primerak za budući pascal
direktorijum :), zajednom sa onim chr editorom iz starog pc.proga.
pascal.205ssokorac,
-> #197, peca.st ─┼┤ So, ti ga obavezno okaci pa da ga uzmem.
Pa, imaš već jedan u starom PC.PROG-u, 4.343.
(Sad će da pita kako da udje u stari pc.prog;).
pascal.207peca.st,
-> #202, pedjak!-> Hm, ako imaš u blizini Quatro Pro uzmi od njega fontove,ima
!-> ih dosta a istog su formata kao i oni za TP. Što se tiče
!-> editora za fontove on postoji,čak sam ga i jedno vreme
!-> imao,ali od njega nema nikakve vajde ako nemaš EGA ili nešto
!-> jače...
QP ne koristim pa bi ti bas mogao da okacis te fontove.
Sto se tice tog editora skinuo sam ga pre 5 minuta, a srecom imam VGA :))))
U vezi toga da li ce fontovi koje tako kreiram raditi na Herc-u???
CU P e C a