You've already forked lazarus-ccr
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:
@ -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.
|
||||
|
Reference in New Issue
Block a user