Changeset 15
- Timestamp:
- Mar 22, 2011, 7:22:46 PM (14 years ago)
- Location:
- trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UCore.pas
r14 r15 11 11 const 12 12 MaxBulletCount = 10; 13 EnergySteps = 400 ;14 ShieldSteps = 40 0;13 EnergySteps = 4000; 14 ShieldSteps = 40; 15 15 ExplosionBulletCount = 100; 16 16 ExplosionRange = 20; 17 17 ExplosionBulletMaxSpeed = 0.5; 18 18 ExplosionBulletMinSpeed = 0.2; 19 BulletExplosionRange = 3; 19 20 20 21 type … … 22 23 TPlayer = class; 23 24 24 TSurfaceMatter = (smNothing, smDirt1, smDirt2, smRock, smCannon, smBullet, 25 TSurfaceMatter = (smNothing, smDirt1, smDirt2, smRock, smCannon, 26 smBullet1, smBullet2, 25 27 smPlayer1H, smPlayer1L, smPlayer2H, smPlayer2L, 26 28 smPlayer3H, smPlayer3L, smPlayer4H, smPlayer4L); … … 63 65 TPlayer = class 64 66 private 67 FExploded: Boolean; 65 68 NewDirection: Integer; 66 69 NewPosition: TPoint; 67 70 Dig: Boolean; 71 LastPos: TPoint; 72 procedure SetExploded(const AValue: Boolean); 68 73 function ShowTankProc(Item1, Item2: Byte): Byte; 69 74 function HideTankProc(Item1, Item2: Byte): Byte; … … 77 82 Keys: TPlayerKeys; 78 83 Tanks: TListObject; 79 Bullets: TListObject; 84 Bullets: TListObject; // TList<TBullet> 80 85 Energy: Real; 81 86 LastEnergy: Real; 82 87 Shield: Real; 88 LastShield: Real; 83 89 House: TRectangle; 84 Exploded: Boolean;85 90 procedure Init; 86 procedure Explosion ;91 procedure Explosion(Position: TPoint; Distance: Integer); 87 92 procedure Control; 88 93 procedure Tick; … … 95 100 constructor Create; 96 101 destructor Destroy; override; 102 property Exploded: Boolean read FExploded write SetExploded; 97 103 end; 98 104 … … 153 159 const 154 160 SurfaceMatterColors: array[TSurfaceMatter] of TColor = (clBlack, $0756b0, 155 $2170c3, TColor($9a9a9a), clYellow, clRed, 161 $2170c3, TColor($9a9a9a), clYellow, clRed, clRed, 156 162 TColor($00ff00), TColor($00a000), TColor($ff2c2c), TColor($b60000), 157 163 TColor($0000ff), TColor($0000a0), TColor($ff2cff), TColor($b600b6)); … … 389 395 if Energy <= 0 then begin 390 396 Energy := 0; 391 Explosion; 397 Explosion(Position, ExplosionRange); 398 Exploded := True; 392 399 end; 393 400 end else begin … … 400 407 end; 401 408 409 // Check shield 410 if House.IsInside(Position) then begin 411 Shield := Shield + 1 / ShieldSteps; 412 if Shield > 1 then Shield := 1; 413 end; 414 if LastShield <> Shield then begin 415 LastShield := Shield; 416 Engine.Redraw; 417 end; 418 if Shield <= 0 then begin 419 Shield := 0; 420 Explosion(Position, ExplosionRange); 421 Exploded := True; 422 end; 423 402 424 // Bullet movement 403 425 for I := Bullets.Count - 1 downto 0 do 404 with TBullet(Bullets[I]) do begin426 with TBullet(Bullets[I]), Engine.World.Surface do begin 405 427 Pos := Point(Trunc(Position.X), Trunc(Position.Y)); 406 Engine.World.Surface.ItemsXY[Pos.X, Pos.Y] := Byte(smNothing); 428 if (ItemsXY[LastPos.X, LastPos.Y] = Byte(smBullet1)) or 429 (ItemsXY[LastPos.X, LastPos.Y] = Byte(smBullet2)) then 430 ItemsXY[LastPos.X, LastPos.Y] := Byte(smNothing); 431 LastPos := Pos; 407 432 408 433 Position.X := Position.X + Direction.X; … … 418 443 Pos := Point(Trunc(Position.X), Trunc(Position.Y)); 419 444 420 if (Engine.World.Surface.ItemsXY[Pos.X, Pos.Y] <> Byte(smNothing)) and 421 (Engine.World.Surface.ItemsXY[Pos.X, Pos.Y] <> Byte(smBullet)) then begin 422 if (Engine.World.Surface.ItemsXY[Pos.X, Pos.Y] = Byte(smDirt1)) or 423 (Engine.World.Surface.ItemsXY[Pos.X, Pos.Y] = Byte(smDirt2)) then begin 424 Engine.World.Surface.ItemsXY[Pos.X, Pos.Y] := Byte(smNothing); 445 if (ItemsXY[Pos.X, Pos.Y] <> Byte(smNothing)) and 446 (ItemsXY[Pos.X, Pos.Y] <> Byte(smBullet1)) and 447 (ItemsXY[Pos.X, Pos.Y] <> Byte(smBullet2)) then begin 448 if (ItemsXY[Pos.X, Pos.Y] = Byte(smDirt1)) or 449 (ItemsXY[Pos.X, Pos.Y] = Byte(smDirt2)) then begin 450 ItemsXY[Pos.X, Pos.Y] := Byte(smNothing); 425 451 if StopByDirt then begin 452 Explosion(LastPos, BulletExplosionRange); 426 453 Bullets.Delete(I); 427 454 Engine.Redraw; … … 429 456 end; 430 457 end else begin 458 if (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer1L)) or (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer1H)) then 459 with TPlayer(Engine.Players[0]) do begin 460 Shield := Shield - 1 / ShieldSteps; 461 end; 462 if (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer2L)) or (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer2H)) then 463 with TPlayer(Engine.Players[1]) do begin 464 Shield := Shield - 1 / ShieldSteps; 465 end; 466 if (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer3L)) or (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer3H)) then 467 with TPlayer(Engine.Players[2]) do begin 468 Shield := Shield - 1 / ShieldSteps; 469 end; 470 if (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer4L)) or (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer4H)) then 471 with TPlayer(Engine.Players[3]) do begin 472 Shield := Shield - 1 / ShieldSteps; 473 end; 474 if StopByDirt then Explosion(LastPos, BulletExplosionRange); 431 475 Bullets.Delete(I); 432 476 Engine.Redraw; … … 442 486 Continue; 443 487 end; 444 Engine.World.Surface.ItemsXY[Pos.X, Pos.Y] := Byte(smBullet); 488 ItemsXY[Pos.X, Pos.Y] := Byte(smBullet1); 489 //Engine.World.Surface.ItemsXY[LastPos.X, LastPos.Y] := Byte(smBullet2); 445 490 Engine.Redraw; 446 491 end; 492 493 if not Exploded then ShowTank; 447 494 end; 448 495 … … 468 515 end; 469 516 517 // Energy bar 470 518 for I := 1 to ScreenFrame.Width - 2 do 471 519 if Energy < I / (ScreenFrame.Width - 2) then 520 ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 2] := clBlack 521 else ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 2] := clYellow; 522 523 // Shield bar 524 for I := 1 to ScreenFrame.Width - 2 do 525 if Shield < I / (ScreenFrame.Width - 2) then 472 526 ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 1] := clBlack 473 else ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 1] := cl Yellow;527 else ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 1] := clAqua; 474 528 end; 475 529 end; … … 527 581 end; 528 582 583 procedure TPlayer.SetExploded(const AValue: Boolean); 584 begin 585 if FExploded = AValue then Exit; 586 FExploded := AValue; 587 if FExploded then HideTank else ShowTank; 588 end; 589 529 590 procedure TPlayer.ShowTank; 530 591 begin … … 553 614 end; 554 615 555 procedure TPlayer.Explosion ;616 procedure TPlayer.Explosion(Position: TPoint; Distance: Integer); 556 617 var 557 618 NewBullet: TBullet; … … 561 622 begin 562 623 if not Exploded then begin 563 Exploded := True; 564 HideTank; 565 for I := 0 to ExplosionBulletCount - 1 do begin 624 for I := 0 to Distance - 1 do begin 566 625 NewBullet := TBullet.Create; 567 626 NewBullet.Player := Self; … … 570 629 NewBullet.Direction.X := Sin(Angle) * Speed; 571 630 NewBullet.Direction.Y := Cos(Angle) * Speed; 572 NewBullet.Position.X := Position.X + NewBullet.Direction.X * 3;573 NewBullet.Position.Y := Position.Y + NewBullet.Direction.Y * 3;574 NewBullet.MaxDistance := Random( ExplosionRange);631 NewBullet.Position.X := Position.X; // + NewBullet.Direction.X * 3; 632 NewBullet.Position.Y := Position.Y; // + NewBullet.Direction.Y * 3; 633 NewBullet.MaxDistance := Random(Distance); 575 634 Bullets.Add(NewBullet); 576 635 end; -
trunk/tunneler.lpi
r14 r15 50 50 <TopLine Value="1"/> 51 51 <CursorPos X="15" Y="4"/> 52 <UsageCount Value="8 2"/>52 <UsageCount Value="83"/> 53 53 </Unit0> 54 54 <Unit1> … … 58 58 <ResourceBaseClass Value="Form"/> 59 59 <UnitName Value="UMainForm"/> 60 <IsVisibleTab Value="True"/>61 60 <EditorIndex Value="11"/> 62 61 <WindowIndex Value="0"/> 63 62 <TopLine Value="19"/> 64 <CursorPos X=" 1" Y="36"/>65 <UsageCount Value="8 2"/>63 <CursorPos X="90" Y="28"/> 64 <UsageCount Value="83"/> 66 65 <Loaded Value="True"/> 67 66 <LoadedDesigner Value="True"/> … … 71 70 <IsPartOfProject Value="True"/> 72 71 <UnitName Value="UCore"/> 72 <IsVisibleTab Value="True"/> 73 73 <EditorIndex Value="0"/> 74 74 <WindowIndex Value="0"/> 75 <TopLine Value=" 350"/>76 <CursorPos X=" 22" Y="367"/>77 <UsageCount Value="8 2"/>75 <TopLine Value="1"/> 76 <CursorPos X="18" Y="14"/> 77 <UsageCount Value="83"/> 78 78 <Loaded Value="True"/> 79 79 </Unit2> … … 84 84 <TopLine Value="35"/> 85 85 <CursorPos X="20" Y="51"/> 86 <UsageCount Value=" 9"/>86 <UsageCount Value="8"/> 87 87 </Unit3> 88 88 <Unit4> … … 92 92 <TopLine Value="52"/> 93 93 <CursorPos X="18" Y="57"/> 94 <UsageCount Value=" 8"/>94 <UsageCount Value="7"/> 95 95 </Unit4> 96 96 <Unit5> … … 100 100 <TopLine Value="1"/> 101 101 <CursorPos X="61" Y="11"/> 102 <UsageCount Value="2 3"/>102 <UsageCount Value="22"/> 103 103 </Unit5> 104 104 <Unit6> … … 108 108 <TopLine Value="19"/> 109 109 <CursorPos X="4" Y="36"/> 110 <UsageCount Value="1 3"/>110 <UsageCount Value="14"/> 111 111 <Loaded Value="True"/> 112 112 </Unit6> … … 117 117 <TopLine Value="2417"/> 118 118 <CursorPos X="3" Y="2459"/> 119 <UsageCount Value="1 1"/>119 <UsageCount Value="10"/> 120 120 </Unit7> 121 121 <Unit8> … … 124 124 <TopLine Value="548"/> 125 125 <CursorPos X="22" Y="552"/> 126 <UsageCount Value=" 9"/>126 <UsageCount Value="8"/> 127 127 </Unit8> 128 128 <Unit9> … … 131 131 <TopLine Value="34"/> 132 132 <CursorPos X="1" Y="54"/> 133 <UsageCount Value=" 7"/>133 <UsageCount Value="6"/> 134 134 </Unit9> 135 135 <Unit10> … … 139 139 <TopLine Value="1433"/> 140 140 <CursorPos X="3" Y="1449"/> 141 <UsageCount Value=" 6"/>141 <UsageCount Value="5"/> 142 142 </Unit10> 143 143 <Unit11> … … 147 147 <TopLine Value="152"/> 148 148 <CursorPos X="1" Y="158"/> 149 <UsageCount Value="3 3"/>149 <UsageCount Value="34"/> 150 150 <Loaded Value="True"/> 151 151 </Unit11> … … 156 156 <TopLine Value="16"/> 157 157 <CursorPos X="22" Y="33"/> 158 <UsageCount Value="2 1"/>158 <UsageCount Value="20"/> 159 159 </Unit12> 160 160 <Unit13> … … 163 163 <TopLine Value="16"/> 164 164 <CursorPos X="19" Y="32"/> 165 <UsageCount Value=" 9"/>165 <UsageCount Value="8"/> 166 166 </Unit13> 167 167 <Unit14> … … 171 171 <TopLine Value="54"/> 172 172 <CursorPos X="3" Y="70"/> 173 <UsageCount Value="1 2"/>173 <UsageCount Value="11"/> 174 174 </Unit14> 175 175 <Unit15> … … 179 179 <TopLine Value="10"/> 180 180 <CursorPos X="21" Y="13"/> 181 <UsageCount Value="2 2"/>181 <UsageCount Value="23"/> 182 182 <Loaded Value="True"/> 183 183 </Unit15> … … 187 187 <TopLine Value="783"/> 188 188 <CursorPos X="3" Y="785"/> 189 <UsageCount Value=" 6"/>189 <UsageCount Value="5"/> 190 190 </Unit16> 191 191 <Unit17> … … 194 194 <TopLine Value="498"/> 195 195 <CursorPos X="11" Y="515"/> 196 <UsageCount Value=" 10"/>196 <UsageCount Value="9"/> 197 197 </Unit17> 198 198 <Unit18> … … 202 202 <TopLine Value="665"/> 203 203 <CursorPos X="27" Y="682"/> 204 <UsageCount Value=" 8"/>204 <UsageCount Value="7"/> 205 205 </Unit18> 206 206 <Unit19> … … 209 209 <TopLine Value="112"/> 210 210 <CursorPos X="10" Y="114"/> 211 <UsageCount Value=" 8"/>211 <UsageCount Value="7"/> 212 212 </Unit19> 213 213 <Unit20> … … 217 217 <TopLine Value="1035"/> 218 218 <CursorPos X="15" Y="1052"/> 219 <UsageCount Value=" 7"/>219 <UsageCount Value="6"/> 220 220 </Unit20> 221 221 <Unit21> … … 224 224 <TopLine Value="3003"/> 225 225 <CursorPos X="3" Y="3010"/> 226 <UsageCount Value=" 7"/>226 <UsageCount Value="6"/> 227 227 </Unit21> 228 228 <Unit22> … … 231 231 <TopLine Value="392"/> 232 232 <CursorPos X="1" Y="411"/> 233 <UsageCount Value=" 7"/>233 <UsageCount Value="6"/> 234 234 </Unit22> 235 235 <Unit23> … … 238 238 <TopLine Value="85"/> 239 239 <CursorPos X="10" Y="102"/> 240 <UsageCount Value=" 9"/>240 <UsageCount Value="8"/> 241 241 </Unit23> 242 242 <Unit24> … … 245 245 <TopLine Value="157"/> 246 246 <CursorPos X="3" Y="159"/> 247 <UsageCount Value=" 9"/>247 <UsageCount Value="8"/> 248 248 </Unit24> 249 249 <Unit25> … … 252 252 <TopLine Value="9107"/> 253 253 <CursorPos X="1" Y="9124"/> 254 <UsageCount Value=" 7"/>254 <UsageCount Value="6"/> 255 255 </Unit25> 256 256 <Unit26> … … 259 259 <TopLine Value="4226"/> 260 260 <CursorPos X="1" Y="4254"/> 261 <UsageCount Value=" 7"/>261 <UsageCount Value="6"/> 262 262 </Unit26> 263 263 <Unit27> … … 271 271 <TopLine Value="6"/> 272 272 <CursorPos X="20" Y="39"/> 273 <UsageCount Value="6 1"/>273 <UsageCount Value="62"/> 274 274 <Loaded Value="True"/> 275 275 </Unit27> … … 279 279 <TopLine Value="858"/> 280 280 <CursorPos X="1" Y="875"/> 281 <UsageCount Value=" 8"/>281 <UsageCount Value="7"/> 282 282 </Unit28> 283 283 <Unit29> … … 286 286 <TopLine Value="2102"/> 287 287 <CursorPos X="1" Y="2119"/> 288 <UsageCount Value=" 8"/>288 <UsageCount Value="7"/> 289 289 </Unit29> 290 290 <Unit30> … … 302 302 <TopLine Value="1"/> 303 303 <CursorPos X="34" Y="12"/> 304 <UsageCount Value="1 3"/>304 <UsageCount Value="12"/> 305 305 </Unit31> 306 306 <Unit32> … … 311 311 <TopLine Value="3131"/> 312 312 <CursorPos X="42" Y="3148"/> 313 <UsageCount Value="1 6"/>313 <UsageCount Value="17"/> 314 314 <Loaded Value="True"/> 315 315 </Unit32> … … 320 320 <TopLine Value="104"/> 321 321 <CursorPos X="3" Y="91"/> 322 <UsageCount Value=" 9"/>322 <UsageCount Value="8"/> 323 323 </Unit33> 324 324 <Unit34> … … 327 327 <TopLine Value="325"/> 328 328 <CursorPos X="3" Y="327"/> 329 <UsageCount Value=" 9"/>329 <UsageCount Value="8"/> 330 330 </Unit34> 331 331 <Unit35> … … 335 335 <TopLine Value="173"/> 336 336 <CursorPos X="5" Y="190"/> 337 <UsageCount Value=" 10"/>337 <UsageCount Value="9"/> 338 338 </Unit35> 339 339 <Unit36> … … 343 343 <TopLine Value="25"/> 344 344 <CursorPos X="14" Y="25"/> 345 <UsageCount Value="2 0"/>345 <UsageCount Value="21"/> 346 346 <Loaded Value="True"/> 347 347 </Unit36> … … 352 352 <TopLine Value="3"/> 353 353 <CursorPos X="22" Y="20"/> 354 <UsageCount Value="1 1"/>354 <UsageCount Value="10"/> 355 355 </Unit37> 356 356 <Unit38> … … 360 360 <TopLine Value="91"/> 361 361 <CursorPos X="19" Y="107"/> 362 <UsageCount Value="1 1"/>362 <UsageCount Value="10"/> 363 363 </Unit38> 364 364 <Unit39> … … 367 367 <TopLine Value="1"/> 368 368 <CursorPos X="1" Y="1"/> 369 <UsageCount Value=" 10"/>369 <UsageCount Value="9"/> 370 370 </Unit39> 371 371 <Unit40> … … 374 374 <TopLine Value="158"/> 375 375 <CursorPos X="23" Y="175"/> 376 <UsageCount Value=" 9"/>376 <UsageCount Value="8"/> 377 377 </Unit40> 378 378 <Unit41> … … 382 382 <TopLine Value="1"/> 383 383 <CursorPos X="9" Y="69"/> 384 <UsageCount Value=" 9"/>384 <UsageCount Value="8"/> 385 385 </Unit41> 386 386 <Unit42> … … 390 390 <TopLine Value="1"/> 391 391 <CursorPos X="1" Y="1"/> 392 <UsageCount Value=" 9"/>392 <UsageCount Value="8"/> 393 393 </Unit42> 394 394 <Unit43> … … 398 398 <TopLine Value="1"/> 399 399 <CursorPos X="14" Y="20"/> 400 <UsageCount Value=" 9"/>400 <UsageCount Value="8"/> 401 401 </Unit43> 402 402 <Unit44> … … 404 404 <IsPartOfProject Value="True"/> 405 405 <UnitName Value="UPlatform"/> 406 <UsageCount Value="4 1"/>406 <UsageCount Value="42"/> 407 407 </Unit44> 408 408 <Unit45> … … 412 412 <TopLine Value="929"/> 413 413 <CursorPos X="5" Y="932"/> 414 <UsageCount Value="1 4"/>414 <UsageCount Value="13"/> 415 415 </Unit45> 416 416 <Unit46> … … 420 420 <TopLine Value="1"/> 421 421 <CursorPos X="50" Y="5"/> 422 <UsageCount Value="1 3"/>422 <UsageCount Value="12"/> 423 423 </Unit46> 424 424 <Unit47> … … 428 428 <TopLine Value="1"/> 429 429 <CursorPos X="36" Y="15"/> 430 <UsageCount Value=" 9"/>430 <UsageCount Value="8"/> 431 431 </Unit47> 432 432 <Unit48> … … 436 436 <TopLine Value="330"/> 437 437 <CursorPos X="35" Y="338"/> 438 <UsageCount Value="1 6"/>438 <UsageCount Value="17"/> 439 439 <Loaded Value="True"/> 440 440 </Unit48> … … 445 445 <TopLine Value="58"/> 446 446 <CursorPos X="5" Y="75"/> 447 <UsageCount Value=" 10"/>447 <UsageCount Value="9"/> 448 448 </Unit49> 449 449 <Unit50> … … 455 455 <TopLine Value="120"/> 456 456 <CursorPos X="44" Y="150"/> 457 <UsageCount Value="2 6"/>457 <UsageCount Value="27"/> 458 458 <Loaded Value="True"/> 459 459 </Unit50> … … 464 464 <TopLine Value="147"/> 465 465 <CursorPos X="10" Y="84"/> 466 <UsageCount Value="1 1"/>466 <UsageCount Value="12"/> 467 467 <Loaded Value="True"/> 468 468 </Unit51> … … 470 470 <JumpHistory Count="30" HistoryIndex="29"> 471 471 <Position1> 472 <Filename Value=" UCore.pas"/>473 <Caret Line=" 376" Column="1" TopLine="354"/>472 <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/> 473 <Caret Line="214" Column="13" TopLine="188"/> 474 474 </Position1> 475 475 <Position2> 476 <Filename Value=" UCore.pas"/>477 <Caret Line=" 377" Column="1" TopLine="354"/>476 <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/> 477 <Caret Line="51" Column="26" TopLine="34"/> 478 478 </Position2> 479 479 <Position3> 480 480 <Filename Value="UCore.pas"/> 481 <Caret Line=" 379" Column="1" TopLine="354"/>481 <Caret Line="886" Column="6" TopLine="866"/> 482 482 </Position3> 483 483 <Position4> 484 <Filename Value="U Core.pas"/>485 <Caret Line=" 385" Column="1" TopLine="357"/>484 <Filename Value="UMainForm.pas"/> 485 <Caret Line="49" Column="56" TopLine="34"/> 486 486 </Position4> 487 487 <Position5> 488 <Filename Value="U Core.pas"/>489 <Caret Line=" 387" Column="1" TopLine="359"/>488 <Filename Value="UMainForm.pas"/> 489 <Caret Line="146" Column="5" TopLine="132"/> 490 490 </Position5> 491 491 <Position6> 492 <Filename Value="U Core.pas"/>493 <Caret Line=" 403" Column="1" TopLine="386"/>492 <Filename Value="UMainForm.pas"/> 493 <Caret Line="176" Column="20" TopLine="174"/> 494 494 </Position6> 495 495 <Position7> 496 <Filename Value="U Core.pas"/>497 <Caret Line=" 404" Column="1" TopLine="386"/>496 <Filename Value="UMainForm.pas"/> 497 <Caret Line="94" Column="37" TopLine="92"/> 498 498 </Position7> 499 499 <Position8> 500 <Filename Value="U Core.pas"/>501 <Caret Line=" 377" Column="10" TopLine="366"/>500 <Filename Value="UMainForm.pas"/> 501 <Caret Line="135" Column="7" TopLine="133"/> 502 502 </Position8> 503 503 <Position9> 504 504 <Filename Value="UCore.pas"/> 505 <Caret Line="1 75" Column="9" TopLine="158"/>505 <Caret Line="156" Column="13" TopLine="139"/> 506 506 </Position9> 507 507 <Position10> 508 508 <Filename Value="UCore.pas"/> 509 <Caret Line=" 555" Column="3" TopLine="537"/>509 <Caret Line="119" Column="24" TopLine="110"/> 510 510 </Position10> 511 511 <Position11> 512 <Filename Value=" ../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>513 <Caret Line=" 158" Column="1" TopLine="152"/>512 <Filename Value="UCore.pas"/> 513 <Caret Line="788" Column="15" TopLine="771"/> 514 514 </Position11> 515 515 <Position12> 516 516 <Filename Value="UCore.pas"/> 517 <Caret Line="3 74" Column="12" TopLine="363"/>517 <Caret Line="340" Column="22" TopLine="320"/> 518 518 </Position12> 519 519 <Position13> 520 <Filename Value="U Core.pas"/>521 <Caret Line=" 545" Column="6" TopLine="536"/>520 <Filename Value="UMainForm.pas"/> 521 <Caret Line="135" Column="27" TopLine="118"/> 522 522 </Position13> 523 523 <Position14> 524 <Filename Value="U Core.pas"/>525 <Caret Line=" 565" Column="106" TopLine="561"/>524 <Filename Value="UMainForm.pas"/> 525 <Caret Line="95" Column="1" TopLine="92"/> 526 526 </Position14> 527 527 <Position15> 528 <Filename Value=" ../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>529 <Caret Line=" 56" Column="58" TopLine="34"/>528 <Filename Value="UMainForm.pas"/> 529 <Caret Line="175" Column="1" TopLine="171"/> 530 530 </Position15> 531 531 <Position16> 532 <Filename Value=" ../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>533 <Caret Line=" 214" Column="13" TopLine="188"/>532 <Filename Value="UCore.pas"/> 533 <Caret Line="411" Column="10" TopLine="384"/> 534 534 </Position16> 535 535 <Position17> 536 <Filename Value=" ../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>537 <Caret Line=" 51" Column="26" TopLine="34"/>536 <Filename Value="UCore.pas"/> 537 <Caret Line="83" Column="19" TopLine="65"/> 538 538 </Position17> 539 539 <Position18> 540 540 <Filename Value="UCore.pas"/> 541 <Caret Line=" 886" Column="6" TopLine="866"/>541 <Caret Line="25" Column="14" TopLine="18"/> 542 542 </Position18> 543 543 <Position19> 544 <Filename Value="U MainForm.pas"/>545 <Caret Line=" 49" Column="56" TopLine="34"/>544 <Filename Value="UCore.pas"/> 545 <Caret Line="157" Column="59" TopLine="142"/> 546 546 </Position19> 547 547 <Position20> 548 <Filename Value="U MainForm.pas"/>549 <Caret Line=" 146" Column="5" TopLine="132"/>548 <Filename Value="UCore.pas"/> 549 <Caret Line="438" Column="67" TopLine="420"/> 550 550 </Position20> 551 551 <Position21> 552 <Filename Value="U MainForm.pas"/>553 <Caret Line=" 176" Column="20" TopLine="174"/>552 <Filename Value="UCore.pas"/> 553 <Caret Line="423" Column="16" TopLine="416"/> 554 554 </Position21> 555 555 <Position22> 556 <Filename Value="U MainForm.pas"/>557 <Caret Line=" 94" Column="37" TopLine="92"/>556 <Filename Value="UCore.pas"/> 557 <Caret Line="89" Column="24" TopLine="61"/> 558 558 </Position22> 559 559 <Position23> 560 <Filename Value="U MainForm.pas"/>561 <Caret Line=" 135" Column="7" TopLine="133"/>560 <Filename Value="UCore.pas"/> 561 <Caret Line="585" Column="31" TopLine="575"/> 562 562 </Position23> 563 563 <Position24> 564 564 <Filename Value="UCore.pas"/> 565 <Caret Line=" 156" Column="13" TopLine="139"/>565 <Caret Line="586" Column="12" TopLine="578"/> 566 566 </Position24> 567 567 <Position25> 568 568 <Filename Value="UCore.pas"/> 569 <Caret Line="1 19" Column="24" TopLine="110"/>569 <Caret Line="102" Column="1" TopLine="72"/> 570 570 </Position25> 571 571 <Position26> 572 572 <Filename Value="UCore.pas"/> 573 <Caret Line=" 788" Column="15" TopLine="771"/>573 <Caret Line="420" Column="8" TopLine="391"/> 574 574 </Position26> 575 575 <Position27> 576 576 <Filename Value="UCore.pas"/> 577 <Caret Line="3 40" Column="22" TopLine="320"/>577 <Caret Line="379" Column="42" TopLine="361"/> 578 578 </Position27> 579 579 <Position28> 580 <Filename Value="U MainForm.pas"/>581 <Caret Line=" 135" Column="27" TopLine="118"/>580 <Filename Value="UCore.pas"/> 581 <Caret Line="453" Column="17" TopLine="433"/> 582 582 </Position28> 583 583 <Position29> 584 <Filename Value="U MainForm.pas"/>585 <Caret Line=" 95" Column="1" TopLine="92"/>584 <Filename Value="UCore.pas"/> 585 <Caret Line="480" Column="88" TopLine="447"/> 586 586 </Position29> 587 587 <Position30> 588 <Filename Value="U MainForm.pas"/>589 <Caret Line=" 175" Column="1" TopLine="171"/>588 <Filename Value="UCore.pas"/> 589 <Caret Line="521" Column="66" TopLine="496"/> 590 590 </Position30> 591 591 </JumpHistory>
Note:
See TracChangeset
for help on using the changeset viewer.