Przeglądaj źródła

Clarify block declarations / make safer.

Martijn Laan 11 miesięcy temu
rodzic
commit
a6796d8e49
2 zmienionych plików z 12 dodań i 7 usunięć
  1. 6 4
      Components/RichEditViewer.pas
  2. 6 3
      Components/ScintEdit.pas

+ 6 - 4
Components/RichEditViewer.pas

@@ -41,10 +41,12 @@ type
   
   TRichEditViewer = class(TMemo)
   private
-    FUseRichEdit: Boolean;
-    FRichEditLoaded: Boolean;
-    FCallback: IRichEditOleCallback;
-    class var FCustomShellExecute: TRichEditViewerCustomShellExecute;
+    class var
+      FCustomShellExecute: TRichEditViewerCustomShellExecute;
+    var
+      FUseRichEdit: Boolean;
+      FRichEditLoaded: Boolean;
+      FCallback: IRichEditOleCallback;
     procedure SetRTFTextProp(const Value: AnsiString);
     procedure SetUseRichEdit(Value: Boolean);
     procedure UpdateBackgroundColor;

+ 6 - 3
Components/ScintEdit.pas

@@ -545,10 +545,13 @@ type
 
   TScintPixmap = class
   private
-    class var ColorCodes: String;
+    type
+      TPixmap = array of AnsiString;
+    class var
+      ColorCodes: String;
+    var
+      FPixmap: TPixmap;
     class constructor Create;
-    type TPixmap = array of AnsiString;
-    var FPixmap: TPixmap;
     function GetPixmap: Pointer;
   public
     procedure InitializeFromBitmap(const ABitmap: TBitmap; const TransparentColor: TColorRef);