paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Renamed LM_*TOCLIP and LM_*FROMCLIP according to the new LCL defines

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@371 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
christian_u 2008-03-05 10:08:39 +00:00
parent b0eb94ed80
commit a713a91bd9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/virtualtreeview/virtualtrees.pas
View File

@ -1820,8 +1820,8 @@ type
//later:test if we need it procedure WMChangeState(var Message: TLMessage); message WM_CHANGESTATE;
procedure WMChar(var Message: TLMChar); message LM_CHAR;
//todo procedure WMContextMenu(var Message: TLMContextMenu); message LM_CONTEXTMENU;
procedure WMCopy(var Message: TLMNoParams {TWMCopy}); message LM_COPYTOCLIP;
procedure WMCut(var Message: TLMNoParams {TWMCut}); message LM_CUTTOCLIP;
procedure WMCopy(var Message: TLMNoParams {TWMCopy}); message LM_COPY;
procedure WMCut(var Message: TLMNoParams {TWMCut}); message LM_CUT;
//later:test if we need it procedure WMEnable(var Message: TLMEnable); message LM_ENABLE;*)
procedure WMEraseBkgnd(var Message: TLMEraseBkgnd); message LM_ERASEBKGND;
procedure WMGetDlgCode(var Message: TLMNoParams {TWMGetDlgCode}); message LM_GETDLGCODE;
@ -1840,7 +1840,7 @@ type
//nfl procedure WMNCHitTest(var Message: TLMNCHitTest); message LM_NCHITTEST;
//nfl procedure WMNCPaint(var Message: TRealWMNCPaint); message LM_NCPAINT;
procedure WMPaint(var Message: TLMPaint); message LM_PAINT;
procedure WMPaste(var Message: TLMNoParams {TWMPaste}); message LM_PASTEFROMCLIP;
procedure WMPaste(var Message: TLMNoParams {TWMPaste}); message LM_PASTE;
//nfl procedure WMPrint(var Message: TLMPrint); message LM_PRINT;
//nfl procedure WMPrintClient(var Message: TLMPrintClient); message LM_PRINTCLIENT;*)
procedure WMRButtonDblClk(var Message: TLMRButtonDblClk); message LM_RBUTTONDBLCLK;