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

KOLDEF.inc

@@ -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
 // in your project options.
 
+{$IFNDEF INPACKAGE}
+	{$DEFINE NOT_USE_RICHEDIT}
+{$ENDIF}
+
 //{$DEFINE TEST_VERSION}
 {$IFNDEF _D6orHigher}
  {$DEFINE PARANOIA} //seems not needed under D6 !!! Inprise fixed this, finally... 

KOLMCK_D2006.dpk

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

MCKAppExpert200x.pas

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