paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 16:09:17 +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; FUNCTION TBackGround.GetPalette: PPalette;
CONST P: String[Length(CBackGround)] = CbackGround; { Always normal string } CONST P: String[Length(CBackGround)] = CbackGround; { Always normal string }
BEGIN BEGIN
GetPalette := @P; { Return palette } GetPalette := PPalette(@P); { Return palette }
END; END;
{--TBackGround--------------------------------------------------------------} {--TBackGround--------------------------------------------------------------}
@ -658,7 +658,7 @@ VAR R: TRect;
BEGIN BEGIN
R.Assign(0, 0, ScreenWidth, ScreenHeight); { Full screen area } R.Assign(0, 0, ScreenWidth, ScreenHeight); { Full screen area }
Inherited Init(R); { Call ancestor } Inherited Init(R); { Call ancestor }
Application := @Self; { Set application ptr } Application := PApplication(@Self); { Set application ptr }
InitScreen; { Initialize screen } InitScreen; { Initialize screen }
State := sfVisible + sfSelected + sfFocused + State := sfVisible + sfSelected + sfFocused +
sfModal + sfExposed; { Deafult states } 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)] = CONST P: Array[dpBlueDialog..dpGrayDialog] Of String[Length(CBlueDialog)] =
(CBlueDialog, CCyanDialog, CGrayDialog); { Always normal string } (CBlueDialog, CCyanDialog, CGrayDialog); { Always normal string }
BEGIN BEGIN
GetPalette := @P[Palette]; { Return palette } GetPalette := PPalette(@P[Palette]); { Return palette }
END; END;
{--TDialog------------------------------------------------------------------} {--TDialog------------------------------------------------------------------}
@ -1329,7 +1329,7 @@ END;
FUNCTION TInputLine.GetPalette: PPalette; FUNCTION TInputLine.GetPalette: PPalette;
CONST P: String[Length(CInputLine)] = CInputLine; { Always normal string } CONST P: String[Length(CInputLine)] = CInputLine; { Always normal string }
BEGIN BEGIN
GetPalette := @P; { Return palette } GetPalette := PPalette(@P); { Return palette }
END; END;
{--TInputLine---------------------------------------------------------------} {--TInputLine---------------------------------------------------------------}
@ -1797,7 +1797,7 @@ END;
FUNCTION TButton.GetPalette: PPalette; FUNCTION TButton.GetPalette: PPalette;
CONST P: String[Length(CButton)] = CButton; { Always normal string } CONST P: String[Length(CButton)] = CButton; { Always normal string }
BEGIN BEGIN
GetPalette := @P; { Get button palette } GetPalette := PPalette(@P); { Get button palette }
END; END;
{--TButton------------------------------------------------------------------} {--TButton------------------------------------------------------------------}
@ -2098,7 +2098,7 @@ END;
FUNCTION TCluster.GetPalette: PPalette; FUNCTION TCluster.GetPalette: PPalette;
CONST P: String[Length(CCluster)] = CCluster; { Always normal string } CONST P: String[Length(CCluster)] = CCluster; { Always normal string }
BEGIN BEGIN
GetPalette := @P; { Cluster palette } GetPalette := PPalette(@P); { Cluster palette }
END; END;
{--TCluster-----------------------------------------------------------------} {--TCluster-----------------------------------------------------------------}
@ -2833,7 +2833,7 @@ END;
FUNCTION TStaticText.GetPalette: PPalette; FUNCTION TStaticText.GetPalette: PPalette;
CONST P: String[Length(CStaticText)] = CStaticText; { Always normal string } CONST P: String[Length(CStaticText)] = CStaticText; { Always normal string }
BEGIN BEGIN
GetPalette := @P; { Return palette } GetPalette := PPalette(@P); { Return palette }
END; END;
{--TStaticText--------------------------------------------------------------} {--TStaticText--------------------------------------------------------------}
@ -3005,7 +3005,7 @@ END;
FUNCTION TLabel.GetPalette: PPalette; FUNCTION TLabel.GetPalette: PPalette;
CONST P: String[Length(CLabel)] = CLabel; { Always normal string } CONST P: String[Length(CLabel)] = CLabel; { Always normal string }
BEGIN BEGIN
GetPalette := @P; { Return palette } GetPalette := PPalette(@P); { Return palette }
END; END;
{--TLabel-------------------------------------------------------------------} {--TLabel-------------------------------------------------------------------}
@ -3115,7 +3115,7 @@ END;
FUNCTION THistoryViewer.GetPalette: PPalette; FUNCTION THistoryViewer.GetPalette: PPalette;
CONST P: String[Length(CHistoryViewer)] = CHistoryViewer;{ Always normal string } CONST P: String[Length(CHistoryViewer)] = CHistoryViewer;{ Always normal string }
BEGIN BEGIN
GetPalette := @P; { Return palette } GetPalette := PPalette(@P); { Return palette }
END; END;
{--THistoryViewer-----------------------------------------------------------} {--THistoryViewer-----------------------------------------------------------}
@ -3175,7 +3175,7 @@ END;
FUNCTION THistoryWindow.GetPalette: PPalette; FUNCTION THistoryWindow.GetPalette: PPalette;
CONST P: String[Length(CHistoryWindow)] = CHistoryWindow;{ Always normal string } CONST P: String[Length(CHistoryWindow)] = CHistoryWindow;{ Always normal string }
BEGIN BEGIN
GetPalette := @P; { Return the palette } GetPalette := PPalette(@P); { Return the palette }
END; END;
{--THistoryWindow-----------------------------------------------------------} {--THistoryWindow-----------------------------------------------------------}
@ -3226,7 +3226,7 @@ END;
FUNCTION THistory.GetPalette: PPalette; FUNCTION THistory.GetPalette: PPalette;
CONST P: String[Length(CHistory)] = CHistory; { Always normal string } CONST P: String[Length(CHistory)] = CHistory; { Always normal string }
BEGIN BEGIN
GetPalette := @P; { Return the palette } GetPalette := PPalette(@P); { Return the palette }
END; END;
{--THistory-----------------------------------------------------------------} {--THistory-----------------------------------------------------------------}

