1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-12-15 03:14:23 +00:00
freebsd-ports/cad/zcad/files/patch-cad__source_zcad_uzcsysinfo.pas
Alexey Dokuchaev 70e85d336e Add a port of ZCAD, simple CAD program with AutoCAD DXF 2000 file format
support.  It is developed with Free Pascal and Lazarus.

The project has not released any distfiles yet, so this release is based
on r2259 checked out from http://svn.shamangrad.net/zcad/trunk/, cleaned
up (most importantly, converted to Unix line endings), and tar+xz'ed.

https://sourceforge.net/projects/zcad/
2017-05-02 18:50:35 +00:00

11 lines
667 B
ObjectPascal

--- cad_source/zcad/uzcsysinfo.pas.orig 2017-05-01 09:49:45 UTC
+++ cad_source/zcad/uzcsysinfo.pas
@@ -196,6 +196,7 @@ begin
debugln('{N}SysParam.ProgramPath="%s"',[ProgramPath]);
//programlog.LogOutStr(format('SysParam.ProgramPath="%s"',[ProgramPath]),lp_OldPos,LM_Necessarily);
debugln('{N}SysParam.TempPath="%s"',[TempPath]);
+ debugln('{N}SysParam.UserPath="%s"',[UserPath]);
//programlog.LogOutStr(format('SysParam.TempPath="%s"',[TempPath]),lp_OldPos,LM_Necessarily);
debugln('{N}SysParam.ScreenX=%d',[SysParam.ScreenX]);
//programlog.LogOutStr(format('SysParam.ScreenX=%d',[SysParam.ScreenX]),lp_OldPos,LM_Necessarily);