From: <ah...@us...> - 2012-09-24 19:10:47
|
Revision: 13444 http://jvcl.svn.sourceforge.net/jvcl/?rev=13444&view=rev Author: ahuser Date: 2012-09-24 19:10:40 +0000 (Mon, 24 Sep 2012) Log Message: ----------- Fixed Delphi 6, 7 and 2007 compilation Modified Paths: -------------- trunk/jvcl/devtools/JvExVCL/src/JvExMask.pas trunk/jvcl/run/JvExMask.pas Modified: trunk/jvcl/devtools/JvExVCL/src/JvExMask.pas =================================================================== --- trunk/jvcl/devtools/JvExVCL/src/JvExMask.pas 2012-09-24 14:13:03 UTC (rev 13443) +++ trunk/jvcl/devtools/JvExVCL/src/JvExMask.pas 2012-09-24 19:10:40 UTC (rev 13444) @@ -106,6 +106,18 @@ implementation +{$IFNDEF COMPILER12_UP} +const + ECM_FIRST = $1500; + EM_SETCUEBANNER = ECM_FIRST + 1; // Set the cue banner with the lParam = LPCWSTR + + CBM_FIRST = $1700; + CB_SETCUEBANNER = CBM_FIRST + 3; + +type + UnicodeString = WideString; +{$ENDIF ~COMPILER12_UP} + BEGIN_EDITCONTROL_CONSTRUCTOR(CustomMaskEdit) FBeepOnError := True; if UserTextHint then Modified: trunk/jvcl/run/JvExMask.pas =================================================================== --- trunk/jvcl/run/JvExMask.pas 2012-09-24 14:13:03 UTC (rev 13443) +++ trunk/jvcl/run/JvExMask.pas 2012-09-24 19:10:40 UTC (rev 13444) @@ -238,6 +238,18 @@ implementation +{$IFNDEF COMPILER12_UP} +const + ECM_FIRST = $1500; + EM_SETCUEBANNER = ECM_FIRST + 1; // Set the cue banner with the lParam = LPCWSTR + + CBM_FIRST = $1700; + CB_SETCUEBANNER = CBM_FIRST + 3; + +type + UnicodeString = WideString; +{$ENDIF ~COMPILER12_UP} + constructor TJvExCustomMaskEdit.Create(AOwner: TComponent); begin inherited Create(AOwner); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |