Tomas,
On Thu, Feb 13, 2020 at 04:25:11PM +0100, Tomas Hajny wrote:
> Your attached code cannot be compiled as provided because unit TutConst
> is missing. The version of this unit included in the PDF doesn't contain
> all the needed constants, so it is clearly buggy / incomplete.
Attached is the TutConst I'm using. I added the missing constants.
--
Kevin
http://www.RawFedDogs.net
http://www.Lassie.xyz
http://www.WacoAgilityGroup.org
Bruceville, TX
What's the definition of a legacy system? One that works!
Errare humanum est, ignoscere caninum.
Unit TutConst;
{ Global constants for Turbo Vision Tutorial }
Interface
Const
cmOrderNew = 251;
cmOrderWin = 252;
cmOrderSave = 253;
cmOrderCancel = 254;
cmOrderNext = 255;
cmOrderPrev = 250;
cmClipShow = 240;
cmAbout = 241;
cmStockWin = 242;
cmSupplierWin = 243;
cmFindOrderWindow = 2000;
Const
cmOptionsVideo = 1502;
cmOptionsSave = 1503;
cmOptionsLoad = 1504;
Implementation
End.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
