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

* fixed type errors

Browse Source 
git-svn-id: trunk@4799 -
This commit is contained in:
Jonas Maebe 2006-10-04 21:22:18 +00:00
parent e8771d8150
commit 32afe307dd
4 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fv/app.pas
View File

@ -437,7 +437,7 @@ END;
FUNCTION TBackGround.GetPalette: PPalette;
CONST P: String[Length(CBackGround)] = CbackGround; { Always normal string }
BEGIN
GetPalette := @P; { Return palette }
GetPalette := PPalette(@P); { Return palette }
END;
{--TBackGround--------------------------------------------------------------}
@ -658,7 +658,7 @@ VAR R: TRect;
BEGIN
R.Assign(0, 0, ScreenWidth, ScreenHeight); { Full screen area }
Inherited Init(R); { Call ancestor }
Application := @Self; { Set application ptr }
Application := PApplication(@Self); { Set application ptr }
InitScreen; { Initialize screen }
State := sfVisible + sfSelected + sfFocused +
sfModal + sfExposed; { Deafult states }

18
fv/dialogs.pas
View File

@ -1092,7 +1092,7 @@ FUNCTION TDialog.GetPalette: PPalette;
CONST P: Array[dpBlueDialog..dpGrayDialog] Of String[Length(CBlueDialog)] =
(CBlueDialog, CCyanDialog, CGrayDialog); { Always normal string }
BEGIN
GetPalette := @P[Palette]; { Return palette }
GetPalette := PPalette(@P[Palette]); { Return palette }
END;
{--TDialog------------------------------------------------------------------}
@ -1329,7 +1329,7 @@ END;
FUNCTION TInputLine.GetPalette: PPalette;
CONST P: String[Length(CInputLine)] = CInputLine; { Always normal string }
BEGIN
GetPalette := @P; { Return palette }
GetPalette := PPalette(@P); { Return palette }
END;
{--TInputLine---------------------------------------------------------------}
@ -1797,7 +1797,7 @@ END;
FUNCTION TButton.GetPalette: PPalette;
CONST P: String[Length(CButton)] = CButton; { Always normal string }
BEGIN
GetPalette := @P; { Get button palette }
GetPalette := PPalette(@P); { Get button palette }
END;
{--TButton------------------------------------------------------------------}
@ -2098,7 +2098,7 @@ END;
FUNCTION TCluster.GetPalette: PPalette;
CONST P: String[Length(CCluster)] = CCluster; { Always normal string }
BEGIN
GetPalette := @P; { Cluster palette }
GetPalette := PPalette(@P); { Cluster palette }
END;
{--TCluster-----------------------------------------------------------------}
@ -2833,7 +2833,7 @@ END;
FUNCTION TStaticText.GetPalette: PPalette;
CONST P: String[Length(CStaticText)] = CStaticText; { Always normal string }
BEGIN
GetPalette := @P; { Return palette }
GetPalette := PPalette(@P); { Return palette }
END;
{--TStaticText--------------------------------------------------------------}
@ -3005,7 +3005,7 @@ END;
FUNCTION TLabel.GetPalette: PPalette;
CONST P: String[Length(CLabel)] = CLabel; { Always normal string }
BEGIN
GetPalette := @P; { Return palette }
GetPalette := PPalette(@P); { Return palette }
END;
{--TLabel-------------------------------------------------------------------}
@ -3115,7 +3115,7 @@ END;
FUNCTION THistoryViewer.GetPalette: PPalette;
CONST P: String[Length(CHistoryViewer)] = CHistoryViewer;{ Always normal string }
BEGIN
GetPalette := @P; { Return palette }
GetPalette := PPalette(@P); { Return palette }
END;
{--THistoryViewer-----------------------------------------------------------}
@ -3175,7 +3175,7 @@ END;
FUNCTION THistoryWindow.GetPalette: PPalette;
CONST P: String[Length(CHistoryWindow)] = CHistoryWindow;{ Always normal string }
BEGIN
GetPalette := @P; { Return the palette }
GetPalette := PPalette(@P); { Return the palette }
END;
{--THistoryWindow-----------------------------------------------------------}
@ -3226,7 +3226,7 @@ END;
FUNCTION THistory.GetPalette: PPalette;
CONST P: String[Length(CHistory)] = CHistory; { Always normal string }
BEGIN
GetPalette := @P; { Return the palette }
GetPalette := PPalette(@P); { Return the palette }
END;
{--THistory-----------------------------------------------------------------}

6
fv/editors.pas
View File

@ -1177,7 +1177,7 @@ function TIndicator.GetPalette : PPalette;
const
P : string[Length (CIndicator)] = CIndicator;
begin
GetPalette := @P;
GetPalette := PPalette(@P);
end; { TIndicator.GetPalette }
@ -1942,7 +1942,7 @@ function TEditor.GetPalette : PPalette;
CONST
P : String[Length (CEditor)] = CEditor;
begin
GetPalette := @P;
GetPalette := PPalette(@P);
end; { TEditor.GetPalette }
@ -3368,7 +3368,7 @@ function TMemo.GetPalette : PPalette;
CONST
P : String[Length (CMemo)] = CMemo;
begin
GetPalette := @P;
GetPalette := PPalette(@P);
end; { TMemo.GetPalette }

4
fv/menus.pas
View File

@ -702,7 +702,7 @@ CONST P: String = CMenuView; { Possible huge string }
CONST P: String[Length(CMenuView)] = CMenuView; { Always normal string }
{$ENDIF}
BEGIN
GetPalette := @P; { Return palette }
GetPalette := PPalette(@P); { Return palette }
END;
{--TMenuView----------------------------------------------------------------}
@ -1249,7 +1249,7 @@ CONST P: String = CStatusLine; { Possible huge string }
CONST P: String[Length(CStatusLine)] = CStatusLine; { Always normal string }
{$ENDIF}
BEGIN
GetPalette := @P; { Return palette }
GetPalette := PPalette(@P); { Return palette }
END;
{--TStatusLine--------------------------------------------------------------}