Changeset 83 for oup/current/Tools/Template.pas
- Timestamp:
- Jan 14, 2007, 2:30:12 AM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
oup/current/Tools/Template.pas
r70 r83 61 61 FAllowedExts: String; 62 62 FAllowMultiSelect: Boolean; 63 FSelectedFile: TFileInfo; 63 64 procedure SetAllowedExts(exts: String); 64 65 procedure SetMultiSelect(allow: Boolean); … … 70 71 property AllowedExts: String read FAllowedExts write SetAllowedExts; 71 72 property AllowMultiSelect: Boolean read FAllowMultiSelect write SetMultiSelect; 73 property SelectedFile: TFileInfo read FSelectedFile; 72 74 end; 73 75 … … 203 205 inherited; 204 206 RecreateList; 207 FSelectedFile.ID := -1; 208 FSelectedFile.FileName := ''; 209 FSelectedFile.FileNameHex := ''; 205 210 if Length(ToolList) > 0 then 206 211 begin … … 267 272 fileid := OniDataConnection.ExtractFileID( 268 273 filelist.Items.Strings[filelist.ItemIndex]); 274 FSelectedFile := OniDataConnection.GetFileInfo(fileid); 269 275 if Assigned(FOnNewFileSelected) then 270 FOnNewFileSelected( OniDataConnection.GetFileInfo(fileid));276 FOnNewFileSelected(FSelectedFile); 271 277 end; 272 278 end;
Note:
See TracChangeset
for help on using the changeset viewer.