From ba69a69831e86bd5a3ce2fbf29bc6f9de22c9fcb Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Thu, 9 Jul 2009 12:07:48 +0200
Subject: UIDesigner: Form parser method visibility changes

 - Moved some methods from public to private
 - commented code that is not used anymore
 - updated the unit description.
---
 uidesigner/vfdformparser.pas | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'uidesigner')

diff --git a/uidesigner/vfdformparser.pas b/uidesigner/vfdformparser.pas
index df34b5f8..71de141d 100644
--- a/uidesigner/vfdformparser.pas
+++ b/uidesigner/vfdformparser.pas
@@ -12,7 +12,8 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
     Description:
-      Some Pascal source code parsing functionality.
+      This unit contains the Form Parser - used when loading a new
+      form .pas file.
 }
 
 unit vfdformparser;
@@ -33,22 +34,21 @@ uses
 
 type
   TVFDFormParser = class(TObject)
-  protected
+  private
     ffd: TFormDesigner;
     fformname: string;
     BodyLines: TStringList;
     eob: boolean;
     line: string;
     lineindex: integer;
-  public
+    procedure   ParseFormProperties;
+    procedure   ParseFormWidgets;
     procedure   NextLine;
+    function    ReadWGProperty(propline: string; wg: TfpgWidget; wgc: TVFDWidgetClass): boolean;
   public
     constructor Create(const FormName, FormHead, FormBody: string);
     destructor  Destroy; override;
     function    ParseForm: TFormDesigner;
-    procedure   ParseFormProperties;
-    procedure   ParseFormWidgets;
-    function    ReadWGProperty(propline: string; wg: TfpgWidget; wgc: TVFDWidgetClass): boolean;
   end;
 
 
@@ -181,11 +181,11 @@ var
   quot: boolean;
   c, prevc: char;
   ccode: string;
-  ids: string;
+//  ids: string;
 begin
   Result := '';
-  ids    := GetIdentifier(s);
-  if ids <> '' then
+//  ids    := GetIdentifier(s);
+//  if ids <> '' then
 {    if ids = 'u8' then
     begin
       if not CheckSymbol(s, '(') then
-- 
cgit v1.2.3-70-g09d2