paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 07:42:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

removed dependency on synedit

Browse Source 
git-svn-id: trunk@9803 -
This commit is contained in:
vincents 2006-09-03 17:51:30 +00:00
parent ec973c78eb
commit e119fd2ed8
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/ideprocs.pp
View File

@ -200,7 +200,7 @@ function StringListPartToText(List: TStrings; FromIndex, ToIndex: integer;
// environment // environment
function GetCurrentUserName: string; function GetCurrentUserName: string;
function GetCurrentMailAddress: string; function GetCurrentMailAddress: string;
procedure GetProgramSearchPath(var SearchPath: string; var Delim: char); procedure GetProgramSearchPath(var SearchPath: string; out Delim: char);
function ProgramDirectory: string; function ProgramDirectory: string;
// debugging // debugging
@ -2002,7 +2002,7 @@ begin
Result:='<'+GetCurrentUserName+'@'+GetEnvironmentVariable('HOSTNAME')+'>'; Result:='<'+GetCurrentUserName+'@'+GetEnvironmentVariable('HOSTNAME')+'>';
end; end;
procedure GetProgramSearchPath(var SearchPath: string; var Delim: char); procedure GetProgramSearchPath(var SearchPath: string; out Delim: char);
begin begin
SearchPath:=GetEnvironmentVariable('PATH'); SearchPath:=GetEnvironmentVariable('PATH');
Delim:=':'; Delim:=':';

2
ide/keymapping.pp
View File

@ -35,7 +35,7 @@ uses
LCLIntf, LCLType, LCLProc, LCLIntf, LCLType, LCLProc,
Forms, Classes, SysUtils, Buttons, LResources, StdCtrls, Controls, Forms, Classes, SysUtils, Buttons, LResources, StdCtrls, Controls,
Dialogs, StringHashList, Dialogs, StringHashList,
SynEdit, SynEditKeyCmds, Laz_XMLCfg, SynEditKeyCmds, Laz_XMLCfg,
LazarusIDEStrConsts, TextTools, IDECommands; LazarusIDEStrConsts, TextTools, IDECommands;
type type