- Timestamp:
- Jun 13, 2011, 12:43:29 PM (14 years ago)
- Location:
- trunk
- Files:
-
- 1 added
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Application/UDataTypes.pas
r15 r16 20 20 procedure LoadDef(CustomType: Integer); virtual; 21 21 procedure SetDefault; virtual; 22 function GetStringValue: string; virtual; 22 23 end; 23 24 … … 74 75 TDataTypeRelationOne = class(TDataType) 75 76 ObjectId: Integer; 77 SelectedItemName: string; 78 function CreateControl(Owner: TComponent): TWinControl; override; 79 procedure SetupControl(Control: TWinControl); override; 80 procedure Load(CellValue: string); override; 81 end; 82 83 { TDataTypeRelationMany } 84 85 TDataTypeRelationMany = class(TDataType) 86 ObjectId: Integer; 87 PropertyID: Integer; 88 SelectedItemName: string; 76 89 function CreateControl(Owner: TComponent): TWinControl; override; 77 90 procedure SetupControl(Control: TWinControl); override; … … 143 156 if BaseType = Integer(vtBoolean) then begin 144 157 Result := TDataTypeBoolean.Create; 158 end else 159 if BaseType = Integer(vtRelationOne) then begin 160 Result := TDataTypeRelationOne.Create; 161 end else 162 if BaseType = Integer(vtRelationMany) then begin 163 Result := TDataTypeRelationMany.Create; 145 164 end else begin 146 165 Result := TDataTypeString.Create; … … 149 168 end; 150 169 170 { TDataTypeRelationMany } 171 172 function TDataTypeRelationMany.CreateControl(Owner: TComponent): TWinControl; 173 begin 174 Result:=inherited CreateControl(Owner); 175 end; 176 177 procedure TDataTypeRelationMany.SetupControl(Control: TWinControl); 178 begin 179 inherited SetupControl(Control); 180 end; 181 182 procedure TDataTypeRelationMany.Load(CellValue: string); 183 begin 184 inherited Load(CellValue); 185 end; 186 151 187 { TDataTypeRelationOne } 152 188 153 189 function TDataTypeRelationOne.CreateControl(Owner: TComponent): TWinControl; 154 190 begin 155 Result:=inherited CreateControl(Owner); 191 Result := TEdit.Create(Owner); 192 TEdit(Result).Enabled := False; 156 193 end; 157 194 158 195 procedure TDataTypeRelationOne.SetupControl(Control: TWinControl); 159 196 begin 160 inherited SetupControl(Control);197 TEdit(Control).Text := SelectedItemName; 161 198 end; 162 199 163 200 procedure TDataTypeRelationOne.Load(CellValue: string); 164 201 begin 165 inherited Load(CellValue);202 SelectedItemName := CellValue; 166 203 end; 167 204 … … 333 370 end; 334 371 372 function TDataType.GetStringValue: string; 373 begin 374 Result := ''; 375 end; 376 335 377 end. 336 378 -
trunk/Forms/UItemView.pas
r14 r16 110 110 for I := 0 to Report.Columns.Count - 1 do begin 111 111 DataType := TReportColumn(Report.Columns[I]).CustomType; 112 if DataType is TDataTypeRelation Onethen begin112 if DataType is TDataTypeRelationMany then begin 113 113 TabControl1.Tabs.Add(TReportColumn(Report.Columns[I]).Caption); 114 114 end else begin -
trunk/Forms/UMainForm.pas
r15 r16 289 289 Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + TypeRelationOne + '` ( ' + 290 290 '`Id` int(11) NOT NULL AUTO_INCREMENT,' + 291 '` Type` int(11) NOT NULL,' +291 '`CustomType` int(11) NOT NULL,' + 292 292 '`Object` int(11) NOT NULL,' + 293 'KEY ` Type` (`Type`),' +293 'KEY `CustomType` (`CustomType`),' + 294 294 'PRIMARY KEY (`Id`)' + 295 295 ') ENGINE=InnoDB DEFAULT CHARSET=utf8'); … … 299 299 Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + TypeRelationMany + '` ( ' + 300 300 '`Id` int(11) NOT NULL AUTO_INCREMENT,' + 301 '` Type` int(11) NOT NULL,' +301 '`CustomType` int(11) NOT NULL,' + 302 302 '`ObjectProperty` int(11) NOT NULL,' + 303 'KEY ` Type` (`Type`),' +303 'KEY `CustomType` (`CustomType`),' + 304 304 'PRIMARY KEY (`Id`)' + 305 305 ') ENGINE=InnoDB DEFAULT CHARSET=utf8'); … … 365 365 var 366 366 ObjectId: Integer; 367 ObjectGroupId: Integer; 368 PropertyParentId: Integer; 369 ObjectPropertyGroupId: Integer; 370 PropertyTypeId: Integer; 371 ObjectPropertyId: Integer; 372 ObjectPropertyIdGroup: Integer; 373 PropertyObjectId: Integer; 374 CustomTypeId: Integer; 375 CustomTypeIdType: Integer; 376 ObjectIdGroupId: Integer; 367 377 TypeNumber: Integer; 378 ObjectGroupParentId: Integer; 368 379 TypeString: Integer; 369 380 TypeBoolean: Integer; … … 405 416 GroupId := AddObjectGroup('System'); 406 417 407 ObjectId := AddObject('Object groups', 'ObjectGroup', Core.System.Database.Database, GroupId); 408 AddPropertyString(ObjectId, 'Name', 'Name'); 409 AddPropertyNumber(ObjectId, 'Parent', 'Parent'); 418 ObjectGroupId := AddObject('Object groups', 'ObjectGroup', Core.System.Database.Database, GroupId); 419 AddPropertyString(ObjectGroupId, 'Name', 'Name'); 420 ObjectGroupParentId := AddPropertyRelationOne(ObjectGroupId, 'Parent', 'Parent', ObjectGroupId); 421 410 422 ObjectId := AddObject('Objects', 'Object', Core.System.Database.Database, GroupId); 411 423 AddPropertyString(ObjectId, 'Name', 'Name'); 412 AddPropertyNumber(ObjectId, 'Group', 'Group');424 ObjectIdGroupId := AddPropertyRelationOne(ObjectId, 'Group', 'Group', ObjectGroupId); 413 425 AddPropertyString(ObjectId, 'Schema', 'Schema'); 414 426 AddPropertyString(ObjectId, 'Table', 'Table'); 415 427 AddPropertyString(ObjectId, 'Primary key', 'PrimaryKey'); 416 428 AddPropertyNumber(ObjectId, 'Sequence', 'Sequence'); 417 ObjectId := AddObject('Property types', 'Type', Core.System.Database.Database, GroupId); 418 AddPropertyString(ObjectId, 'Name', 'Name'); 419 AddPropertyString(ObjectId, 'Type', 'DbType'); 429 430 PropertyTypeId := AddObject('Property types', 'Type', Core.System.Database.Database, GroupId); 431 AddPropertyString(PropertyTypeId, 'Name', 'Name'); 432 AddPropertyString(PropertyTypeId, 'Type', 'DbType'); 420 433 //AddPropertyNumber(ObjectId, 'Parent', 'Parent'); 421 ObjectId := AddObject('Property groups', 'PropertyGroup', Core.System.Database.Database, GroupId); 422 ObjectId := AddObject('Properties', 'Property', Core.System.Database.Database, GroupId); 423 AddPropertyString(ObjectId, 'Name', 'Name'); 424 AddPropertyNumber(ObjectId, 'Object', 'Object'); 425 AddPropertyNumber(ObjectId, 'Property group', 'PropertyGroup'); 426 AddPropertyNumber(ObjectId, 'Custom type', 'CustomType'); 427 AddProperty(ObjectId, 'Editable', 'Editable', TypeBoolean); 428 AddPropertyString(ObjectId, 'Column name', 'ColumnName'); 434 435 CustomTypeId := AddObject('Custom types', 'TypeCustom', Core.System.Database.Database, GroupId); 436 CustomTypeIdType := AddPropertyRelationOne(CustomTypeId, 'Type', 'Type', PropertyTypeId); 437 438 ObjectPropertyGroupId := AddObject('Property groups', 'PropertyGroup', Core.System.Database.Database, GroupId); 439 440 ObjectPropertyId := AddObject('Properties', 'Property', Core.System.Database.Database, GroupId); 441 AddPropertyString(ObjectPropertyId, 'Name', 'Name'); 442 PropertyObjectId := AddPropertyRelationOne(ObjectPropertyId, 'Object', 'Object', ObjectId); 443 ObjectPropertyIdGroup := AddPropertyRelationOne(ObjectPropertyId, 'Property group', 'PropertyGroup', ObjectPropertyGroupId); 444 AddPropertyNumber(ObjectPropertyId, 'Custom type', 'CustomType'); 445 AddProperty(ObjectPropertyId, 'Editable', 'Editable', TypeBoolean); 446 AddPropertyString(ObjectPropertyId, 'Column name', 'ColumnName'); 447 448 AddPropertyRelationMany(ObjectGroupId, 'Childs', 'Childs', PropertyParentId); 449 AddPropertyRelationMany(ObjectGroupId, 'Objects', 'Objects', ObjectIdGroupId); 450 AddPropertyRelationMany(ObjectId, 'Properties', 'Properties', PropertyParentId); 451 AddPropertyRelationMany(ObjectPropertyGroupId, 'Properties', 'Properties', ObjectPropertyIdGroup); 452 AddPropertyRelationMany(PropertyTypeId, 'Custom types', 'CustomTypes', CustomTypeIdType); 429 453 end; 430 454 end; … … 464 488 procedure TMainForm.AItemViewExecute(Sender: TObject); 465 489 begin 466 ItemViewForm.Show; 490 if Assigned(ListView1.Selected) then 491 ItemViewForm.Show; 467 492 end; 468 493 … … 573 598 Item.Caption := Items[0]; 574 599 for I := 1 to Items.Count - 1 do 600 if not TReportColumn(Report.Columns[I]).VirtualItem then 575 601 Item.SubItems.Add(Items[I]); 576 602 end; … … 680 706 681 707 Columns.Clear; 682 for I := 0 to Report.Columns.Count - 1 do begin 708 for I := 0 to Report.Columns.Count - 1 do 709 if not TReportColumn(Report.Columns[I]).VirtualItem then begin 683 710 NewColumn := Columns.Add; 684 711 NewColumn.Caption := TReportColumn(Report.Columns[I]).Caption; … … 688 715 end; 689 716 ListView1Resize(Self); 717 ListView1SelectItem(Self, nil, False); 690 718 end; 691 719 -
trunk/USystem.pas
r15 r16 48 48 CustomType: TDataType; 49 49 ColumnName: string; 50 VirtualItem: Boolean; 50 51 end; 51 52 … … 104 105 function AddPropertyString(ObjectId: Integer; Name, ColumnName: string; 105 106 Default: string = ''; MaxLength: Integer = 255): Integer; 107 function AddPropertyRelationOne(ObjectId: Integer; Name, ColumnName: string; 108 ReferedObject: Integer): Integer; 109 function AddPropertyRelationMany(ObjectId: Integer; Name, ColumnName: string; 110 ReferedObjectProperty: Integer): Integer; 106 111 function AddObjectGroup(Name: string): Integer; 107 112 function AddEnumeration(Name: string): Integer; … … 164 169 NewColumn: TReportColumn; 165 170 ColumnsQuery: string; 171 DataType: TDataType; 166 172 begin 167 173 Clear; … … 179 185 NewColumn.CustomType := TDataTypeNumber.Create; 180 186 181 for I := 0 to Properties.Count - 1 do 182 if Properties[I].Values['CustomType'] <> IntToStr(Integer(vtRelationMany)) then begin187 for I := 0 to Properties.Count - 1 do begin 188 DataType := GetDataType(StrToInt(Properties[I].Values['CustomType'])); 183 189 NewColumn := TReportColumn.Create; 184 190 Columns.Add(NewColumn); 185 191 NewColumn.Caption := Properties[I].Values['Name']; 186 192 NewColumn.ColumnName := Properties[I].Values['ColumnName']; 187 NewColumn.CustomType := GetDataType(StrToInt(Properties[I].Values['CustomType'])); 193 NewColumn.CustomType := DataType; 194 if (DataType is TDataTypeRelationMany) then NewColumn.VirtualItem := True; 188 195 end; 189 196 … … 192 199 ColumnsQuery := ''; 193 200 for I := 0 to Columns.Count - 1 do 201 if not TReportColumn(Columns[I]).VirtualItem then 194 202 ColumnsQuery := ColumnsQuery + ', `' + TReportColumn(Columns[I]).ColumnName + '`'; 195 203 System.Delete(ColumnsQuery, 1, 2); … … 202 210 NewItem.Id := StrToInt(Values[I].Values[Obj.PrimaryKey]); 203 211 for C := 0 to Properties.Count - 1 do 204 if Properties[C].Values['CustomType'] <> IntToStr(Integer(vtRelationMany))then begin205 NewItem.Items.Add(Values[I].Values[ Properties[C].Values['ColumnName']]);206 end ;212 if not TReportColumn(Columns[C]).VirtualItem then begin 213 NewItem.Items.Add(Values[I].Values[TReportColumn(Columns[C]).ColumnName]); 214 end else NewItem.Items.Add(''); 207 215 Add(NewItem); 208 216 end; … … 328 336 Data.Add('Default', Default); 329 337 Database.Insert(TypeString, Data); 338 //CustomTypeId := Database.LastInsertId; 339 340 Result := AddProperty(ObjectId, Name, ColumnName, CustomTypeId); 341 finally 342 Data.Free; 343 DbRows.Free; 344 end; 345 end; 346 347 function TChronisBase.AddPropertyRelationOne(ObjectId: Integer; Name, 348 ColumnName: string; ReferedObject: Integer): Integer; 349 var 350 DbRows: TDbRows; 351 Data: TDictionaryStringString; 352 CustomTypeId: Integer; 353 begin 354 try 355 DbRows := TDbRows.Create; 356 Data := TDictionaryStringString.Create; 357 358 Data.Clear; 359 Data.Add('Type', IntToStr(Integer(vtRelationOne))); 360 Database.Insert(CustomTypeTableName, Data); 361 CustomTypeId := Database.LastInsertId; 362 363 Data.Clear; 364 Data.Add('CustomType', IntToStr(CustomTypeId)); 365 Data.Add('Object', IntToStr(ReferedObject)); 366 Database.Insert(TypeRelationOne, Data); 367 //CustomTypeId := Database.LastInsertId; 368 369 Result := AddProperty(ObjectId, Name, ColumnName, CustomTypeId); 370 finally 371 Data.Free; 372 DbRows.Free; 373 end; 374 end; 375 376 function TChronisBase.AddPropertyRelationMany(ObjectId: Integer; Name, 377 ColumnName: string; ReferedObjectProperty: Integer): Integer; 378 var 379 DbRows: TDbRows; 380 Data: TDictionaryStringString; 381 CustomTypeId: Integer; 382 begin 383 try 384 DbRows := TDbRows.Create; 385 Data := TDictionaryStringString.Create; 386 387 Data.Clear; 388 Data.Add('Type', IntToStr(Integer(vtRelationMany))); 389 Database.Insert(CustomTypeTableName, Data); 390 CustomTypeId := Database.LastInsertId; 391 392 Data.Clear; 393 Data.Add('CustomType', IntToStr(CustomTypeId)); 394 Data.Add('ObjectProperty', IntToStr(ReferedObjectProperty)); 395 Database.Insert(TypeRelationMany, Data); 330 396 //CustomTypeId := Database.LastInsertId; 331 397 -
trunk/chronis.lpi
r15 r16 104 104 </Item6> 105 105 </RequiredPackages> 106 <Units Count="5 7">106 <Units Count="59"> 107 107 <Unit0> 108 108 <Filename Value="chronis.lpr"/> … … 121 121 <TopLine Value="330"/> 122 122 <CursorPos X="1" Y="347"/> 123 <UsageCount Value="4 4"/>123 <UsageCount Value="43"/> 124 124 <DefaultSyntaxHighlighter Value="Delphi"/> 125 125 </Unit1> … … 133 133 <TopLine Value="118"/> 134 134 <CursorPos X="25" Y="144"/> 135 <UsageCount Value="9 8"/>135 <UsageCount Value="97"/> 136 136 <DefaultSyntaxHighlighter Value="Delphi"/> 137 137 </Unit2> … … 145 145 <TopLine Value="1"/> 146 146 <CursorPos X="24" Y="14"/> 147 <UsageCount Value="9 8"/>147 <UsageCount Value="97"/> 148 148 <DefaultSyntaxHighlighter Value="Delphi"/> 149 149 </Unit3> … … 164 164 <TopLine Value="58"/> 165 165 <CursorPos X="73" Y="232"/> 166 <UsageCount Value="26 4"/>166 <UsageCount Value="263"/> 167 167 <DefaultSyntaxHighlighter Value="Delphi"/> 168 168 </Unit5> … … 171 171 <IsPartOfProject Value="True"/> 172 172 <UnitName Value="URegistry"/> 173 <EditorIndex Value="1 4"/>173 <EditorIndex Value="13"/> 174 174 <WindowIndex Value="0"/> 175 175 <TopLine Value="19"/> … … 187 187 <EditorIndex Value="0"/> 188 188 <WindowIndex Value="0"/> 189 <TopLine Value="1 "/>190 <CursorPos X=" 36" Y="14"/>189 <TopLine Value="106"/> 190 <CursorPos X="45" Y="116"/> 191 191 <UsageCount Value="327"/> 192 192 <Loaded Value="True"/> … … 216 216 <ResourceBaseClass Value="Form"/> 217 217 <UnitName Value="ULoginForm"/> 218 <EditorIndex Value="1 6"/>218 <EditorIndex Value="14"/> 219 219 <WindowIndex Value="0"/> 220 220 <TopLine Value="14"/> … … 232 232 <ResourceBaseClass Value="Form"/> 233 233 <UnitName Value="UMainForm"/> 234 <EditorIndex Value="2"/> 235 <WindowIndex Value="0"/> 236 <TopLine Value="95"/> 237 <CursorPos X="15" Y="98"/> 234 <IsVisibleTab Value="True"/> 235 <EditorIndex Value="3"/> 236 <WindowIndex Value="0"/> 237 <TopLine Value="478"/> 238 <CursorPos X="34" Y="490"/> 238 239 <UsageCount Value="317"/> 239 240 <Loaded Value="True"/> … … 245 246 <IsPartOfProject Value="True"/> 246 247 <UnitName Value="UTreeState"/> 247 <EditorIndex Value="1 3"/>248 <EditorIndex Value="12"/> 248 249 <WindowIndex Value="0"/> 249 250 <TopLine Value="1"/> … … 259 260 <ResourceBaseClass Value="Form"/> 260 261 <UnitName Value="UItemAdd"/> 261 <EditorIndex Value=" 15"/>262 <WindowIndex Value="0"/> 263 <TopLine Value=" 13"/>262 <EditorIndex Value="2"/> 263 <WindowIndex Value="0"/> 264 <TopLine Value="49"/> 264 265 <CursorPos X="1" Y="32"/> 265 266 <UsageCount Value="313"/> … … 273 274 <TopLine Value="963"/> 274 275 <CursorPos X="3" Y="974"/> 275 <UsageCount Value=" 3"/>276 <UsageCount Value="2"/> 276 277 <DefaultSyntaxHighlighter Value="Delphi"/> 277 278 </Unit13> … … 281 282 <TopLine Value="43"/> 282 283 <CursorPos X="1" Y="60"/> 283 <UsageCount Value=" 10"/>284 <UsageCount Value="9"/> 284 285 <DefaultSyntaxHighlighter Value="Delphi"/> 285 286 </Unit14> … … 289 290 <TopLine Value="68"/> 290 291 <CursorPos X="1" Y="85"/> 291 <UsageCount Value=" 7"/>292 <UsageCount Value="6"/> 292 293 <DefaultSyntaxHighlighter Value="Delphi"/> 293 294 </Unit15> … … 298 299 <TopLine Value="593"/> 299 300 <CursorPos X="15" Y="606"/> 300 <UsageCount Value=" 2"/>301 <UsageCount Value="1"/> 301 302 <DefaultSyntaxHighlighter Value="Delphi"/> 302 303 </Unit16> … … 306 307 <TopLine Value="2104"/> 307 308 <CursorPos X="3" Y="2109"/> 308 <UsageCount Value=" 2"/>309 <UsageCount Value="1"/> 309 310 <DefaultSyntaxHighlighter Value="Delphi"/> 310 311 </Unit17> … … 315 316 <TopLine Value="1"/> 316 317 <CursorPos X="6" Y="1"/> 317 <UsageCount Value="1 3"/>318 <UsageCount Value="12"/> 318 319 <DefaultSyntaxHighlighter Value="Delphi"/> 319 320 </Unit18> … … 323 324 <TopLine Value="1"/> 324 325 <CursorPos X="3" Y="21"/> 325 <UsageCount Value="1 3"/>326 <UsageCount Value="12"/> 326 327 <DefaultSyntaxHighlighter Value="Delphi"/> 327 328 </Unit19> … … 330 331 <IsPartOfProject Value="True"/> 331 332 <UnitName Value="USystem"/> 332 <EditorIndex Value=" 11"/>333 <WindowIndex Value="0"/> 334 <TopLine Value="3 05"/>335 <CursorPos X="2 8" Y="424"/>336 <UsageCount Value=" 98"/>333 <EditorIndex Value="7"/> 334 <WindowIndex Value="0"/> 335 <TopLine Value="314"/> 336 <CursorPos X="25" Y="333"/> 337 <UsageCount Value="107"/> 337 338 <Loaded Value="True"/> 338 339 <DefaultSyntaxHighlighter Value="Delphi"/> … … 344 345 <TopLine Value="912"/> 345 346 <CursorPos X="14" Y="929"/> 346 <UsageCount Value=" 10"/>347 <UsageCount Value="9"/> 347 348 <DefaultSyntaxHighlighter Value="Delphi"/> 348 349 </Unit21> … … 352 353 <TopLine Value="1"/> 353 354 <CursorPos X="15" Y="18"/> 354 <UsageCount Value=" 8"/>355 <UsageCount Value="7"/> 355 356 <DefaultSyntaxHighlighter Value="Delphi"/> 356 357 </Unit22> … … 360 361 <TopLine Value="1"/> 361 362 <CursorPos X="11" Y="30"/> 362 <UsageCount Value=" 5"/>363 <UsageCount Value="4"/> 363 364 <DefaultSyntaxHighlighter Value="Delphi"/> 364 365 </Unit23> … … 369 370 <ResourceBaseClass Value="DataModule"/> 370 371 <UnitName Value="UCore"/> 371 <IsVisibleTab Value="True"/> 372 <EditorIndex Value="9"/> 373 <WindowIndex Value="0"/> 374 <TopLine Value="31"/> 375 <CursorPos X="31" Y="42"/> 376 <UsageCount Value="82"/> 372 <EditorIndex Value="5"/> 373 <WindowIndex Value="0"/> 374 <TopLine Value="34"/> 375 <CursorPos X="59" Y="46"/> 376 <UsageCount Value="91"/> 377 377 <Loaded Value="True"/> 378 378 <LoadedDesigner Value="True"/> … … 385 385 <ResourceBaseClass Value="Form"/> 386 386 <UnitName Value="USettingForm"/> 387 <EditorIndex Value=" 8"/>387 <EditorIndex Value="4"/> 388 388 <WindowIndex Value="0"/> 389 389 <TopLine Value="40"/> 390 390 <CursorPos X="45" Y="15"/> 391 <UsageCount Value=" 81"/>391 <UsageCount Value="90"/> 392 392 <Loaded Value="True"/> 393 393 <LoadedDesigner Value="True"/> … … 401 401 <TopLine Value="37"/> 402 402 <CursorPos X="21" Y="52"/> 403 <UsageCount Value=" 81"/>403 <UsageCount Value="90"/> 404 404 <DefaultSyntaxHighlighter Value="Delphi"/> 405 405 </Unit26> … … 410 410 <TopLine Value="97"/> 411 411 <CursorPos X="26" Y="109"/> 412 <UsageCount Value=" 8"/>412 <UsageCount Value="7"/> 413 413 <DefaultSyntaxHighlighter Value="Delphi"/> 414 414 </Unit27> … … 418 418 <TopLine Value="16"/> 419 419 <CursorPos X="14" Y="58"/> 420 <UsageCount Value=" 8"/>420 <UsageCount Value="7"/> 421 421 <DefaultSyntaxHighlighter Value="Delphi"/> 422 422 </Unit28> … … 426 426 <TopLine Value="87"/> 427 427 <CursorPos X="6" Y="103"/> 428 <UsageCount Value=" 8"/>428 <UsageCount Value="7"/> 429 429 <DefaultSyntaxHighlighter Value="Delphi"/> 430 430 </Unit29> … … 434 434 <TopLine Value="372"/> 435 435 <CursorPos X="7" Y="384"/> 436 <UsageCount Value=" 5"/>436 <UsageCount Value="4"/> 437 437 <DefaultSyntaxHighlighter Value="Delphi"/> 438 438 </Unit30> … … 442 442 <TopLine Value="82"/> 443 443 <CursorPos X="40" Y="94"/> 444 <UsageCount Value=" 5"/>444 <UsageCount Value="4"/> 445 445 <DefaultSyntaxHighlighter Value="Delphi"/> 446 446 </Unit31> … … 451 451 <TopLine Value="301"/> 452 452 <CursorPos X="3" Y="305"/> 453 <UsageCount Value=" 5"/>453 <UsageCount Value="4"/> 454 454 <DefaultSyntaxHighlighter Value="Delphi"/> 455 455 </Unit32> … … 460 460 <TopLine Value="487"/> 461 461 <CursorPos X="44" Y="500"/> 462 <UsageCount Value="2 8"/>462 <UsageCount Value="27"/> 463 463 <DefaultSyntaxHighlighter Value="Delphi"/> 464 464 </Unit33> … … 469 469 <TopLine Value="1661"/> 470 470 <CursorPos X="24" Y="1673"/> 471 <UsageCount Value="2 8"/>471 <UsageCount Value="27"/> 472 472 <DefaultSyntaxHighlighter Value="Delphi"/> 473 473 </Unit34> … … 476 476 <IsPartOfProject Value="True"/> 477 477 <UnitName Value="UDataTypes"/> 478 <EditorIndex Value="1 2"/>479 <WindowIndex Value="0"/> 480 <TopLine Value="1 93"/>481 <CursorPos X="2 8" Y="195"/>482 <UsageCount Value=" 35"/>478 <EditorIndex Value="11"/> 479 <WindowIndex Value="0"/> 480 <TopLine Value="113"/> 481 <CursorPos X="29" Y="87"/> 482 <UsageCount Value="44"/> 483 483 <Loaded Value="True"/> 484 484 <DefaultSyntaxHighlighter Value="Delphi"/> … … 490 490 <TopLine Value="1446"/> 491 491 <CursorPos X="26" Y="1458"/> 492 <UsageCount Value=" 9"/>492 <UsageCount Value="8"/> 493 493 <DefaultSyntaxHighlighter Value="Delphi"/> 494 494 </Unit36> … … 499 499 <TopLine Value="4"/> 500 500 <CursorPos X="1" Y="16"/> 501 <UsageCount Value="1 4"/>501 <UsageCount Value="13"/> 502 502 <DefaultSyntaxHighlighter Value="Delphi"/> 503 503 </Unit37> … … 508 508 <TopLine Value="1"/> 509 509 <CursorPos X="1" Y="1"/> 510 <UsageCount Value=" 10"/>510 <UsageCount Value="9"/> 511 511 </Unit38> 512 512 <Unit39> … … 516 516 <TopLine Value="1"/> 517 517 <CursorPos X="1" Y="1"/> 518 <UsageCount Value=" 10"/>518 <UsageCount Value="9"/> 519 519 </Unit39> 520 520 <Unit40> … … 524 524 <TopLine Value="5"/> 525 525 <CursorPos X="50" Y="15"/> 526 <UsageCount Value=" 10"/>526 <UsageCount Value="9"/> 527 527 </Unit40> 528 528 <Unit41> … … 532 532 <TopLine Value="88"/> 533 533 <CursorPos X="1" Y="109"/> 534 <UsageCount Value=" 10"/>534 <UsageCount Value="9"/> 535 535 </Unit41> 536 536 <Unit42> … … 539 539 <TopLine Value="1639"/> 540 540 <CursorPos X="17" Y="1651"/> 541 <UsageCount Value=" 10"/>541 <UsageCount Value="9"/> 542 542 </Unit42> 543 543 <Unit43> … … 547 547 <TopLine Value="28"/> 548 548 <CursorPos X="1" Y="1"/> 549 <UsageCount Value=" 10"/>549 <UsageCount Value="9"/> 550 550 </Unit43> 551 551 <Unit44> … … 555 555 <TopLine Value="37"/> 556 556 <CursorPos X="1" Y="1"/> 557 <UsageCount Value=" 10"/>557 <UsageCount Value="9"/> 558 558 </Unit44> 559 559 <Unit45> … … 563 563 <TopLine Value="1"/> 564 564 <CursorPos X="36" Y="13"/> 565 <UsageCount Value=" 10"/>565 <UsageCount Value="9"/> 566 566 </Unit45> 567 567 <Unit46> … … 571 571 <TopLine Value="15"/> 572 572 <CursorPos X="19" Y="27"/> 573 <UsageCount Value=" 10"/>573 <UsageCount Value="9"/> 574 574 </Unit46> 575 575 <Unit47> … … 579 579 <TopLine Value="19"/> 580 580 <CursorPos X="1" Y="1"/> 581 <UsageCount Value=" 10"/>581 <UsageCount Value="9"/> 582 582 </Unit47> 583 583 <Unit48> … … 587 587 <TopLine Value="28"/> 588 588 <CursorPos X="1" Y="1"/> 589 <UsageCount Value=" 10"/>589 <UsageCount Value="9"/> 590 590 </Unit48> 591 591 <Unit49> … … 595 595 <TopLine Value="1"/> 596 596 <CursorPos X="1" Y="1"/> 597 <UsageCount Value=" 10"/>597 <UsageCount Value="9"/> 598 598 </Unit49> 599 599 <Unit50> … … 603 603 <TopLine Value="16"/> 604 604 <CursorPos X="1" Y="1"/> 605 <UsageCount Value=" 10"/>605 <UsageCount Value="9"/> 606 606 </Unit50> 607 607 <Unit51> 608 608 <Filename Value="H:/PascalClassLibrary/Common/UDebugLog.pas"/> 609 609 <UnitName Value="UDebugLog"/> 610 <EditorIndex Value="10"/>611 610 <WindowIndex Value="0"/> 612 611 <TopLine Value="77"/> 613 612 <CursorPos X="38" Y="90"/> 614 <UsageCount Value="10"/> 615 <Loaded Value="True"/> 613 <UsageCount Value="9"/> 616 614 </Unit51> 617 615 <Unit52> 618 616 <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/> 619 <EditorIndex Value=" 3"/>620 <WindowIndex Value="0"/> 621 <TopLine Value=" 33"/>622 <CursorPos X="1 4" Y="45"/>617 <EditorIndex Value="9"/> 618 <WindowIndex Value="0"/> 619 <TopLine Value="120"/> 620 <CursorPos X="1" Y="132"/> 623 621 <UsageCount Value="10"/> 624 622 <Loaded Value="True"/> … … 626 624 <Unit53> 627 625 <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/> 628 <EditorIndex Value="7"/>629 626 <WindowIndex Value="0"/> 630 627 <TopLine Value="8"/> 631 628 <CursorPos X="62" Y="20"/> 632 <UsageCount Value="10"/> 633 <Loaded Value="True"/> 629 <UsageCount Value="9"/> 634 630 </Unit53> 635 631 <Unit54> 636 632 <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/sysstrh.inc"/> 637 <EditorIndex Value="5"/>638 633 <WindowIndex Value="0"/> 639 634 <TopLine Value="70"/> 640 635 <CursorPos X="10" Y="82"/> 641 <UsageCount Value="10"/> 642 <Loaded Value="True"/> 636 <UsageCount Value="9"/> 643 637 </Unit54> 644 638 <Unit55> 645 639 <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/sysstr.inc"/> 646 <EditorIndex Value="6"/>647 640 <WindowIndex Value="0"/> 648 641 <TopLine Value="141"/> 649 642 <CursorPos X="3" Y="144"/> 650 <UsageCount Value="10"/> 651 <Loaded Value="True"/> 643 <UsageCount Value="9"/> 652 644 </Unit55> 653 645 <Unit56> 654 646 <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/> 655 <EditorIndex Value=" 4"/>656 <WindowIndex Value="0"/> 657 <TopLine Value=" 33"/>658 <CursorPos X=" 25" Y="45"/>647 <EditorIndex Value="10"/> 648 <WindowIndex Value="0"/> 649 <TopLine Value="50"/> 650 <CursorPos X="1" Y="62"/> 659 651 <UsageCount Value="10"/> 660 652 <Loaded Value="True"/> 661 653 </Unit56> 654 <Unit57> 655 <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 656 <UnitName Value="USqlDatabase"/> 657 <EditorIndex Value="6"/> 658 <WindowIndex Value="0"/> 659 <TopLine Value="232"/> 660 <CursorPos X="31" Y="243"/> 661 <UsageCount Value="14"/> 662 <Loaded Value="True"/> 663 </Unit57> 664 <Unit58> 665 <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/> 666 <EditorIndex Value="8"/> 667 <WindowIndex Value="0"/> 668 <TopLine Value="1"/> 669 <CursorPos X="24" Y="4"/> 670 <UsageCount Value="10"/> 671 <Loaded Value="True"/> 672 </Unit58> 662 673 </Units> 663 674 <JumpHistory Count="30" HistoryIndex="29"> 664 675 <Position1> 665 <Filename Value=" Forms/UMainForm.pas"/>666 <Caret Line="1 89" Column="1" TopLine="176"/>676 <Filename Value="Application/UDataTypes.pas"/> 677 <Caret Line="149" Column="22" TopLine="130"/> 667 678 </Position1> 668 679 <Position2> 669 <Filename Value=" Forms/UMainForm.pas"/>670 <Caret Line=" 190" Column="1" TopLine="179"/>680 <Filename Value="Application/UDataTypes.pas"/> 681 <Caret Line="90" Column="35" TopLine="70"/> 671 682 </Position2> 672 683 <Position3> 673 <Filename Value=" Forms/UMainForm.pas"/>674 <Caret Line="1 93" Column="1" TopLine="179"/>684 <Filename Value="USystem.pas"/> 685 <Caret Line="109" Column="37" TopLine="94"/> 675 686 </Position3> 676 687 <Position4> 677 <Filename Value=" Forms/UMainForm.pas"/>678 <Caret Line=" 194" Column="1" TopLine="179"/>688 <Filename Value="USystem.pas"/> 689 <Caret Line="373" Column="44" TopLine="358"/> 679 690 </Position4> 680 691 <Position5> 681 692 <Filename Value="Forms/UMainForm.pas"/> 682 <Caret Line=" 195" Column="1" TopLine="179"/>693 <Caret Line="374" Column="32" TopLine="427"/> 683 694 </Position5> 684 695 <Position6> 685 696 <Filename Value="Forms/UMainForm.pas"/> 686 <Caret Line=" 197" Column="1" TopLine="179"/>697 <Caret Line="452" Column="92" TopLine="450"/> 687 698 </Position6> 688 699 <Position7> 689 700 <Filename Value="Forms/UMainForm.pas"/> 690 <Caret Line=" 198" Column="1" TopLine="191"/>701 <Caret Line="443" Column="37" TopLine="424"/> 691 702 </Position7> 692 703 <Position8> 693 <Filename Value=" Forms/UMainForm.pas"/>694 <Caret Line="2 00" Column="1" TopLine="191"/>704 <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 705 <Caret Line="244" Column="1" TopLine="232"/> 695 706 </Position8> 696 707 <Position9> 697 <Filename Value=" H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>698 <Caret Line=" 234" Column="1" TopLine="222"/>708 <Filename Value="USystem.pas"/> 709 <Caret Line="188" Column="51" TopLine="175"/> 699 710 </Position9> 700 711 <Position10> 701 <Filename Value=" H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>702 <Caret Line=" 236" Column="1" TopLine="222"/>712 <Filename Value="USystem.pas"/> 713 <Caret Line="187" Column="79" TopLine="176"/> 703 714 </Position10> 704 715 <Position11> 705 716 <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/> 706 <Caret Line=" 241" Column="9" TopLine="233"/>717 <Caret Line="132" Column="1" TopLine="120"/> 707 718 </Position11> 708 719 <Position12> 709 <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/Generic List.inc"/>710 <Caret Line=" 240" Column="9" TopLine="233"/>720 <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/> 721 <Caret Line="62" Column="1" TopLine="50"/> 711 722 </Position12> 712 723 <Position13> 713 <Filename Value=" H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>714 <Caret Line="2 41" Column="9" TopLine="233"/>724 <Filename Value="USystem.pas"/> 725 <Caret Line="211" Column="17" TopLine="197"/> 715 726 </Position13> 716 727 <Position14> 717 <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList String.inc"/>718 <Caret Line=" 20" Column="1" TopLine="16"/>728 <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/> 729 <Caret Line="132" Column="1" TopLine="120"/> 719 730 </Position14> 720 731 <Position15> 721 <Filename Value=" H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>722 <Caret Line=" 77" Column="19" TopLine="65"/>732 <Filename Value="USystem.pas"/> 733 <Caret Line="212" Column="71" TopLine="200"/> 723 734 </Position15> 724 735 <Position16> 725 <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList String.inc"/>726 <Caret Line=" 78" Column="14" TopLine="65"/>736 <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/> 737 <Caret Line="132" Column="1" TopLine="120"/> 727 738 </Position16> 728 739 <Position17> 729 <Filename Value=" Forms/UMainForm.pas"/>730 <Caret Line="2 00" Column="1" TopLine="191"/>740 <Filename Value="USystem.pas"/> 741 <Caret Line="213" Column="40" TopLine="200"/> 731 742 </Position17> 732 743 <Position18> 733 <Filename Value=" Forms/UMainForm.pas"/>734 <Caret Line=" 189" Column="21" TopLine="177"/>744 <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 745 <Caret Line="244" Column="1" TopLine="232"/> 735 746 </Position18> 736 747 <Position19> 737 <Filename Value=" H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>738 <Caret Line=" 20" Column="62" TopLine="8"/>748 <Filename Value="USystem.pas"/> 749 <Caret Line="191" Column="26" TopLine="173"/> 739 750 </Position19> 740 751 <Position20> 741 <Filename Value=" Forms/UMainForm.pas"/>742 <Caret Line=" 185" Column="1" TopLine="177"/>752 <Filename Value="USystem.pas"/> 753 <Caret Line="214" Column="11" TopLine="194"/> 743 754 </Position20> 744 755 <Position21> 745 <Filename Value=" Forms/UMainForm.pas"/>746 <Caret Line=" 186" Column="1" TopLine="177"/>756 <Filename Value="USystem.pas"/> 757 <Caret Line="213" Column="85" TopLine="202"/> 747 758 </Position21> 748 759 <Position22> 749 <Filename Value=" Forms/UMainForm.pas"/>750 <Caret Line="1 87" Column="1" TopLine="177"/>760 <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/> 761 <Caret Line="132" Column="1" TopLine="120"/> 751 762 </Position22> 752 763 <Position23> 753 764 <Filename Value="Forms/UMainForm.pas"/> 754 <Caret Line=" 189" Column="1" TopLine="177"/>765 <Caret Line="599" Column="61" TopLine="592"/> 755 766 </Position23> 756 767 <Position24> 757 768 <Filename Value="Forms/UMainForm.pas"/> 758 <Caret Line=" 197" Column="1" TopLine="177"/>769 <Caret Line="435" Column="52" TopLine="417"/> 759 770 </Position24> 760 771 <Position25> 761 772 <Filename Value="Forms/UMainForm.pas"/> 762 <Caret Line=" 198" Column="1" TopLine="184"/>773 <Caret Line="436" Column="44" TopLine="417"/> 763 774 </Position25> 764 775 <Position26> 765 776 <Filename Value="Forms/UMainForm.pas"/> 766 <Caret Line=" 200" Column="1" TopLine="184"/>777 <Caret Line="432" Column="15" TopLine="417"/> 767 778 </Position26> 768 779 <Position27> 769 780 <Filename Value="Forms/UMainForm.pas"/> 770 <Caret Line=" 215" Column="1" TopLine="203"/>781 <Caret Line="425" Column="58" TopLine="417"/> 771 782 </Position27> 772 783 <Position28> 773 784 <Filename Value="Forms/UMainForm.pas"/> 774 <Caret Line=" 226" Column="1" TopLine="212"/>785 <Caret Line="606" Column="13" TopLine="604"/> 775 786 </Position28> 776 787 <Position29> 777 788 <Filename Value="Forms/UMainForm.pas"/> 778 <Caret Line=" 241" Column="1" TopLine="232"/>789 <Caret Line="490" Column="15" TopLine="478"/> 779 790 </Position29> 780 791 <Position30> 781 792 <Filename Value="Forms/UMainForm.pas"/> 782 <Caret Line=" 250" Column="1" TopLine="232"/>793 <Caret Line="679" Column="35" TopLine="667"/> 783 794 </Position30> 784 795 </JumpHistory>
Note:
See TracChangeset
for help on using the changeset viewer.