Mouse Pointer? - Level Extreme

Plateforme Level Extreme

Abonnement

Profil corporatif

Produits & Services

Support

Légal

English

Mouse Pointer?

Message

27/01/2003 20:56:36

Gérald Santerre
Gerald Santerre enrg.
Mascouche, Québec, Canada

27/01/2003 12:50:27

Cesar Bonilla
Independient.
Tegucigalpa, Honduras

Information générale

Forum:

Visual FoxPro

Catégorie:

Autre

Titre:

Re: Mouse Pointer?

Divers

Thread ID:

00745855

Message ID:

00746064

Vues:

>Tks Jos, I'll try
>:)

This code create the hand cursor file in the default directory.

cBinFile=REPLICATE(CHR(0),2)+CHR(2)+CHR(0)+CHR(1)+CHR(0);
	+REPLICATE(CHR(32),2)+CHR(2)+CHR(0)+CHR(5)+REPLICATE(CHR(0),3);
	+"0"+CHR(1)+REPLICATE(CHR(0),2)+CHR(22)+REPLICATE(CHR(0),3);
	+CHR(40)+REPLICATE(CHR(0),3)+CHR(32)+REPLICATE(CHR(0),3);
	+"@"+REPLICATE(CHR(0),3)+CHR(1)+CHR(0)+CHR(1);
	+REPLICATE(CHR(0),6)+CHR(1)+REPLICATE(CHR(0),10);
	+CHR(2)+REPLICATE(CHR(0),11)+REPLICATE(CHR(255),3);
	+REPLICATE(CHR(0),45)+CHR(3)+CHR(252)+REPLICATE(CHR(0),2);
	+CHR(3)+CHR(252)+REPLICATE(CHR(0),2)+CHR(7)+CHR(254);
	+REPLICATE(CHR(0),2)+CHR(7)+CHR(254)+REPLICATE(CHR(0),2);
	+CHR(15)+CHR(254)+REPLICATE(CHR(0),2)+CHR(15)+CHR(255);
	+REPLICATE(CHR(0),2)+CHR(31)+CHR(255)+REPLICATE(CHR(0),2);
	+CHR(31)+CHR(255)+REPLICATE(CHR(0),2)+"7"+CHR(255);
	+REPLICATE(CHR(0),2)+"w"+CHR(255)+REPLICATE(CHR(0),2);
	+"g"+CHR(251)+REPLICATE(CHR(0),2)+CHR(6)+CHR(219);
	+REPLICATE(CHR(0),2)+CHR(6)+CHR(218)+REPLICATE(CHR(0),2);
	+CHR(6)+CHR(216)+REPLICATE(CHR(0),2)+CHR(6)+CHR(192);
	+REPLICATE(CHR(0),2)+CHR(6)+REPLICATE(CHR(0),3);
	+CHR(6)+REPLICATE(CHR(0),3)+CHR(6)+REPLICATE(CHR(0),3);
	+CHR(6)+REPLICATE(CHR(0),3)+CHR(6)+REPLICATE(CHR(0),7);
	+REPLICATE(CHR(255),40)+CHR(248)+CHR(1)+REPLICATE(CHR(255),2);
	+CHR(248)+CHR(1)+REPLICATE(CHR(255),2)+CHR(248)+CHR(1);
	+REPLICATE(CHR(255),2)+CHR(240)+CHR(0)+REPLICATE(CHR(255),2);
	+CHR(240)+CHR(0)+REPLICATE(CHR(255),2)+CHR(224)+CHR(0);
	+REPLICATE(CHR(255),2)+CHR(224)+CHR(0)+CHR(127)+CHR(255);
	+CHR(192)+CHR(0)+CHR(127)+CHR(255)+CHR(192)+CHR(0)+CHR(127);
	+CHR(255)+CHR(128)+CHR(0)+CHR(127)+CHR(255)+REPLICATE(CHR(0),2);
	+CHR(127)+CHR(255)+REPLICATE(CHR(0),2)+CHR(127)+CHR(255);
	+CHR(16)+CHR(0)+CHR(127)+CHR(255)+CHR(240)+CHR(0)+REPLICATE(CHR(255),2);
	+CHR(240)+CHR(1)+REPLICATE(CHR(255),2)+CHR(240)+CHR(7);
	+REPLICATE(CHR(255),2)+CHR(240)+"?"+REPLICATE(CHR(255),2);
	+CHR(240)+REPLICATE(CHR(255),3)+CHR(240)+REPLICATE(CHR(255),3);
	+CHR(240)+REPLICATE(CHR(255),3)+CHR(240)+REPLICATE(CHR(255),3);
	+CHR(249)+REPLICATE(CHR(255),3)
*Create the file on the disk
STRTOFILE(cBinFile,"link.cur")

:-)

If we exchange an apple, we both get an apple.
But if we exchange an idea, we both get 2 ideas, cool...

Gérald Santerre
Independant programmer - internet or intranet stuff - always looking for contracts big or small :)
http://www.siteintranet.qc.ca

Répondre

Fil

Voir

Click here to load this message in the networking platform