Changeset 7
- Timestamp:
- Mar 12, 2011, 7:27:23 PM (14 years ago)
- Location:
- trunk
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UCore.pas
r6 r7 6 6 7 7 uses 8 Dialogs, Classes, SysUtils, Contnrs, Graphics, SpecializedMatrix, SpecializedList; 8 Dialogs, Classes, SysUtils, Contnrs, Graphics, SpecializedMatrix, SpecializedList, 9 IntfGraphics, FPImage, LCLType, SpecializedBitmap; 9 10 10 11 const … … 94 95 FBitmap: TBitmap; 95 96 FRedrawPending: Boolean; 96 FBitmapLower: TBitmap ;97 FBitmapLower: TBitmapTColor; 97 98 function GetPlayerCount: Integer; 98 99 procedure SetBitmap(const AValue: TBitmap); … … 164 165 for X := 0 to Surface.Count.X - 1 do begin 165 166 if Random < 0.5 then 166 Surface.ItemsXY[ Y, X] := Byte(smDirt1) else167 Surface.ItemsXY[ Y, X] := Byte(smDirt2);167 Surface.ItemsXY[X, Y] := Byte(smDirt1) else 168 Surface.ItemsXY[X, Y] := Byte(smDirt2); 168 169 end; 169 170 … … 172 173 for Y := 0 to Surface.Count.Y - 1 do begin 173 174 for X := 0 to Round(Distance) - 1 do begin 174 Surface.ItemsXY[ Y, X] := Byte(smRock);175 Surface.ItemsXY[X, Y] := Byte(smRock); 175 176 end; 176 177 Delta := (Random * 2 - 1) * 3 - (Distance / (0.1 * Surface.Count.X) * 2 - 1); … … 182 183 for Y := 0 to Surface.Count.Y - 1 do begin 183 184 for X := 0 to Round(Distance) - 1 do begin 184 Surface.ItemsXY[ Y, Surface.Count.X - 1 - X] := Byte(smRock);185 Surface.ItemsXY[Surface.Count.X - 1 - X, Y] := Byte(smRock); 185 186 end; 186 187 Delta := (Random * 2 - 1) * 3 - (Distance / (0.1 * Surface.Count.X) * 2 - 1); … … 192 193 for X := 0 to Surface.Count.X - 1 do begin 193 194 for Y := 0 to Round(Distance) - 1 do begin 194 Surface.ItemsXY[ Y, X] := Byte(smRock);195 Surface.ItemsXY[X, Y] := Byte(smRock); 195 196 end; 196 197 Delta := (Random * 2 - 1) * 3 - (Distance / (0.1 * Surface.Count.Y) * 2 - 1); … … 202 203 for X := 0 to Surface.Count.X - 1 do begin 203 204 for Y := 0 to Round(Distance) - 1 do begin 204 Surface.ItemsXY[ Surface.Count.Y - 1 - Y, X] := Byte(smRock);205 Surface.ItemsXY[X, Surface.Count.Y - 1 - Y] := Byte(smRock); 205 206 end; 206 207 Delta := (Random * 2 - 1) * 3 - (Distance / (0.1 * Surface.Count.Y) * 2 - 1); … … 234 235 for X := 0 to Bitmap.Width - 1 do 235 236 Bitmap.Canvas.Pixels[X, Y] := SurfaceMatterColors[TSurfaceMatter( 236 Surface.ItemsXY[Trunc( Y / Bitmap.Height * Surface.Count.Y),237 Trunc(X / Bitmap.Width * Surface.Count.X)])];237 Surface.ItemsXY[Trunc(X / Bitmap.Width * Surface.Count.X), 238 Trunc(Y / Bitmap.Height * Surface.Count.Y)])]; 238 239 finally 239 240 Bitmap.EndUpdate; … … 294 295 for I := Bullets.Count - 1 downto 0 do 295 296 with TBullet(Bullets[I]) do begin 296 Engine.World.Surface.ItemsXY[Position. Y, Position.X] := Byte(smNothing);297 Engine.World.Surface.ItemsXY[Position.X, Position.Y] := Byte(smNothing); 297 298 298 299 Position.X := Position.X + DirectionToDelta[Direction].X; 299 300 Position.Y := Position.Y + DirectionToDelta[Direction].Y; 300 301 301 if Engine.World.Surface.ItemsXY[Position. Y, Position.X] <> Byte(smNothing) then begin302 if (Engine.World.Surface.ItemsXY[Position. Y, Position.X] = Byte(smDirt1)) or303 (Engine.World.Surface.ItemsXY[Position. Y, Position.X] = Byte(smDirt2)) then304 Engine.World.Surface.ItemsXY[Position. Y, Position.X] := Byte(smNothing);302 if Engine.World.Surface.ItemsXY[Position.X, Position.Y] <> Byte(smNothing) then begin 303 if (Engine.World.Surface.ItemsXY[Position.X, Position.Y] = Byte(smDirt1)) or 304 (Engine.World.Surface.ItemsXY[Position.X, Position.Y] = Byte(smDirt2)) then 305 Engine.World.Surface.ItemsXY[Position.X, Position.Y] := Byte(smNothing); 305 306 Bullets.Delete(I); 306 307 end else … … 309 310 (Position.Y >= Count.Y) or (Position.Y < 0) then 310 311 Bullets.Delete(I) else 311 Engine.World.Surface.ItemsXY[Position. Y, Position.X] := Byte(smBullet);312 Engine.World.Surface.ItemsXY[Position.X, Position.Y] := Byte(smBullet); 312 313 Engine.Redraw; 313 314 end; … … 319 320 XX, YY: Integer; 320 321 begin 321 with Engine.FBitmapLower.Canvas do begin 322 Brush.Color := SurfaceMatterColors[smRock]; 323 FillRect(ScreenFrame); 322 with Engine.FBitmapLower do begin 323 // Brush.Color := SurfaceMatterColors[smRock]; 324 // FillRect(ScreenFrame); 325 Fill(CreateIndex(ScreenFrame.Left, ScreenFrame.Top), 326 CreateIndex(ScreenFrame.Right - 1, ScreenFrame.Bottom - 1), SurfaceMatterColors[smRock]); 324 327 325 328 with Engine.World do … … 329 332 YY := Y - ScreenFrame.Top - ((ScreenFrame.Bottom - ScreenFrame.Top) div 2) + Position.Y; 330 333 if (YY >= 0) and (YY < Surface.Count.Y) and (XX >= 0) and (XX < Surface.Count.X) then 331 Pixels[X, Y] := SurfaceMatterColors[TSurfaceMatter(Surface.ItemsXY[YY, XX])];334 ItemsXY[X, Y] := SurfaceMatterColors[TSurfaceMatter(Surface.ItemsXY[XX, YY])]; 332 335 end; 333 Pen.Color := clBlack;334 Frame(ScreenFrame);336 //Pen.Color := clBlack; 337 //Frame(ScreenFrame); 335 338 336 339 (*CopyRect(ScreenFrame, Engine.World.Surface.Canvas, … … 361 364 then Matter := Byte(smPlayer1H) + Id * 2 362 365 else Matter := Byte(smNothing); 363 Engine.World.Surface.ItemsXY[Position.Y - HouseSize div 2 + Y, Position.X - HouseSize div 2 + X] := Matter; 366 Engine.World.Surface.ItemsXY[Position.X - HouseSize div 2 + X, 367 Position.Y - HouseSize div 2 + Y] := Matter; 364 368 end; 365 369 end; … … 376 380 XX := X + NewPosition.X - Image.Count.X div 2; 377 381 YY := Y + NewPosition.Y - Image.Count.Y div 2; 378 if (Image.ItemsXY[ Y, X] > 0) and379 (Surface.ItemsXY[ YY, XX] <> Byte(smNothing)) then382 if (Image.ItemsXY[X, Y] > 0) and 383 (Surface.ItemsXY[XX, YY] <> Byte(smNothing)) then 380 384 begin 381 385 Result := smDirt1; 382 if (Surface.ItemsXY[ YY, XX] <> Byte(smDirt1)) and383 (Surface.ItemsXY[ YY, XX] <> Byte(smDirt2)) then386 if (Surface.ItemsXY[XX, YY] <> Byte(smDirt1)) and 387 (Surface.ItemsXY[XX, YY] <> Byte(smDirt2)) then 384 388 begin 385 Result := TSurfaceMatter(Surface.ItemsXY[ YY, XX]);389 Result := TSurfaceMatter(Surface.ItemsXY[XX, YY]); 386 390 Exit; 387 391 end; … … 428 432 Image.Count := Image.CreateIndex(7, 7); 429 433 for I := 0 to 3 do 430 Image[ I, 3] := Byte(smCannon);434 Image[3, I] := Byte(smCannon); 431 435 for I := 1 to 6 do begin 432 Image[ I, 1] := Byte(smPlayer1H) + Id * 2;433 Image[ I, 5] := Byte(smPlayer1H) + Id * 2;436 Image[1, I] := Byte(smPlayer1H) + Id * 2; 437 Image[5, I] := Byte(smPlayer1H) + Id * 2; 434 438 end; 435 439 for I := 2 to 5 do begin 436 Image[ I, 2] := Byte(smPlayer1H) + Id * 2 + 1;437 Image[ I, 4] := Byte(smPlayer1H) + Id * 2 + 1;438 end; 439 Image[ 4, 3] := Byte(smPlayer1H) + Id * 2 + 1;440 Image[ 5, 3] := Byte(smPlayer1H) + Id * 2 + 1;440 Image[2, I] := Byte(smPlayer1H) + Id * 2 + 1; 441 Image[4, I] := Byte(smPlayer1H) + Id * 2 + 1; 442 end; 443 Image[3, 4] := Byte(smPlayer1H) + Id * 2 + 1; 444 Image[3, 5] := Byte(smPlayer1H) + Id * 2 + 1; 441 445 end; 442 446 Tanks.Add(NewTank); … … 446 450 Image.Count := Image.CreateIndex(7, 7); 447 451 for I := 0 to 2 do 448 Image[3 - I, 3 +I] := Byte(smCannon);452 Image[3 + I, 3 - I] := Byte(smCannon); 449 453 for I := 0 to 3 do begin 450 Image[ 3 - I,I] := Byte(smPlayer1H) + Id * 2;451 Image[ 6 - I, 3 +I] := Byte(smPlayer1H) + Id * 2;454 Image[I, 3 - I] := Byte(smPlayer1H) + Id * 2; 455 Image[3 + I, 6 - I] := Byte(smPlayer1H) + Id * 2; 452 456 end; 453 457 for I := 0 to 2 do begin 454 Image[3 - I, 1 + I] := Byte(smPlayer1H) + Id * 2 + 1; 455 Image[5 - I, 3 + I] := Byte(smPlayer1H) + Id * 2 + 1; 456 end; 458 Image[1 + I, 3 - I] := Byte(smPlayer1H) + Id * 2 + 1; 459 Image[3 + I, 5 - I] := Byte(smPlayer1H) + Id * 2 + 1; 460 end; 461 Image[3, 2] := Byte(smPlayer1H) + Id * 2 + 1; 457 462 Image[2, 3] := Byte(smPlayer1H) + Id * 2 + 1; 458 Image[ 3, 2] := Byte(smPlayer1H) + Id * 2 + 1;459 Image[ 4, 2] := Byte(smPlayer1H) + Id * 2 + 1;463 Image[2, 4] := Byte(smPlayer1H) + Id * 2 + 1; 464 Image[3, 4] := Byte(smPlayer1H) + Id * 2 + 1; 460 465 Image[4, 3] := Byte(smPlayer1H) + Id * 2 + 1; 461 Image[3, 4] := Byte(smPlayer1H) + Id * 2 + 1;462 466 end; 463 467 Tanks.Add(NewTank); … … 572 576 HorizFrameCount := 1; 573 577 end; 574 FBitmapLower. SetSize(80 * HorizFrameCount, 60 * VertFrameCount);578 FBitmapLower.Count := FBitmapLower.CreateIndex(80 * HorizFrameCount, 60 * VertFrameCount); 575 579 for I := 0 to Players.Count - 1 do begin 576 580 TPlayer(Players[I]).ScreenFrame := Rect( 577 (I mod HorizFrameCount) * (FBitmapLower. Widthdiv HorizFrameCount),578 (I div HorizFrameCount) * (FBitmapLower. Heightdiv VertFrameCount),581 (I mod HorizFrameCount) * (FBitmapLower.Count.X div HorizFrameCount), 582 (I div HorizFrameCount) * (FBitmapLower.Count.Y div VertFrameCount), 579 583 ((I mod HorizFrameCount) + 1) * (FBitmapLower.Width div HorizFrameCount), 580 584 ((I div HorizFrameCount) + 1) * (FBitmapLower.Height div VertFrameCount)); … … 586 590 constructor TEngine.Create; 587 591 begin 588 FBitmapLower := TBitmap .Create;592 FBitmapLower := TBitmapTColor.Create; 589 593 Players := TObjectList.Create; 590 594 World := TWorld.Create; … … 612 616 procedure TEngine.Draw; 613 617 var 618 IntfImage: TLazIntfImage; 614 619 I: Integer; 620 X, Y: Integer; 621 H, W: Integer; 622 Ratio: Single; 615 623 begin 616 624 if FRedrawPending then begin 617 FBitmapLower. Canvas.FillRect(0, 0, FBitmapLower.Width, FBitmapLower.Height);625 FBitmapLower.FillAll(0); 618 626 for I := 0 to Players.Count - 1 do begin 619 627 TPlayer(Players[I]).Paint; 620 628 end; 621 629 if Assigned(FBitmap) then begin 622 FBitmap.Canvas.StretchDraw(Rect(0, 0, FBitmap.Width, FBitmap.Height), FBitmapLower); 630 //FBitmap.Canvas.StretchDraw(Rect(0, 0, FBitmap.Width, FBitmap.Height), FBitmapLower); 631 try 632 IntfImage := FBitmap.CreateIntfImage; 633 if (FBitmap.Width / FBitmapLower.Width) < (FBitmap.Height / FBitmapLower.Height) then 634 Ratio := FBitmap.Width / FBitmapLower.Width 635 else Ratio := FBitmap.Height / FBitmapLower.Height; 636 for Y := 0 to Trunc(FBitmapLower.Height * Ratio) - 1 do 637 for X := 0 to Trunc(FBitmapLower.Width * Ratio) - 1 do 638 IntfImage.Colors[X, Y] := TColorToFPColor(FBitmapLower.Pixels[Trunc(X / Ratio), Trunc(Y / Ratio)]); 639 FBitmap.LoadFromIntfImage(IntfImage); 640 finally 641 IntfImage.Free; 642 end; 623 643 end; 624 644 FRedrawPending := False; -
trunk/UMainForm.lfm
r6 r7 13 13 OnShow = FormShow 14 14 LCLVersion = '0.9.31' 15 object Image1: TImage16 Left = 017 Height = 37218 Top = 019 Width = 51420 Align = alClient21 OnResize = Image1Resize22 end23 15 object StatusBar1: TStatusBar 24 16 Left = 0 … … 34 26 end> 35 27 SimplePanel = False 28 end 29 object Image1: TImage 30 Left = 0 31 Height = 372 32 Top = 0 33 Width = 514 34 Align = alClient 35 OnResize = Image1Resize 36 36 end 37 37 object TimerDraw: TTimer -
trunk/UMainForm.pas
r6 r7 81 81 procedure TMainForm.FormCreate(Sender: TObject); 82 82 begin 83 Randomize; 83 84 Engine.Bitmap := Image1.Picture.Bitmap; 84 85 with Engine do begin -
trunk/tunneler.lpi
r6 r7 42 42 </Item3> 43 43 </RequiredPackages> 44 <Units Count=" 32">44 <Units Count="40"> 45 45 <Unit0> 46 46 <Filename Value="tunneler.lpr"/> … … 50 50 <TopLine Value="1"/> 51 51 <CursorPos X="14" Y="8"/> 52 <UsageCount Value="5 1"/>52 <UsageCount Value="58"/> 53 53 </Unit0> 54 54 <Unit1> … … 58 58 <ResourceBaseClass Value="Form"/> 59 59 <UnitName Value="UMainForm"/> 60 <EditorIndex Value="3"/> 61 <WindowIndex Value="0"/> 62 <TopLine Value="24"/> 63 <CursorPos X="32" Y="32"/> 64 <UsageCount Value="51"/> 60 <IsVisibleTab Value="True"/> 61 <EditorIndex Value="13"/> 62 <WindowIndex Value="0"/> 63 <TopLine Value="22"/> 64 <CursorPos X="20" Y="36"/> 65 <UsageCount Value="58"/> 65 66 <Loaded Value="True"/> 66 67 <LoadedDesigner Value="True"/> … … 70 71 <IsPartOfProject Value="True"/> 71 72 <UnitName Value="UCore"/> 72 <IsVisibleTab Value="True"/>73 73 <EditorIndex Value="0"/> 74 74 <WindowIndex Value="0"/> 75 <TopLine Value="31 6"/>76 <CursorPos X=" 7" Y="342"/>77 <UsageCount Value="5 1"/>75 <TopLine Value="317"/> 76 <CursorPos X="44" Y="326"/> 77 <UsageCount Value="58"/> 78 78 <Loaded Value="True"/> 79 79 </Unit2> … … 84 84 <TopLine Value="35"/> 85 85 <CursorPos X="20" Y="51"/> 86 <UsageCount Value="1 1"/>86 <UsageCount Value="10"/> 87 87 </Unit3> 88 88 <Unit4> … … 92 92 <TopLine Value="52"/> 93 93 <CursorPos X="18" Y="57"/> 94 <UsageCount Value=" 10"/>94 <UsageCount Value="9"/> 95 95 </Unit4> 96 96 <Unit5> … … 100 100 <TopLine Value="1"/> 101 101 <CursorPos X="61" Y="11"/> 102 <UsageCount Value="2 5"/>102 <UsageCount Value="24"/> 103 103 </Unit5> 104 104 <Unit6> 105 105 <Filename Value="/usr/share/fpcsrc/2.4.0/rtl/objpas/classes/classesh.inc"/> 106 <EditorIndex Value="1"/>107 106 <WindowIndex Value="0"/> 108 107 <TopLine Value="1769"/> 109 108 <CursorPos X="10" Y="1786"/> 110 <UsageCount Value="10"/> 111 <Loaded Value="True"/> 109 <UsageCount Value="11"/> 112 110 </Unit6> 113 111 <Unit7> 114 112 <Filename Value="../../../lazarus/lcl/graphics.pp"/> 115 113 <UnitName Value="Graphics"/> 116 <WindowIndex Value="0"/> 117 <TopLine Value="1089"/> 118 <CursorPos X="15" Y="1136"/> 114 <EditorIndex Value="1"/> 115 <WindowIndex Value="0"/> 116 <TopLine Value="1293"/> 117 <CursorPos X="15" Y="1310"/> 119 118 <UsageCount Value="12"/> 119 <Loaded Value="True"/> 120 120 </Unit7> 121 121 <Unit8> 122 122 <Filename Value="../../../lazarus/lcl/include/rasterimage.inc"/> 123 <WindowIndex Value="0"/> 124 <TopLine Value="143"/> 125 <CursorPos X="3" Y="145"/> 126 <UsageCount Value="10"/> 123 <EditorIndex Value="2"/> 124 <WindowIndex Value="0"/> 125 <TopLine Value="548"/> 126 <CursorPos X="22" Y="552"/> 127 <UsageCount Value="10"/> 128 <Loaded Value="True"/> 127 129 </Unit8> 128 130 <Unit9> … … 131 133 <TopLine Value="34"/> 132 134 <CursorPos X="1" Y="54"/> 133 <UsageCount Value=" 9"/>135 <UsageCount Value="8"/> 134 136 </Unit9> 135 137 <Unit10> … … 139 141 <TopLine Value="1433"/> 140 142 <CursorPos X="3" Y="1449"/> 141 <UsageCount Value=" 8"/>143 <UsageCount Value="7"/> 142 144 </Unit10> 143 145 <Unit11> 144 146 <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/> 145 <EditorIndex Value=" 4"/>146 <WindowIndex Value="0"/> 147 <TopLine Value=" 149"/>148 <CursorPos X="1 " Y="171"/>149 <UsageCount Value="2 0"/>147 <EditorIndex Value="14"/> 148 <WindowIndex Value="0"/> 149 <TopLine Value="52"/> 150 <CursorPos X="15" Y="29"/> 151 <UsageCount Value="25"/> 150 152 <Loaded Value="True"/> 151 153 </Unit11> … … 153 155 <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedMatrix.pas"/> 154 156 <UnitName Value="SpecializedMatrix"/> 155 <EditorIndex Value=" 5"/>156 <WindowIndex Value="0"/> 157 <TopLine Value=" 69"/>158 <CursorPos X=" 40" Y="98"/>159 <UsageCount Value=" 18"/>157 <EditorIndex Value="16"/> 158 <WindowIndex Value="0"/> 159 <TopLine Value="16"/> 160 <CursorPos X="22" Y="33"/> 161 <UsageCount Value="22"/> 160 162 <Loaded Value="True"/> 161 163 </Unit12> … … 165 167 <TopLine Value="16"/> 166 168 <CursorPos X="19" Y="32"/> 167 <UsageCount Value="1 1"/>169 <UsageCount Value="10"/> 168 170 </Unit13> 169 171 <Unit14> … … 173 175 <TopLine Value="54"/> 174 176 <CursorPos X="3" Y="70"/> 175 <UsageCount Value="1 4"/>177 <UsageCount Value="13"/> 176 178 </Unit14> 177 179 <Unit15> 178 180 <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/> 179 <EditorIndex Value=" 6"/>180 <WindowIndex Value="0"/> 181 <TopLine Value=" 107"/>182 <CursorPos X="1" Y=" 126"/>183 <UsageCount Value=" 19"/>181 <EditorIndex Value="11"/> 182 <WindowIndex Value="0"/> 183 <TopLine Value="473"/> 184 <CursorPos X="1" Y="60"/> 185 <UsageCount Value="22"/> 184 186 <Loaded Value="True"/> 185 187 </Unit15> … … 189 191 <TopLine Value="783"/> 190 192 <CursorPos X="3" Y="785"/> 191 <UsageCount Value=" 8"/>193 <UsageCount Value="7"/> 192 194 </Unit16> 193 195 <Unit17> 194 196 <Filename Value="/usr/share/fpcsrc/2.4.0/rtl/inc/systemh.inc"/> 195 197 <WindowIndex Value="0"/> 196 <TopLine Value=" 830"/>197 <CursorPos X="11" Y=" 847"/>198 <UsageCount Value=" 8"/>198 <TopLine Value="498"/> 199 <CursorPos X="11" Y="515"/> 200 <UsageCount Value="10"/> 199 201 </Unit17> 200 202 <Unit18> … … 204 206 <TopLine Value="665"/> 205 207 <CursorPos X="27" Y="682"/> 206 <UsageCount Value=" 10"/>208 <UsageCount Value="9"/> 207 209 </Unit18> 208 210 <Unit19> … … 211 213 <TopLine Value="112"/> 212 214 <CursorPos X="10" Y="114"/> 213 <UsageCount Value=" 10"/>215 <UsageCount Value="9"/> 214 216 </Unit19> 215 217 <Unit20> … … 219 221 <TopLine Value="1035"/> 220 222 <CursorPos X="15" Y="1052"/> 221 <UsageCount Value=" 9"/>223 <UsageCount Value="8"/> 222 224 </Unit20> 223 225 <Unit21> … … 226 228 <TopLine Value="3003"/> 227 229 <CursorPos X="3" Y="3010"/> 228 <UsageCount Value=" 9"/>230 <UsageCount Value="8"/> 229 231 </Unit21> 230 232 <Unit22> … … 233 235 <TopLine Value="392"/> 234 236 <CursorPos X="1" Y="411"/> 235 <UsageCount Value=" 9"/>237 <UsageCount Value="8"/> 236 238 </Unit22> 237 239 <Unit23> 238 240 <Filename Value="../../../lazarus/lcl/include/lclintfh.inc"/> 239 <WindowIndex Value="0"/> 240 <TopLine Value="103"/> 241 <CursorPos X="10" Y="120"/> 242 <UsageCount Value="9"/> 241 <EditorIndex Value="6"/> 242 <WindowIndex Value="0"/> 243 <TopLine Value="85"/> 244 <CursorPos X="10" Y="102"/> 245 <UsageCount Value="10"/> 246 <Loaded Value="True"/> 243 247 </Unit23> 244 248 <Unit24> 245 249 <Filename Value="../../../lazarus/lcl/include/lclintf.inc"/> 246 <WindowIndex Value="0"/> 247 <TopLine Value="437"/> 248 <CursorPos X="1" Y="443"/> 249 <UsageCount Value="9"/> 250 <EditorIndex Value="7"/> 251 <WindowIndex Value="0"/> 252 <TopLine Value="157"/> 253 <CursorPos X="3" Y="159"/> 254 <UsageCount Value="10"/> 255 <Loaded Value="True"/> 250 256 </Unit24> 251 257 <Unit25> … … 254 260 <TopLine Value="9107"/> 255 261 <CursorPos X="1" Y="9124"/> 256 <UsageCount Value=" 9"/>262 <UsageCount Value="8"/> 257 263 </Unit25> 258 264 <Unit26> … … 261 267 <TopLine Value="4226"/> 262 268 <CursorPos X="1" Y="4254"/> 263 <UsageCount Value=" 9"/>269 <UsageCount Value="8"/> 264 270 </Unit26> 265 271 <Unit27> … … 269 275 <ResourceBaseClass Value="Form"/> 270 276 <UnitName Value="UMapForm"/> 277 <EditorIndex Value="12"/> 271 278 <WindowIndex Value="0"/> 272 279 <TopLine Value="15"/> 273 <CursorPos X="24" Y="39"/> 274 <UsageCount Value="30"/> 280 <CursorPos X="1" Y="38"/> 281 <UsageCount Value="37"/> 282 <Loaded Value="True"/> 275 283 </Unit27> 276 284 <Unit28> … … 279 287 <TopLine Value="858"/> 280 288 <CursorPos X="1" Y="875"/> 281 <UsageCount Value=" 10"/>289 <UsageCount Value="9"/> 282 290 </Unit28> 283 291 <Unit29> … … 286 294 <TopLine Value="2102"/> 287 295 <CursorPos X="1" Y="2119"/> 288 <UsageCount Value=" 10"/>296 <UsageCount Value="9"/> 289 297 </Unit29> 290 298 <Unit30> … … 293 301 <TopLine Value="63"/> 294 302 <CursorPos X="65" Y="81"/> 295 <UsageCount Value=" 9"/>303 <UsageCount Value="8"/> 296 304 </Unit30> 297 305 <Unit31> 298 306 <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/> 299 <EditorIndex Value=" 2"/>300 <WindowIndex Value="0"/> 301 <TopLine Value=" 60"/>302 <CursorPos X=" 1" Y="77"/>303 <UsageCount Value="1 0"/>307 <EditorIndex Value="17"/> 308 <WindowIndex Value="0"/> 309 <TopLine Value="1"/> 310 <CursorPos X="34" Y="12"/> 311 <UsageCount Value="14"/> 304 312 <Loaded Value="True"/> 305 313 </Unit31> 314 <Unit32> 315 <Filename Value="../../../lazarus/lcl/intfgraphics.pas"/> 316 <UnitName Value="IntfGraphics"/> 317 <EditorIndex Value="3"/> 318 <WindowIndex Value="0"/> 319 <TopLine Value="106"/> 320 <CursorPos X="30" Y="113"/> 321 <UsageCount Value="10"/> 322 <Loaded Value="True"/> 323 </Unit32> 324 <Unit33> 325 <Filename Value="/usr/share/fpcsrc/2.4.0/packages/fcl-image/src/fpimage.pp"/> 326 <UnitName Value="FPimage"/> 327 <EditorIndex Value="5"/> 328 <WindowIndex Value="0"/> 329 <TopLine Value="104"/> 330 <CursorPos X="3" Y="91"/> 331 <UsageCount Value="10"/> 332 <Loaded Value="True"/> 333 </Unit33> 334 <Unit34> 335 <Filename Value="/usr/share/fpcsrc/2.4.0/packages/fcl-image/src/fpimage.inc"/> 336 <WindowIndex Value="0"/> 337 <TopLine Value="325"/> 338 <CursorPos X="3" Y="327"/> 339 <UsageCount Value="10"/> 340 </Unit34> 341 <Unit35> 342 <Filename Value="../../../lazarus/lcl/graphtype.pp"/> 343 <UnitName Value="GraphType"/> 344 <EditorIndex Value="4"/> 345 <WindowIndex Value="0"/> 346 <TopLine Value="191"/> 347 <CursorPos X="3" Y="188"/> 348 <UsageCount Value="10"/> 349 <Loaded Value="True"/> 350 </Unit35> 351 <Unit36> 352 <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericBitmap.inc"/> 353 <UnitName Value="GenericBitmap"/> 354 <EditorIndex Value="10"/> 355 <WindowIndex Value="0"/> 356 <TopLine Value="9"/> 357 <CursorPos X="32" Y="26"/> 358 <UsageCount Value="12"/> 359 <Loaded Value="True"/> 360 </Unit36> 361 <Unit37> 362 <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedBitmap.pas"/> 363 <UnitName Value="SpecializedBitmap"/> 364 <EditorIndex Value="8"/> 365 <WindowIndex Value="0"/> 366 <TopLine Value="3"/> 367 <CursorPos X="22" Y="20"/> 368 <UsageCount Value="12"/> 369 <Loaded Value="True"/> 370 </Unit37> 371 <Unit38> 372 <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedList.pas"/> 373 <UnitName Value="SpecializedList"/> 374 <EditorIndex Value="9"/> 375 <WindowIndex Value="0"/> 376 <TopLine Value="91"/> 377 <CursorPos X="19" Y="107"/> 378 <UsageCount Value="12"/> 379 <Loaded Value="True"/> 380 </Unit38> 381 <Unit39> 382 <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/> 383 <EditorIndex Value="15"/> 384 <WindowIndex Value="0"/> 385 <TopLine Value="1"/> 386 <CursorPos X="1" Y="1"/> 387 <UsageCount Value="11"/> 388 <Loaded Value="True"/> 389 </Unit39> 306 390 </Units> 307 <JumpHistory Count=" 30" HistoryIndex="28">391 <JumpHistory Count="27" HistoryIndex="26"> 308 392 <Position1> 309 393 <Filename Value="UCore.pas"/> 310 <Caret Line=" 308" Column="1" TopLine="282"/>394 <Caret Line="615" Column="8" TopLine="607"/> 311 395 </Position1> 312 396 <Position2> 313 397 <Filename Value="UCore.pas"/> 314 <Caret Line=" 310" Column="1" TopLine="282"/>398 <Caret Line="634" Column="1" TopLine="607"/> 315 399 </Position2> 316 400 <Position3> 317 <Filename Value=" ../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>318 <Caret Line=" 171" Column="1" TopLine="149"/>401 <Filename Value="UCore.pas"/> 402 <Caret Line="635" Column="1" TopLine="607"/> 319 403 </Position3> 320 404 <Position4> 321 405 <Filename Value="UCore.pas"/> 322 <Caret Line=" 303" Column="21" TopLine="282"/>406 <Caret Line="636" Column="1" TopLine="608"/> 323 407 </Position4> 324 408 <Position5> 325 409 <Filename Value="UCore.pas"/> 326 <Caret Line=" 296" Column="7" TopLine="282"/>410 <Caret Line="637" Column="1" TopLine="609"/> 327 411 </Position5> 328 412 <Position6> 329 413 <Filename Value="UCore.pas"/> 330 <Caret Line=" 289" Column="1" TopLine="282"/>414 <Caret Line="626" Column="29" TopLine="610"/> 331 415 </Position6> 332 416 <Position7> 333 417 <Filename Value="UCore.pas"/> 334 <Caret Line=" 290" Column="1" TopLine="282"/>418 <Caret Line="324" Column="21" TopLine="317"/> 335 419 </Position7> 336 420 <Position8> 337 421 <Filename Value="UCore.pas"/> 338 <Caret Line=" 293" Column="1" TopLine="282"/>422 <Caret Line="432" Column="8" TopLine="417"/> 339 423 </Position8> 340 424 <Position9> 341 425 <Filename Value="UCore.pas"/> 342 <Caret Line=" 294" Column="1" TopLine="282"/>426 <Caret Line="434" Column="10" TopLine="417"/> 343 427 </Position9> 344 428 <Position10> 345 <Filename Value="U Core.pas"/>346 <Caret Line=" 295" Column="1" TopLine="282"/>429 <Filename Value="UMainForm.pas"/> 430 <Caret Line="87" Column="27" TopLine="61"/> 347 431 </Position10> 348 432 <Position11> 349 <Filename Value="U Core.pas"/>350 <Caret Line=" 297" Column="1" TopLine="282"/>433 <Filename Value="UMainForm.pas"/> 434 <Caret Line="86" Column="27" TopLine="60"/> 351 435 </Position11> 352 436 <Position12> 353 <Filename Value="U Core.pas"/>354 <Caret Line=" 298" Column="1" TopLine="282"/>437 <Filename Value="UMainForm.pas"/> 438 <Caret Line="87" Column="27" TopLine="61"/> 355 439 </Position12> 356 440 <Position13> 357 <Filename Value="U Core.pas"/>358 <Caret Line=" 300" Column="1" TopLine="282"/>441 <Filename Value="UMainForm.pas"/> 442 <Caret Line="67" Column="6" TopLine="48"/> 359 443 </Position13> 360 444 <Position14> 361 445 <Filename Value="UCore.pas"/> 362 <Caret Line=" 304" Column="1" TopLine="282"/>446 <Caret Line="126" Column="14" TopLine="109"/> 363 447 </Position14> 364 448 <Position15> 365 449 <Filename Value="UCore.pas"/> 366 <Caret Line=" 305" Column="1" TopLine="282"/>450 <Caret Line="99" Column="24" TopLine="82"/> 367 451 </Position15> 368 452 <Position16> 369 453 <Filename Value="UCore.pas"/> 370 <Caret Line=" 306" Column="1" TopLine="282"/>454 <Caret Line="530" Column="28" TopLine="530"/> 371 455 </Position16> 372 456 <Position17> 373 457 <Filename Value="UCore.pas"/> 374 <Caret Line=" 308" Column="1" TopLine="282"/>458 <Caret Line="99" Column="39" TopLine="95"/> 375 459 </Position17> 376 460 <Position18> 377 461 <Filename Value="UCore.pas"/> 378 <Caret Line=" 310" Column="1" TopLine="282"/>462 <Caret Line="530" Column="50" TopLine="530"/> 379 463 </Position18> 380 464 <Position19> 381 465 <Filename Value="UCore.pas"/> 382 <Caret Line=" 295" Column="1" TopLine="282"/>466 <Caret Line="629" Column="24" TopLine="612"/> 383 467 </Position19> 384 468 <Position20> 385 469 <Filename Value="UCore.pas"/> 386 <Caret Line=" 297" Column="1" TopLine="282"/>470 <Caret Line="98" Column="6" TopLine="93"/> 387 471 </Position20> 388 472 <Position21> 389 473 <Filename Value="UCore.pas"/> 390 <Caret Line=" 298" Column="1" TopLine="282"/>474 <Caret Line="105" Column="15" TopLine="94"/> 391 475 </Position21> 392 476 <Position22> 393 477 <Filename Value="UCore.pas"/> 394 <Caret Line=" 300" Column="1" TopLine="282"/>478 <Caret Line="632" Column="59" TopLine="615"/> 395 479 </Position22> 396 480 <Position23> 397 481 <Filename Value="UCore.pas"/> 398 <Caret Line=" 304" Column="1" TopLine="282"/>482 <Caret Line="634" Column="32" TopLine="616"/> 399 483 </Position23> 400 484 <Position24> 401 485 <Filename Value="UCore.pas"/> 402 <Caret Line=" 305" Column="1" TopLine="282"/>486 <Caret Line="637" Column="14" TopLine="620"/> 403 487 </Position24> 404 488 <Position25> 405 489 <Filename Value="UCore.pas"/> 406 <Caret Line=" 306" Column="1" TopLine="282"/>490 <Caret Line="638" Column="38" TopLine="621"/> 407 491 </Position25> 408 492 <Position26> 409 <Filename Value="U Core.pas"/>410 <Caret Line=" 274" Column="25" TopLine="252"/>493 <Filename Value="UMainForm.pas"/> 494 <Caret Line="174" Column="1" TopLine="153"/> 411 495 </Position26> 412 496 <Position27> 413 <Filename Value="U Core.pas"/>414 <Caret Line=" 273" Column="10" TopLine="252"/>497 <Filename Value="UMainForm.pas"/> 498 <Caret Line="175" Column="1" TopLine="154"/> 415 499 </Position27> 416 <Position28>417 <Filename Value="UCore.pas"/>418 <Caret Line="310" Column="36" TopLine="279"/>419 </Position28>420 <Position29>421 <Filename Value="UCore.pas"/>422 <Caret Line="288" Column="33" TopLine="273"/>423 </Position29>424 <Position30>425 <Filename Value="/usr/share/fpcsrc/2.4.0/rtl/objpas/classes/classesh.inc"/>426 <Caret Line="1786" Column="10" TopLine="1769"/>427 </Position30>428 500 </JumpHistory> 429 501 </ProjectOptions>
Note:
See TracChangeset
for help on using the changeset viewer.