paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 00:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed type errors

Browse Source 
git-svn-id: trunk@4800 -
This commit is contained in:
Jonas Maebe 2006-10-04 21:23:36 +00:00
parent 32afe307dd
commit 41a415d366
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/fpcompil.pas
View File

@ -311,7 +311,7 @@ function TCompilerMessageListBox.GetPalette: PPalette;
const const
P: string[length(CBrowserListBox)] = CBrowserListBox; P: string[length(CBrowserListBox)] = CBrowserListBox;
begin begin
GetPalette:=@P; GetPalette:=PPalette(@P);
end; end;
procedure TCompilerMessageListBox.SelectFirstError; procedure TCompilerMessageListBox.SelectFirstError;
@ -436,7 +436,7 @@ function TCompilerMessageWindow.GetPalette: PPalette;
const const
S : string[length(CBrowserWindow)] = CBrowserWindow; S : string[length(CBrowserWindow)] = CBrowserWindow;
begin begin
GetPalette:=@S; GetPalette:=PPalette(@S);
end; end;