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

codetools: fixed crash on FreeListOfPCodeXYPosition, IDE: fixed spelling mistake

Browse Source 
git-svn-id: trunk@13436 -
This commit is contained in:
mattias 2007-12-23 11:14:06 +00:00
parent d6b44baddd
commit c126253698
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/codetoolmanager.pas
View File

@ -1405,7 +1405,7 @@ end;
procedure TCodeToolManager.FreeListOfPCodeXYPosition(var List: TFPList); procedure TCodeToolManager.FreeListOfPCodeXYPosition(var List: TFPList);
begin begin
if List<>nil then begin if List<>nil then begin
FreeListOfPCodeXYPosition(List); CodeAtom.FreeListOfPCodeXYPosition(List);
List:=nil; List:=nil;
end; end;
end; end;

10
ide/main.pp
View File

@ -2950,12 +2950,12 @@ end;
procedure TMainIDE.DoToggleViewComponentPalette; procedure TMainIDE.DoToggleViewComponentPalette;
var var
ComponentPalleteVisible: boolean; ComponentPaletteVisible: boolean;
begin begin
ComponentPalleteVisible:=not MainIDEBar.ComponentNotebook.Visible; ComponentPaletteVisible:=not MainIDEBar.ComponentNotebook.Visible;
MainIDEBar.itmViewComponentPalette.Checked:=ComponentPalleteVisible; MainIDEBar.itmViewComponentPalette.Checked:=ComponentPaletteVisible;
MainIDEBar.ComponentNotebook.Visible:=ComponentPalleteVisible; MainIDEBar.ComponentNotebook.Visible:=ComponentPaletteVisible;
EnvironmentOptions.ComponentPaletteVisible:=ComponentPalleteVisible; EnvironmentOptions.ComponentPaletteVisible:=ComponentPaletteVisible;
end; end;
procedure TMainIDE.DoToggleViewIDESpeedButtons; procedure TMainIDE.DoToggleViewIDESpeedButtons;