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

* fixed type errors

Browse Source 
git-svn-id: trunk@4798 -
This commit is contained in:
Jonas Maebe 2006-10-04 21:18:24 +00:00
parent 85bb8872be
commit e8771d8150
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fv/views.pas
View File

@ -2719,7 +2719,7 @@ begin
FillChar(FrameMask[1],Size.X-2,InitFrame[n+1]); FillChar(FrameMask[1],Size.X-2,InitFrame[n+1]);
FrameMask[Size.X-1]:=InitFrame[n+2]; FrameMask[Size.X-1]:=InitFrame[n+2];
CurrView:=Owner^.Last^.Next; CurrView:=Owner^.Last^.Next;
while (CurrView<>@Self) do while (CurrView<>PView(@Self)) do
begin begin
if ((CurrView^.Options and ofFramed)<>0) and if ((CurrView^.Options and ofFramed)<>0) and
((CurrView^.State and sfVisible)<>0) then ((CurrView^.State and sfVisible)<>0) then
@ -2882,7 +2882,7 @@ end;
FUNCTION TFrame.GetPalette: PPalette; FUNCTION TFrame.GetPalette: PPalette;
CONST P: String[Length(CFrame)] = CFrame; { Always normal string } CONST P: String[Length(CFrame)] = CFrame; { Always normal string }
BEGIN BEGIN
GetPalette := @P; { Return palette } GetPalette := PPalette(@P); { Return palette }
END; END;
procedure TFrame.HandleEvent(var Event: TEvent); procedure TFrame.HandleEvent(var Event: TEvent);
@ -3023,7 +3023,7 @@ END;
FUNCTION TScrollBar.GetPalette: PPalette; FUNCTION TScrollBar.GetPalette: PPalette;
CONST P: String[Length(CScrollBar)] = CScrollBar; { Always normal string } CONST P: String[Length(CScrollBar)] = CScrollBar; { Always normal string }
BEGIN BEGIN
GetPalette := @P; { Return palette } GetPalette := PPalette(@P); { Return palette }
END; END;
{--TScrollBar---------------------------------------------------------------} {--TScrollBar---------------------------------------------------------------}
@ -3342,7 +3342,7 @@ END;
FUNCTION TScroller.GetPalette: PPalette; FUNCTION TScroller.GetPalette: PPalette;
CONST P: String[Length(CScroller)] = CScroller; { Always normal string } CONST P: String[Length(CScroller)] = CScroller; { Always normal string }
BEGIN BEGIN
GetPalette := @P; { Scroller palette } GetPalette := PPalette(@P); { Scroller palette }
END; END;
{--TScroller----------------------------------------------------------------} {--TScroller----------------------------------------------------------------}
@ -3474,7 +3474,7 @@ END;
FUNCTION TListViewer.GetPalette: PPalette; FUNCTION TListViewer.GetPalette: PPalette;
CONST P: String[Length(CListViewer)] = CListViewer; { Always normal string } CONST P: String[Length(CListViewer)] = CListViewer; { Always normal string }
BEGIN BEGIN
GetPalette := @P; { Return palette } GetPalette := PPalette(@P); { Return palette }
END; END;
{--TListViewer--------------------------------------------------------------} {--TListViewer--------------------------------------------------------------}
@ -3814,7 +3814,7 @@ FUNCTION TWindow.GetPalette: PPalette;
CONST P: ARRAY [wpBlueWindow..wpGrayWindow] Of String[Length(CBlueWindow)] = CONST P: ARRAY [wpBlueWindow..wpGrayWindow] Of String[Length(CBlueWindow)] =
(CBlueWindow, CCyanWindow, CGrayWindow); { Always normal string } (CBlueWindow, CCyanWindow, CGrayWindow); { Always normal string }
BEGIN BEGIN
GetPalette := @P[Palette]; { Return palette } GetPalette := PPalette(@P[Palette]); { Return palette }
END; END;
{--TWindow------------------------------------------------------------------} {--TWindow------------------------------------------------------------------}