| 55,7 → 55,8 |
|---|
| StrUtils, Windows; |
| |
| const |
| LEN_MAGIC = 8; |
| MAGIC_V100 = 'FAST100!'; |
| UTF8_BOM = ''; |
| LEN_ICON = 4; |
| LEN_LINENO = 8; |
| LEN_DESCLEN = 4; |
| 117,11 → 118,24 |
|---|
| |
| {$REGION 'Update the treeview'} |
| Self.Items.Clear; |
| magic := Read(ptr, LEN_MAGIC); |
| if magic = 'FAST100!' then |
| |
| {$REGION 'Remove UTF8-BOMs'} |
| repeat |
| magic := Read(ptr, Length(UTF8_BOM)); |
| until magic <> UTF8_BOM; |
| ptr := ptr - Length(UTF8_BOM); |
| {$ENDREGION} |
| |
| magic := Read(ptr, length(MAGIC_V100)); |
| |
| if magic = MAGIC_V100 then |
| begin |
| Rec100(nil, ptr) |
| end |
| else |
| begin |
| raise EFastNodeException.CreateFmt('FastNode version "%s" not supported.', [magic]); |
| end; |
| {$ENDREGION} |
| |
| {$REGION 'Recover the previous current state (selected and expanded flags)'} |