|
|
@@ -35,6 +35,7 @@ type
|
|
|
procedure HandleEvent(var Event: TEvent); virtual;
|
|
|
function GetPalette: PPalette; virtual;
|
|
|
procedure Draw; virtual;
|
|
|
+ function DataSize: sw_word;virtual;
|
|
|
procedure SetData(var Rec);virtual;
|
|
|
procedure GetData(var Rec);virtual;
|
|
|
procedure SetState(AState: Word; Enable: Boolean); virtual;
|
|
|
@@ -433,6 +434,31 @@ begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
+function TTab.DataSize: sw_word;
|
|
|
+var
|
|
|
+ I: Sw_Word;
|
|
|
+ PT : PTabDef;
|
|
|
+ PI : PTabItem;
|
|
|
+begin
|
|
|
+ I := 0;
|
|
|
+ PT:=TabDefs;
|
|
|
+ while (PT<>nil) do
|
|
|
+ begin
|
|
|
+ PI:=PT^.Items;
|
|
|
+ while (PI<>nil) do
|
|
|
+ begin
|
|
|
+ if PI^.View<>nil then
|
|
|
+ begin
|
|
|
+ Inc(I, PI^.View^.DataSize);
|
|
|
+ end;
|
|
|
+ PI:=PI^.Next;
|
|
|
+ end;
|
|
|
+ PT:=PT^.Next;
|
|
|
+ end;
|
|
|
+ DataSize:=i;
|
|
|
+end;
|
|
|
+
|
|
|
+
|
|
|
procedure TTab.GetData(var Rec);
|
|
|
type
|
|
|
Bytes = array[0..65534] of Byte;
|
pierre