6
fv/editors.pas
View File

@ -1177,7 +1177,7 @@ function TIndicator.GetPalette : PPalette;
const const
P : string[Length (CIndicator)] = CIndicator; P : string[Length (CIndicator)] = CIndicator;
begin begin
GetPalette := @P; GetPalette := PPalette(@P);
end; { TIndicator.GetPalette } end; { TIndicator.GetPalette }
@ -1942,7 +1942,7 @@ function TEditor.GetPalette : PPalette;
CONST CONST
P : String[Length (CEditor)] = CEditor; P : String[Length (CEditor)] = CEditor;
begin begin
GetPalette := @P; GetPalette := PPalette(@P);
end; { TEditor.GetPalette } end; { TEditor.GetPalette }
@ -3368,7 +3368,7 @@ function TMemo.GetPalette : PPalette;
CONST CONST
P : String[Length (CMemo)] = CMemo; P : String[Length (CMemo)] = CMemo;
begin begin
GetPalette := @P; GetPalette := PPalette(@P);
end; { TMemo.GetPalette } 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 } CONST P: String[Length(CMenuView)] = CMenuView; { Always normal string }
{$ENDIF} {$ENDIF}
BEGIN BEGIN
GetPalette := @P; { Return palette } GetPalette := PPalette(@P); { Return palette }
END; END;
{--TMenuView----------------------------------------------------------------} {--TMenuView----------------------------------------------------------------}
@ -1249,7 +1249,7 @@ CONST P: String = CStatusLine; { Possible huge string }
CONST P: String[Length(CStatusLine)] = CStatusLine; { Always normal string } CONST P: String[Length(CStatusLine)] = CStatusLine; { Always normal string }
{$ENDIF} {$ENDIF}
BEGIN BEGIN
GetPalette := @P; { Return palette } GetPalette := PPalette(@P); { Return palette }
END; END;
{--TStatusLine--------------------------------------------------------------} {--TStatusLine--------------------------------------------------------------}