pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Renamed copy and paste messages to match recent LCL changes

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@388 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2008-03-26 02:11:11 +00:00
parent 6e9dfbe16c
commit ad5806519e
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/virtualtreeview-unstable/VirtualTrees.pas
View File

@ -2101,8 +2101,8 @@ TBaseVirtualTree = class(TCustomControl)
procedure WMChangeState(var Message: TLMessage); message WM_CHANGESTATE;
procedure WMChar(var Message: TLMChar); message LM_CHAR;
procedure WMContextMenu(var Message: TLMContextMenu); message LM_CONTEXTMENU;
procedure WMCopy(var Message: TLMNoParams); message LM_COPYTOCLIP;
procedure WMCut(var Message: TLMNoParams); message LM_CUTTOCLIP;
procedure WMCopy(var Message: TLMNoParams); message LM_COPY;
procedure WMCut(var Message: TLMNoParams); message LM_CUT;
procedure WMEnable(var Message: TLMNoParams); message LM_ENABLE;
procedure WMEraseBkgnd(var Message: TLMEraseBkgnd); message LM_ERASEBKGND;
procedure WMGetDlgCode(var Message: TLMNoParams); message LM_GETDLGCODE;
@ -2125,7 +2125,7 @@ TBaseVirtualTree = class(TCustomControl)
procedure WMNCPaint(var Message: TRealWMNCPaint); message WM_NCPAINT;
{$endif}
procedure WMPaint(var Message: TLMPaint); message LM_PAINT;
procedure WMPaste(var Message: TLMNoParams); message LM_PASTEFROMCLIP;
procedure WMPaste(var Message: TLMNoParams); message LM_PASTE;
{$ifdef EnablePrintFunctions}
procedure WMPrint(var Message: TWMPrint); message WM_PRINT;
procedure WMPrintClient(var Message: TWMPrintClient); message WM_PRINTCLIENT;