paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 03:50:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

synedit: less notes

Browse Source 
git-svn-id: trunk@48160 -
This commit is contained in:
mattias 2015-03-07 10:11:02 +00:00
parent 8ab3f3a5d8
commit 88ba0ca4c8
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/synedit/design/synpropertyeditobjectlist.pas
View File

@ -214,6 +214,7 @@ procedure TSynKeyCommandPropertyEditor.GetValues(Proc: TGetStrProc);
var
CValue: Integer;
begin
CValue:=0;
if not IdentToSynMouseCmd(GetVisualValue, CValue) then Proc(GetVisualValue);
GetEditorCommandValues(Proc);
end;
@ -238,6 +239,7 @@ end;
function TSynMouseCommandPropertyEditor.OrdValueToVisualValue(OrdValue: longint): string;
begin
Result:='';
if not SynMouseCmdToIdent(OrdValue, Result) then
Result := inherited OrdValueToVisualValue(OrdValue);
end;
@ -248,6 +250,8 @@ var
CName: String;
i: TSynEditorMouseCommand;
begin
CValue:=0;
CName:='';
if not IdentToSynMouseCmd(GetVisualValue, CValue) then Proc(GetVisualValue);
for i := 0 to emcMax do
if SynMouseCmdToIdent(i, CName) then Proc(CName);
@ -257,6 +261,7 @@ procedure TSynMouseCommandPropertyEditor.SetValue(const NewValue: ansistring);
var
CValue: Integer;
begin
CValue:=0;
if IdentToSynMouseCmd(NewValue, CValue) then SetOrdValue(CValue)
else inherited SetValue(NewValue);
end;