Changeset 213 for oup/current
- Timestamp:
- Jun 12, 2007, 7:00:48 PM (18 years ago)
- Location:
- oup/current
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
oup/current/FileClasses/TXAN.pas
r212 r213 25 25 templist: TStringList; 26 26 begin 27 inherited; 27 28 FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); 28 29 templist := TStringList.Create; -
oup/current/FileClasses/TXMP.pas
r212 r213 27 27 templist: TStringList; 28 28 begin 29 inherited; 29 30 FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); 30 31 templist := TStringList.Create; -
oup/current/FileClasses/_DataTypes.pas
r212 r213 319 319 if i < Length(FDataFields) then 320 320 begin 321 ShowMessage('Field exists');321 ShowMessage('Field already exists'); 322 322 Exit; 323 323 end; -
oup/current/FileClasses/_FileTypes.pas
r212 r213 25 25 26 26 procedure InitDatLinks; virtual; abstract; 27 procedure InitDataFields; virtual; abstract;28 27 procedure InitRawList; virtual; abstract; 29 28 … … 39 38 procedure Free; 40 39 40 procedure InitDataFields; virtual; 41 41 42 property FileStream: TMemoryStream read FFileStream; 42 43 property FileID: Integer read FFileID; … … 97 98 98 99 InitDatLinks(); 99 InitDataFields();100 100 InitRawList(); 101 FDataFields := nil; 101 102 102 103 if not (Self is TFile_Empty) then … … 222 223 223 224 225 procedure TFile.InitDataFields; 226 begin 227 if Assigned(FDataFields) then 228 Exit; 229 end; 230 224 231 function GetDatLinkValue(stream: TStream; offset: Integer): Integer; 225 232 begin -
oup/current/FileClasses/_MetaManager.pas
r212 r213 29 29 constructor Create(ConnectionID: Integer); 30 30 procedure InitFile(id: Integer); 31 procedure InitFileFields(id: Integer); 31 32 32 33 property FileCount: Integer read GetFileCount; … … 59 60 procedure TMetaManager.InitFile(id: Integer); 60 61 var 61 // i: Integer;62 62 typei: Integer; 63 63 finfo: TFileInfo; … … 83 83 FFiles[id] := TFile_Empty.Create(FConnectionID, id); 84 84 Exit; 85 end; 86 end; 87 end; 88 89 procedure TMetaManager.InitFileFields(id: Integer); 90 begin 91 if id < ConManager.Connection[FConnectionID].GetFileCount then 92 begin 93 if not Assigned(FFiles[id]) then 94 begin 95 InitFile(id); 96 if not (FFiles[id] is TFile_Empty) then 97 FFiles[id].InitDataFields; 85 98 end; 86 99 end; -
oup/current/Tools/MetaEditor.pas
r212 r213 205 205 begin 206 206 if Data.Field is TFile then 207 begin 207 208 if Length(TFile(Data.Field).FileName) = 0 then 208 TargetCanvas.Font.Color := $000060; 209 TargetCanvas.Font.Color := $C06060; 210 if TFile(Data.Field).FileSize = 0 then 211 TargetCanvas.Font.Color := $2020A0; 212 end; 209 213 end; 210 214 end;
Note:
See TracChangeset
for help on using the changeset viewer.