diff --git a/KOLDEF.inc b/KOLDEF.inc index eb5f085..887283c 100644 --- a/KOLDEF.inc +++ b/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... diff --git a/KOLMCK_D2006.dpk b/KOLMCK_D2006.dpk index b401f03..1220282 100644 --- a/KOLMCK_D2006.dpk +++ b/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} diff --git a/MCKAppExpert200x.pas b/MCKAppExpert200x.pas index 7cf7ac4..83042cd 100644 --- a/MCKAppExpert200x.pas +++ b/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