* fixed type errors

git-svn-id: trunk@4799 -

fv/app.pas

@@ -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 }

fv/dialogs.pas

@@ -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-----------------------------------------------------------------}

fv/editors.pas

@@ -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 }
 
 

fv/menus.pas

@@ -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--------------------------------------------------------------}