pascal/kolmck
1
0
Fork 0
Code Issues Releases Activity

git-svn-id: https://svn.code.sf.net/p/kolmck/code@50 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07

Browse Source
This commit is contained in:
dkolmck
2009-12-11 08:47:22 +00:00
parent 53441744bd
commit 1cb8658d79
3 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
KOLDEF.inc
View File

@ -227,6 +227,10 @@ That is all to have full compatibility.
// Another way to turn this option off is to define symbol NOT_UNLOAD_RICHEDITLIB // Another way to turn this option off is to define symbol NOT_UNLOAD_RICHEDITLIB
// in your project options. // in your project options.
{$IFNDEF INPACKAGE}
{$DEFINE NOT_USE_RICHEDIT}
{$ENDIF}
//{$DEFINE TEST_VERSION} //{$DEFINE TEST_VERSION}
{$IFNDEF _D6orHigher} {$IFNDEF _D6orHigher}
{$DEFINE PARANOIA} //seems not needed under D6 !!! Inprise fixed this, finally... {$DEFINE PARANOIA} //seems not needed under D6 !!! Inprise fixed this, finally...

8
KOLMCK_D2006.dpk
View File

@ -1,7 +1,7 @@
package KOLMCK_D2006; package KOLMCK_D2006;
{$R KOLMCK.res} {$R *.res}
{$ALIGN 8} {$ALIGN 4}
{$ASSERTIONS ON} {$ASSERTIONS ON}
{$BOOLEVAL OFF} {$BOOLEVAL OFF}
{$DEBUGINFO ON} {$DEBUGINFO ON}
@ -21,8 +21,8 @@ package KOLMCK_D2006;
{$VARSTRINGCHECKS ON} {$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF} {$WRITEABLECONST OFF}
{$MINENUMSIZE 1} {$MINENUMSIZE 1}
{$IMAGEBASE $400000} {$IMAGEBASE $13400000}
{$DESCRIPTION '_KOL_ mirror controls for Delphi 2006'} {$DESCRIPTION 'KOLMCK 2006'}
{$DESIGNONLY} {$DESIGNONLY}
{$IMPLICITBUILD OFF} {$IMPLICITBUILD OFF}
{$DEFINE INPACKAGE} {$DEFINE INPACKAGE}

4
MCKAppExpert200x.pas
View File

@ -216,14 +216,14 @@ begin
dlg := TSaveDialog.Create(nil); dlg := TSaveDialog.Create(nil);
dlg.Options := [ofOverwritePrompt, ofExtensionDifferent, ofPathMustExist]; dlg.Options := [ofOverwritePrompt, ofExtensionDifferent, ofPathMustExist];
dlg.Title := 'Save Project'; dlg.Title := 'Save Project';
dlg.Filter := '*.dpr'; dlg.Filter := 'DPR files|*.dpr';
dlg.DefaultExt := 'dpr'; dlg.DefaultExt := 'dpr';
if dlg.Execute then begin if dlg.Execute then begin
prj := dlg.FileName; prj := dlg.FileName;
if (Pos('.', prj) = Length(prj) - 3) then if (Pos('.', prj) = Length(prj) - 3) then
SetLength(prj, Length(prj) - 4); SetLength(prj, Length(prj) - 4);
dlg.Title := 'Save Unit'; dlg.Title := 'Save Unit';
dlg.Filter := '*.pas'; dlg.Filter := 'PAS files|*.pas';
dlg.DefaultExt := 'pas'; dlg.DefaultExt := 'pas';
dlg.FileName := 'unit1'; dlg.FileName := 'unit1';
if dlg.Execute then begin if dlg.Execute then begin