diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2009-07-09 16:15:34 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2009-07-09 16:15:34 +0200 |
commit | 2ff0e5096c48215d58551a7d198a56f8322af3c9 (patch) | |
tree | be52c05e913eb9130699916a4f7bbdc38418cbcd /uidesigner/vfdfile.pas | |
parent | ba69a69831e86bd5a3ce2fbf29bc6f9de22c9fcb (diff) | |
download | fpGUI-2ff0e5096c48215d58551a7d198a56f8322af3c9.tar.xz |
UIDesigner: Improve the method and field visibility in class declaration.
Diffstat (limited to 'uidesigner/vfdfile.pas')
-rw-r--r-- | uidesigner/vfdfile.pas | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/uidesigner/vfdfile.pas b/uidesigner/vfdfile.pas index 9928d28a..efcbedbd 100644 --- a/uidesigner/vfdfile.pas +++ b/uidesigner/vfdfile.pas @@ -38,20 +38,20 @@ type TVFDFile = class - protected - FFileData: string; + private FParsedData: string; FBlocks: TList; - public + FFileData: string; NewFormsDecl: string; NewFormsImpl: string; + procedure FreeBlocks; + procedure AddBlock(aposition: integer; ablockid, aformname, ablockdata: string); + public constructor Create; destructor Destroy; override; function LoadFile(fname: string): boolean; - procedure AddBlock(aposition: integer; ablockid, aformname, ablockdata: string); function BlockCount: integer; function Block(index: integer): TVFDFileBlock; - procedure FreeBlocks; function GetBlocks: integer; // parse file function MergeBlocks: string; // store file procedure AddNewFormDecl(formname, formheadblock: string); |