diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2009-07-09 12:07:48 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2009-07-09 12:07:48 +0200 |
| commit | ba69a69831e86bd5a3ce2fbf29bc6f9de22c9fcb (patch) | |
| tree | 334542c31c3c2c4e4d879ef4ec514a426cb2028a /uidesigner | |
| parent | 22cad55e33ecd0c5075a66c232abee7695599f59 (diff) | |
| download | fpGUI-ba69a69831e86bd5a3ce2fbf29bc6f9de22c9fcb.tar.xz | |
UIDesigner: Form parser method visibility changes
- Moved some methods from public to private
- commented code that is not used anymore
- updated the unit description.
Diffstat (limited to 'uidesigner')
| -rw-r--r-- | uidesigner/vfdformparser.pas | 18 |
1 files changed, 9 insertions, 9 deletions
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 |