Subversion Repositories fastphp

Rev

Rev 70 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 70 Rev 82
Line 1... Line 1...
1 
unit FastPHPTreeView;
 1 
unit FastPHPTreeView;
2 
 
 2 
 
3 
interface
 3 
interface
4 
 
 4 
 
5 
uses
 5 
uses
6 
  SysUtils, Classes, ComCtrls;
 6 
  SysUtils, Classes, ComCtrls;
Line 54... Line 54...
54 
uses
 54 
uses
55 
  StrUtils, Windows;
 55 
  StrUtils, Windows;
56 
 
 56 
 
57 
const
 57 
const
58 
  MAGIC_V100  = 'FAST100!';
 58 
  MAGIC_V100  = 'FAST100!';
59 
  UTF8_BOM    = '';
 59 
  UTF8_BOM    = #$EF#$BB#$BF;
60 
  LEN_ICON    = 4;
 60 
  LEN_ICON    = 4;
61 
  LEN_LINENO  = 8;
 61 
  LEN_LINENO  = 8;
62 
  LEN_DESCLEN = 4;
 62 
  LEN_DESCLEN = 4;
63 
 
 63 
 
64 
{$EXTERNALSYM LockWindowUpdate}
 64 
{$EXTERNALSYM LockWindowUpdate}
Line 132... Line 132...
132 
    begin
 132 
    begin
133 
      Rec100(nil, ptr)
 133 
      Rec100(nil, ptr)
134 
    end
 134 
    end
135 
    else
 135 
    else
136 
    begin
 136 
    begin
- 
 
 137 
      // Can happen if codeexplorer.php did output a warning
137 
      raise EFastNodeException.CreateFmt('FastNode version "%s" not supported.', [magic]);
 138 
      raise EFastNodeException.CreateFmt('FastNode version "%s" not supported. More content: %s', [magic, Read(ptr,1000)]);
138 
    end;
 139 
    end;
139 
    {$ENDREGION}
 140 
    {$ENDREGION}
140 
 
 141 
 
141 
    {$REGION 'Recover the previous current state (selected and expanded flags)'}
 142 
    {$REGION 'Recover the previous current state (selected and expanded flags)'}
142 
    for i := 0 to Self.Items.Count-1 do
 143 
    for i := 0 to Self.Items.Count-1 do