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

IDE: clean up

Browse Source 
git-svn-id: trunk@47077 -
This commit is contained in:
mattias 2014-12-03 22:23:59 +00:00
parent 58df23696a
commit 59f4935c70
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/componentpalette.pas
View File

@ -1083,8 +1083,7 @@ end;
procedure TComponentPalette.UpdateNoteBookButtons; procedure TComponentPalette.UpdateNoteBookButtons;
var var
i, PgInd: Integer; i: Integer;
PgName: String;
begin begin
if fUpdatingPageControl then exit; if fUpdatingPageControl then exit;
if IsUpdateLocked then begin if IsUpdateLocked then begin

2
ide/idetranslations.pas
View File

@ -328,7 +328,7 @@ begin
BasePOFile.ReadPOText(POBuf.Source); BasePOFile.ReadPOText(POBuf.Source);
BasePOFile.Tag:=1; BasePOFile.Tag:=1;
// Update po file with lrt or/and rst files // Update po file with lrt or/and rst/rsj files
for i:=0 to SrcFiles.Count-1 do begin for i:=0 to SrcFiles.Count-1 do begin
Filename:=SrcFiles[i]; Filename:=SrcFiles[i];
if CompareFileExt(Filename,'.lrt',false)=0 then if CompareFileExt(Filename,'.lrt',false)=0 then