Changeset 232 for oup/current/FileClasses

Timestamp:

Jun 28, 2007, 11:24:08 AM (18 years ago)

Author:

alloc

Message:

 

Location:

oup/current/FileClasses

Files:

• TXMP.pas (modified) (3 diffs)
• _FileTypes.pas (modified) (3 diffs)

oup/current/FileClasses/TXMP.pas

@@ -10 +10 @@
     public
       procedure InitDataFields; override;
+      procedure InitEditor; override;
   end;
 
@@ -15 +16 @@
 
 uses
-  ConnectionManager, Math, Classes, TypeDefs, _DataTypes;
+  ConnectionManager, Math, Classes, TypeDefs, _DataTypes, ExtCtrls, StdCtrls, 
+  Controls, Forms;
 
 { TFile_TXMP }
@@ -106 +108 @@
 
 
+procedure TFile_TXMP.InitEditor;
+var
+  group: TGroupBox;
+  splitter: TSplitter;
+begin
+  inherited;
+  FEditor := TFrame.Create(nil);
+  group := TGroupBox.Create(FEditor);
+  group.Align := alTop;
+  group.Height := 150;
+  group.Caption := '1. ';
+  group.Parent := FEditor;
+
+  splitter := TSplitter.Create(FEditor);
+  splitter.Align := alTop;
+  splitter.Top := group.Height + 10;
+  splitter.AutoSnap := False;
+  splitter.MinSize := 100;
+  splitter.Beveled := True;
+  splitter.Height := 8;
+  splitter.Parent := FEditor;
+
+  group := TGroupBox.Create(FEditor);
+  group.Align := alClient;
+  group.Caption := '2. ';
+  group.Parent := FEditor;
+end;
+
 end.
 

oup/current/FileClasses/_FileTypes.pas

@@ -34 +34 @@
       function GetRawPartByIndex(ID: Integer): TRawDataInfo;
       function GetChildCount: Integer;
+      function GetRawCount: Integer;
     public
       constructor Create(ConnectionID, FileID: Integer); virtual;
@@ -58 +59 @@
       property FieldByIndex[ID: Integer]: TDataField read GetFieldByIndex;
 
+      property RawCount: Integer read GetRawCount;
       property RawPartByOffset[Offset: Integer]: TRawDataInfo read GetRawPartByOffset;
       property RawPartByIndex[ID: Integer]: TRawDataInfo read GetRawPartByIndex;
@@ -177 +179 @@
 end;
 
+function TFile.GetRawCount: Integer;
+var
+  i: Integer;
+begin
+  Result := Length(FRawParts);
+  if Result > 0 then
+  begin
+    Result := 0;
+    for i := 0 to High(FRawParts) do
+      if FRawParts[i].RawSize > 0 then
+        Inc(Result);
+  end;
+end;
+
 function TFile.GetRawPartByIndex(ID: Integer): TRawDataInfo;
-begin
-  if ID < Length(FRawParts) then
-    Result := FRawParts[ID]
+var
+  i: Integer;
+  valids: Integer;
+begin
+  if ID < GetRawCount then
+  begin
+    valids := 0;
+    i := 0;
+    repeat
+      if FRawParts[i].RawSize > 0 then
+      begin
+        Inc(valids);
+      end;
+      Inc(i);
+    until valids > ID;
+    Result := FRawParts[i - 1];
+  end
   else
     with Result do