paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-05 21:26:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

Editor Options: removed some old unneeded code

Browse Source 
git-svn-id: trunk@20463 -
This commit is contained in:
martin 2009-06-05 23:49:09 +00:00
parent 8e01687545
commit f3916e2633
1 changed files with 0 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
ide/editoroptions.pp
View File

@ -1052,40 +1052,6 @@ begin
Dest.StyleMask := Src.StyleMask; Dest.StyleMask := Src.StyleMask;
end; end;
function MouseButtonToXML(mb: TMouseButton): String;
begin
case mb of
mbMiddle: exit('Middle');
mbRight: exit('Right');
else exit('Left');
end;
end;
function XMLToMouseButton(mb: String): TMouseButton;
begin
if mb = 'Middle' then exit(mbMiddle);
if mb = 'Right' then exit(mbRight);
exit(mbLeft);
end;
function ShiftStateToXML(st: TShiftState): String;
begin
Result := '';
if ssShift in st then Result := Result + ',Shift';
if ssCtrl in st then Result := Result + ',Ctrl';
if ssAlt in st then Result := Result + ',Alt';
Result := copy(Result,2,999);
end;
function XMLtoShiftState(st: String): TShiftState;
begin
st:=','+st+',';
Result := [];
if pos(',Shift,', st) > 0 then Include(Result, ssShift);
if pos(',Ctrl,', st) > 0 then Include(Result, ssCtrl);
if pos(',Alt,', st) > 0 then Include(Result, ssAlt);
end;
{ TRttiXMLConfig } { TRttiXMLConfig }
procedure TRttiXMLConfig.WriteObject(Path: String; Obj: TPersistent; procedure TRttiXMLConfig.WriteObject(Path: String; Obj: TPersistent;