RxFPC: fix compile after last commit

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5451 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2016-12-08 13:54:00 +00:00
parent 078466b678
commit 17b82f66f4
12 changed files with 192 additions and 125 deletions

View File

@ -35,29 +35,10 @@ interface
{$I RX.INC}
uses LMessages, Controls;
const
RX_VERSION = $0002004B; { 2.75 }
const
{ Command message for Speedbar editor }
CM_SPEEDBARCHANGED = CM_BASE + 80;
{ Command message for TRxSpeedButton }
CM_RXBUTTONPRESSED = CM_BASE + 81;
{ Command messages for TRxWindowHook }
CM_RECREATEWINDOW = CM_BASE + 82;
CM_DESTROYHOOK = CM_BASE + 83;
{ Notify message for TRxTrayIcon }
CM_TRAYICON = CM_BASE + 84;
const
crHand = TCursor(14000);
crDragHand = TCursor(14001);
//const
//{ TBitmap.GetTransparentColor from GRAPHICS.PAS uses this value }
// PaletteMask = $02000000;
resourcestring
sBrowse = 'Browse';
@ -139,6 +120,9 @@ resourcestring
{ TFolderLister }
sFolderListerErr = '%s. Not assigned property MenuItem';
{ TConfigValues }
sVariableIsNotString = 'Variable %s is not string';
implementation
end.