ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/FileClasses/SUBT.pas
(Generate patch)

Comparing oup/current/FileClasses/SUBT.pas (file contents):
Revision 232 by alloc, Tue Jun 12 20:31:54 2007 UTC vs.
Revision 233 by alloc, Fri Jun 29 12:38:24 2007 UTC

# Line 15 | Line 15 | type
15   implementation
16  
17   uses
18 <  ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls;
18 >  ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls, Grids;
19  
20   procedure TFile_SUBT.InitDataFields;
21   var
# Line 41 | Line 41 | begin
41        AddField(TInt, $00, 'Offset', '', @tempi);
42      end;
43    end;
44 +  FFileStream.Free;
45 +  FFileStream := nil;
46   end;
47  
48  
49   procedure TFile_SUBT.InitEditor;
50   var
51 <  lab: TLabel;
51 >  grid: TStringGrid;
52   begin
53    FEditor := TFrame.Create(nil);
54 <  lab := TLabel.Create(FEditor);
55 <  lab.Left := 0;
54 <  lab.Top := 0;
55 <  lab.Caption := 'Hello World';
56 <  FEditor.InsertControl(lab);
54 >  grid := TStringGrid.Create(FEditor);
55 >  grid.Parent := FEditor;
56   end;
57  
58   end.
60 –

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)