From e119fd2ed898ac356bd4634d3484749108d2dde2 Mon Sep 17 00:00:00 2001 From: vincents Date: Sun, 3 Sep 2006 17:51:30 +0000 Subject: [PATCH] removed dependency on synedit git-svn-id: trunk@9803 - --- ide/ideprocs.pp | 4 ++-- ide/keymapping.pp | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/ide/ideprocs.pp b/ide/ideprocs.pp index 4b31e5fd1f..0363795e10 100644 --- a/ide/ideprocs.pp +++ b/ide/ideprocs.pp @@ -200,7 +200,7 @@ function StringListPartToText(List: TStrings; FromIndex, ToIndex: integer; // environment function GetCurrentUserName: string; function GetCurrentMailAddress: string; -procedure GetProgramSearchPath(var SearchPath: string; var Delim: char); +procedure GetProgramSearchPath(var SearchPath: string; out Delim: char); function ProgramDirectory: string; // debugging @@ -2002,7 +2002,7 @@ begin Result:='<'+GetCurrentUserName+'@'+GetEnvironmentVariable('HOSTNAME')+'>'; end; -procedure GetProgramSearchPath(var SearchPath: string; var Delim: char); +procedure GetProgramSearchPath(var SearchPath: string; out Delim: char); begin SearchPath:=GetEnvironmentVariable('PATH'); Delim:=':'; diff --git a/ide/keymapping.pp b/ide/keymapping.pp index 9996ff9ebc..8b6d58d64b 100644 --- a/ide/keymapping.pp +++ b/ide/keymapping.pp @@ -35,7 +35,7 @@ uses LCLIntf, LCLType, LCLProc, Forms, Classes, SysUtils, Buttons, LResources, StdCtrls, Controls, Dialogs, StringHashList, - SynEdit, SynEditKeyCmds, Laz_XMLCfg, + SynEditKeyCmds, Laz_XMLCfg, LazarusIDEStrConsts, TextTools, IDECommands; type