mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-13 21:02:55 +02:00
fixed cleaning up project searhc paths with makros
git-svn-id: trunk@9134 -
This commit is contained in:
parent
b0be3088b7
commit
0b0ce2bb5e
@ -675,8 +675,9 @@ begin
|
||||
// make path absolute
|
||||
if (CurPath<>'') and (not FilenameIsAbsolute(CurPath)) then
|
||||
CurPath:=AppendPathDelim(BaseDirectory)+CurPath;
|
||||
|
||||
if (CurPath='') or (not DirectoryExists(CurPath)) then begin
|
||||
|
||||
if ((CurPath='') and (MacroStartPos<1))
|
||||
or (not DirPathExistsCached(CurPath)) then begin
|
||||
// path does not exist -> remove
|
||||
Result:=copy(Result,1,StartPos-1)+copy(Result,EndPos+1,length(Result));
|
||||
EndPos:=StartPos;
|
||||
|
@ -6519,6 +6519,8 @@ begin
|
||||
|
||||
TimeID:=0; // = GDK_CURRENT_TIME, better use the current event^.time, but
|
||||
// how to retrieve that value?
|
||||
// IMPORTANT: To retrieve data from xterm or kde applications
|
||||
// the time id must be 0 or event^.time
|
||||
repeat
|
||||
while TimeIDExists(TimeID) do begin
|
||||
inc(TimeID);
|
||||
|
@ -1,5 +1,3 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TForm1','FORMDATA',[
|
||||
'TPF0'#6'TForm1'#5'Form1'#7'Caption'#6#5'Form1'#12'ClientHeight'#3','#1#11'Cl'
|
||||
+'ientWidth'#3#144#1#13'PixelsPerInch'#2'p'#18'HorzScrollBar.Page'#3#143#1#18
|
||||
|
Loading…
Reference in New Issue
Block a user