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

fixed cleaning up project searhc paths with makros

Browse Source 
git-svn-id: trunk@9134 -
This commit is contained in:
mattias 2006-04-17 09:49:04 +00:00
parent b0be3088b7
commit 0b0ce2bb5e
3 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/ideprocs.pp
View File

@ -675,8 +675,9 @@ begin
// make path absolute // make path absolute
if (CurPath<>'') and (not FilenameIsAbsolute(CurPath)) then if (CurPath<>'') and (not FilenameIsAbsolute(CurPath)) then
CurPath:=AppendPathDelim(BaseDirectory)+CurPath; 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 // path does not exist -> remove
Result:=copy(Result,1,StartPos-1)+copy(Result,EndPos+1,length(Result)); Result:=copy(Result,1,StartPos-1)+copy(Result,EndPos+1,length(Result));
EndPos:=StartPos; EndPos:=StartPos;

2
lcl/interfaces/gtk/gtkproc.inc
View File

@ -6519,6 +6519,8 @@ begin
TimeID:=0; // = GDK_CURRENT_TIME, better use the current event^.time, but TimeID:=0; // = GDK_CURRENT_TIME, better use the current event^.time, but
// how to retrieve that value? // how to retrieve that value?
// IMPORTANT: To retrieve data from xterm or kde applications
// the time id must be 0 or event^.time
repeat repeat
while TimeIDExists(TimeID) do begin while TimeIDExists(TimeID) do begin
inc(TimeID); inc(TimeID);

2
lcl/interfaces/gtk/tests/lclclipboardunit.lrs
View File

@ -1,5 +1,3 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[ LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#7'Caption'#6#5'Form1'#12'ClientHeight'#3','#1#11'Cl' '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 +'ientWidth'#3#144#1#13'PixelsPerInch'#2'p'#18'HorzScrollBar.Page'#3#143#1#18