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

implemented global and user package links

Browse Source 
git-svn-id: trunk@3407 -
This commit is contained in:
mattias 2002-10-01 15:45:37 +00:00
parent c0601d90c6
commit dbc4754166
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/ideprocs.pp
View File

@ -135,6 +135,14 @@ procedure RaiseException(const Msg: string);
procedure FreeThenNil(var Obj: TObject);
function CompareCaret(const FirstCaret, SecondCaret: TPoint): integer;
const
{$IFDEF Win32}
FindMask = '*.*';
{$ELSE}
FindMask = '*';
{$ENDIF}
implementation
@ -149,13 +157,6 @@ uses
{$ENDIF}
{$EndIf};
const
{$IFDEF Win32}
FindMask = '*.*';
{$ELSE}
FindMask = '*';
{$ENDIF}
function AddToRecentList(const s: string; RecentList: TStringList;
Max: integer): boolean;
begin