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

replace message LM_PASTEFROMCLIP to LM_PASTE and etc...

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@382 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2008-03-20 08:59:49 +00:00
parent 08c7a1f3a5
commit 2e98ee47a3
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/rx/curredit.pas
View File

@ -52,7 +52,7 @@ type
procedure WMExit(var Message: TLMExit); message LM_EXIT;
procedure CMFontChanged(var Message: TLMessage); message CM_FONTCHANGED;
procedure WMPaint(var Message: TLMPaint); message LM_PAINT;
procedure WMPaste(var Message: TLMessage); message LM_PASTEFROMCLIP;
procedure WMPaste(var Message: TLMessage); message LM_PASTE;
procedure GetSel(var ASelStart: Integer; var SelStop: Integer);
procedure DoEnter; override;
procedure DoExit; override;

8
components/rx/dbdateedit.pas
View File

@ -32,8 +32,8 @@ type
procedure EditingChange(Sender: TObject);
procedure UpdateData(Sender:TObject);
procedure CMExit(var Message:TLMessage); message CM_EXIT;
procedure LMCut(var Message: TLMessage); message LM_CUTTOCLIP;
procedure LMPaste(var Message: TLMessage); message LM_PASTEFROMCLIP;
procedure LMCut(var Message: TLMessage); message LM_CUT;
procedure LMPaste(var Message: TLMessage); message LM_PASTE;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure Change; override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
@ -70,8 +70,8 @@ type
procedure EditingChange(Sender: TObject);
procedure UpdateData(Sender:TObject);
procedure CMExit(var Message:TLMessage); message CM_EXIT;
procedure LMCut(var Message: TLMessage); message LM_CUTTOCLIP;
procedure LMPaste(var Message: TLMessage); message LM_PASTEFROMCLIP;
procedure LMCut(var Message: TLMessage); message LM_CUT;
procedure LMPaste(var Message: TLMessage); message LM_PASTE;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure Change; override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;