Feladó: Cser  Tamás >
2001.10.30. 03:31:05 +1h
Címzett: 
Téma: Re:Clipper IDE--- coder#1335
________________________________________________________________________
magánba írt levelem a címedrńl visszapattant, így a listára küldöm,
bocsi

Feladó: Cser  Tamás >
2001.10.29. 20:27:29 +1h
Címzett:  
Téma: re: clipper IDE
______________________________________________________________________
Volt egy kollégám a Neumann Számtech Szakközépben, nagy valószínüséggel
most is ott lehet

Mezö György   lehet a címe (5 éve még ez volt)

Ö ortodox pascalos, és TP 7.0 IDE környezetet megerńszakolta Clipperhez
(láttam, hogy egészen jól)
TP indítás, prg kiterjesztéssel forrás írása, F9 compile, F8 trace, stb
 ( azt hiszem, hogy a Clipper .NTX indexdriverét nem modelezte még le
pascalban, de az Angster-féle 2 kötetes TP6 feladatgyüjteményben a DBF adatfájl
ok
pascalos buzerálása mintafeladat szinten megvan. )

Mottó:" ha egy Trabanra tetöcsomagtartót szerelsz, az nem lesz ettöl
teherautó emulátor!")

Az a baj szerintem, hogy sokan inkább megírnák pascalban a clipper
emulációt, csak
másik nyelvet ne kelljen megtanulni, mégha bele is döglenek a munkába.
Elvetemült példaként láttam,  pl. két dátum között eltelt napok száma,
ami clipperben 1 sor, pacalban kb. 800 soros unit. ("sz@r nyelv az amiben 1 sor
ban meg lehet
ezt oldani, mert az igazi programozó csak pascalban dolgozik,még ha 800 soros u
nitot is kell
írnia")
---------------------
Én ortodox clipperes vagyok, ezért nem jegyeztem meg a részleteket ;-)
Az 5.3-as clippernek van egy Winfos felületž CACI nevü fejlesztńi
környezete,
de az szerintem SZ@R, 1 nap után elhajítottam,  jobban jársz az általam
javasolttal.
----------------------
Ha megkapod töle az info-t, azért légyszi küldd el nekem is ;-) (nosztalgia)
(Te nem neumannos diák vagy véletlenül)

Üdv.
Cser Tamás ( volt Neumann SzKI-s tanár 1990-1996-ig)

************************************************************************
a visszapattanás:
Mail Administrator > 2001.10.29. 12:35:51 -8h-kor
írta:

> We're sorry.  Your message was undeliverable due to the following
reason:
>
> The user(s) account is temporarily over quota.
>
> >
>
> Please reply to 
> if you feel you are receiving this message in error.
>
> Reporting-MTA: dns; mrpib.excite.com
> Arrival-Date: Mon, 29 Oct 2001 12:35:44 -0800
> Received-From-MTA: dns; cgomboc.drotposta.hu (212.108.226.84)
>

Sziasztok Coderek!

Eloszor koszi mindenki sehitseget. A sok infobol a kovetkezot tudtam kihozni
Delphi 5 alatt:
Elotte meg csak anyit, hogy a program celja a bmp file olvasasa pixelenkent.
Majd a ezt pixelenkent kirajzolni a formra.
Igazabol ezt egyetlen utasitassal is meg lehetne oldani, de a program csak
pelda, es a logikaja egy kesobbi felhasznalasra kell, ahol viszont el kell
ernem a kep pixeleit egyenkent. Tehat:

procedure TForm1.Button1Click(Sender: TObject);
var
  x,y : Integer;
  BitMap : TBitMap;
  szin: TColor;
  P : PByteArray;
  adat : Byte;
;

A problema ugye az, hogy az 'adat' valtozo nem szint jelol, hanem a szin
szamat a palettaban. Az adott helyen pedig a szinre lenne szukseg. A kerdes
tehat az, hogy hogyan tudom elrni a bmp file palettajat, hogy
lekerdezhessem, hogy az 'adat' milyen szinre mutat. Ha ez megvan, a program
mukodik. Igaz csak 256 szinu kepet olvas be a formra... de ez nekem boven
eleg. A segitseget - ami johet ide, vagy akar maganba is - koszi!

A billentyu legyen veletek! :)

Daruka Mihály
www.laststars.com