paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 10:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: designer mediator key handling

Browse Source 
git-svn-id: trunk@21670 -
This commit is contained in:
mattias 2009-09-12 16:39:15 +00:00
parent ec4e4a66cf
commit fb82c5b9a3
2 changed files with 29 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
designer/designer.pp
View File

@ -155,8 +155,8 @@ type
procedure MouseDownOnControl(Sender: TControl; var TheMessage : TLMMouse);
procedure MouseMoveOnControl(Sender: TControl; var TheMessage: TLMMouse);
procedure MouseUpOnControl(Sender: TControl; var TheMessage:TLMMouse);
procedure KeyDown(Sender: TControl; var TheMessage:TLMKEY);
procedure KeyUp(Sender: TControl; var TheMessage:TLMKEY);
procedure KeyDown(Sender: TControl; var TheMessage: TLMKEY);
procedure KeyUp(Sender: TControl; var TheMessage: TLMKEY);
function HandleSetCursor(var TheMessage: TLMessage): boolean;
// procedures for working with components and persistents
@ -1886,7 +1886,7 @@ end;
Handles the keydown messages. DEL deletes the selected controls, CTRL-ARROR
moves the selection up one, SHIFT-ARROW resizes, etc.
}
Procedure TDesigner.KeyDown(Sender : TControl; var TheMessage:TLMKEY);
Procedure TDesigner.KeyDown(Sender : TControl; var TheMessage: TLMKEY);
var
Shift: TShiftState;
Command: word;
@ -1916,8 +1916,12 @@ begin
Shift := KeyDataToShiftState(TheMessage.KeyData);
Handled := False;
if Mediator<>nil then
Mediator.KeyDown(Sender,TheMessage.CharCode,Shift);
Command := FTheFormEditor.TranslateKeyToDesignerCommand(
TheMessage.CharCode, Shift);
TheMessage.CharCode, Shift);
//DebugLn(['TDesigner.KEYDOWN Command=',dbgs(Command),' ',TheMessage.CharCode,' ',dbgs(Shift)]);
DoProcessCommand(Self, Command, Handled);
//DebugLn(['TDesigner.KeyDown Command=',Command,' Handled=',Handled,' TheMessage.CharCode=',TheMessage.CharCode]);
@ -1958,11 +1962,17 @@ end;
{------------------------------------K E Y U P --------------------------------}
Procedure TDesigner.KeyUp(Sender : TControl; var TheMessage:TLMKEY);
Procedure TDesigner.KeyUp(Sender : TControl; var TheMessage: TLMKEY);
var
Shift: TShiftState;
Begin
{$IFDEF VerboseDesigner}
//Writeln('TDesigner.KEYUP ',TheMessage.CharCode,' ',TheMessage.KeyData);
{$ENDIF}
if Mediator<>nil then begin
Shift := KeyDataToShiftState(TheMessage.KeyData);
Mediator.KeyUp(Sender,TheMessage.CharCode,Shift);
end;
end;
function TDesigner.DoDeleteSelectedPersistents: boolean;

14
ideintf/formeditingintf.pas
View File

@ -128,6 +128,8 @@ type
Flags: TDMCompAtPosFlags): TComponent; virtual;
procedure GetChilds(Parent: TComponent; ChildComponents: TFPList); virtual;
procedure InitComponent(AComponent, NewParent: TComponent; NewBounds: TRect); virtual;
procedure KeyDown(Sender: TControl; var Key: word; Shift: TShiftState); virtual;
procedure KeyUp(Sender: TControl; var Key: word; Shift: TShiftState); virtual;
property LCLForm: TForm read FLCLForm write SetLCLForm;
property Designer: TComponentEditorDesigner read FDesigner write SetDesigner;
property Root: TComponent read FRoot write SetRoot;
@ -527,5 +529,17 @@ begin
TDesignerMediator(AComponent).SetParentComponent(NewParent);
end;
procedure TDesignerMediator.KeyDown(Sender: TControl; var Key: word;
Shift: TShiftState);
begin
end;
procedure TDesignerMediator.KeyUp(Sender: TControl; var Key: word;
Shift: TShiftState);
begin
end;
end.