Changeset 16
- Timestamp:
- Mar 24, 2011, 7:05:53 AM (14 years ago)
- Location:
- trunk
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UCore.pas
r15 r16 888 888 TPlayer(Players[I]).Paint; 889 889 end; 890 890 891 if Assigned(FBitmap) then 891 892 try -
trunk/UMainForm.lfm
r14 r16 5 5 Width = 514 6 6 Caption = 'Tunneler' 7 ClientHeight = 3 897 ClientHeight = 393 8 8 ClientWidth = 514 9 9 Menu = MainMenu1 … … 17 17 object StatusBar1: TStatusBar 18 18 Left = 0 19 Height = 1720 Top = 37 219 Height = 20 20 Top = 373 21 21 Width = 514 22 22 Panels = < … … 46 46 object Image1: TImage 47 47 Left = 0 48 Height = 37 248 Height = 373 49 49 Top = 0 50 50 Width = 514 … … 78 78 Action = AFullScreen 79 79 end 80 object MenuItem8: TMenuItem 81 Action = AShowRawImageDesc 82 end 83 end 84 object MenuItem7: TMenuItem 85 Action = AAbout 80 86 end 81 87 end … … 109 115 ShortCut = 123 110 116 end 117 object AAbout: TAction 118 Caption = 'About' 119 end 120 object AShowRawImageDesc: TAction 121 Caption = 'Show RawImage Description' 122 OnExecute = AShowRawImageDescExecute 123 end 111 124 end 112 125 end -
trunk/UMainForm.pas
r14 r16 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, 9 ComCtrls, Menus, ActnList, UCore, UPlatform, Math, DateUtils ;9 ComCtrls, Menus, ActnList, UCore, UPlatform, Math, DateUtils, GraphType; 10 10 11 11 type … … 14 14 15 15 TMainForm = class(TForm) 16 AAbout: TAction; 17 AShowRawImageDesc: TAction; 16 18 AShowMap: TAction; 17 19 ANewGame: TAction; … … 27 29 MenuItem5: TMenuItem; 28 30 MenuItem6: TMenuItem; 31 MenuItem7: TMenuItem; 32 MenuItem8: TMenuItem; 29 33 StatusBar1: TStatusBar; 30 34 TimerDraw: TTimer; … … 34 38 procedure ANewGameExecute(Sender: TObject); 35 39 procedure AShowMapExecute(Sender: TObject); 40 procedure AShowRawImageDescExecute(Sender: TObject); 36 41 procedure FormCreate(Sender: TObject); 37 42 procedure FormDeactivate(Sender: TObject); … … 172 177 end; 173 178 179 procedure TMainForm.AShowRawImageDescExecute(Sender: TObject); 180 var 181 List: TStringList; 182 begin 183 with Image1.Picture.Bitmap.RawImage, Description do 184 try 185 List := TStringList.Create; 186 with List do begin 187 Add('Format: ' + RawImageColorFormatNames[Format]); 188 Add('Width: ' + IntToStr(Width)); 189 Add('Height: ' + IntToStr(Height)); 190 Add('Depth: ' + IntToStr(Depth)); 191 Add('BitOrder: ' + RawImageBitOrderNames[BitOrder]); 192 Add('ByteOrder: ' + RawImageByteOrderNames[ByteOrder]); 193 Add('LineOrder: ' + RawImageLineOrderNames[LineOrder]); 194 Add('LineEnd: ' + RawImageLineEndNames[LineEnd]); 195 Add('BitsPerPixel: ' + IntToStr(BitsPerPixel)); 196 Add('RedPrec: ' + IntToStr(RedPrec)); 197 Add('RedShift: ' + IntToStr(RedShift)); 198 Add('GreenPrec: ' + IntToStr(GreenPrec)); 199 Add('GreenShift: ' + IntToStr(GreenShift)); 200 Add('BluePrec: ' + IntToStr(BluePrec)); 201 Add('BlueShift: ' + IntToStr(BlueShift)); 202 Add('AlphaPrec: ' + IntToStr(AlphaPrec)); 203 Add('AlphaShift: ' + IntToStr(AlphaShift)); 204 end; 205 ShowMessage(List.Text); 206 finally 207 List.Free; 208 end; 209 end; 210 174 211 procedure TMainForm.AExitExecute(Sender: TObject); 175 212 begin -
trunk/tunneler.lpi
r15 r16 42 42 </Item3> 43 43 </RequiredPackages> 44 <Units Count="5 2">44 <Units Count="53"> 45 45 <Unit0> 46 46 <Filename Value="tunneler.lpr"/> … … 58 58 <ResourceBaseClass Value="Form"/> 59 59 <UnitName Value="UMainForm"/> 60 <EditorIndex Value="11"/> 61 <WindowIndex Value="0"/> 62 <TopLine Value="19"/> 63 <CursorPos X="90" Y="28"/> 60 <IsVisibleTab Value="True"/> 61 <EditorIndex Value="4"/> 62 <WindowIndex Value="0"/> 63 <TopLine Value="190"/> 64 <CursorPos X="1" Y="206"/> 64 65 <UsageCount Value="83"/> 65 66 <Loaded 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=" 1"/>76 <CursorPos X=" 18" Y="14"/>75 <TopLine Value="885"/> 76 <CursorPos X="40" Y="895"/> 77 77 <UsageCount Value="83"/> 78 78 <Loaded Value="True"/> … … 104 104 <Unit6> 105 105 <Filename Value="/usr/share/fpcsrc/2.4.0/rtl/objpas/classes/classesh.inc"/> 106 <EditorIndex Value="5"/>107 106 <WindowIndex Value="0"/> 108 107 <TopLine Value="19"/> 109 108 <CursorPos X="4" Y="36"/> 110 109 <UsageCount Value="14"/> 111 <Loaded Value="True"/>112 110 </Unit6> 113 111 <Unit7> … … 143 141 <Unit11> 144 142 <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/> 145 <EditorIndex Value="4"/>146 143 <WindowIndex Value="0"/> 147 144 <TopLine Value="152"/> 148 145 <CursorPos X="1" Y="158"/> 149 146 <UsageCount Value="34"/> 150 <Loaded Value="True"/>151 147 </Unit11> 152 148 <Unit12> … … 175 171 <Unit15> 176 172 <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/> 177 <EditorIndex Value="1"/>178 173 <WindowIndex Value="0"/> 179 174 <TopLine Value="10"/> 180 175 <CursorPos X="21" Y="13"/> 181 176 <UsageCount Value="23"/> 182 <Loaded Value="True"/>183 177 </Unit15> 184 178 <Unit16> … … 267 261 <ResourceBaseClass Value="Form"/> 268 262 <UnitName Value="UMapForm"/> 269 <EditorIndex Value=" 10"/>263 <EditorIndex Value="3"/> 270 264 <WindowIndex Value="0"/> 271 265 <TopLine Value="6"/> … … 290 284 <Unit30> 291 285 <Filename Value="/usr/share/fpcsrc/2.4.0/rtl/inc/mathh.inc"/> 292 <EditorIndex Value="3"/>293 286 <WindowIndex Value="0"/> 294 287 <TopLine Value="58"/> 295 288 <CursorPos X="14" Y="75"/> 296 289 <UsageCount Value="16"/> 297 <Loaded Value="True"/>298 290 </Unit30> 299 291 <Unit31> … … 307 299 <Filename Value="../../../lazarus/lcl/intfgraphics.pas"/> 308 300 <UnitName Value="IntfGraphics"/> 309 <EditorIndex Value="9"/>310 301 <WindowIndex Value="0"/> 311 302 <TopLine Value="3131"/> 312 303 <CursorPos X="42" Y="3148"/> 313 304 <UsageCount Value="17"/> 314 <Loaded Value="True"/>315 305 </Unit32> 316 306 <Unit33> … … 339 329 <Unit36> 340 330 <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericBitmap.inc"/> 341 <EditorIndex Value="7"/>342 331 <WindowIndex Value="0"/> 343 332 <TopLine Value="25"/> 344 333 <CursorPos X="14" Y="25"/> 345 334 <UsageCount Value="21"/> 346 <Loaded Value="True"/>347 335 </Unit36> 348 336 <Unit37> … … 432 420 <Unit48> 433 421 <Filename Value="../../../lazarus/lcl/include/custombitmap.inc"/> 434 <EditorIndex Value="8"/>435 422 <WindowIndex Value="0"/> 436 423 <TopLine Value="330"/> 437 424 <CursorPos X="35" Y="338"/> 438 425 <UsageCount Value="17"/> 439 <Loaded Value="True"/>440 426 </Unit48> 441 427 <Unit49> … … 451 437 <IsPartOfProject Value="True"/> 452 438 <UnitName Value="URectangle"/> 453 <EditorIndex Value=" 6"/>439 <EditorIndex Value="2"/> 454 440 <WindowIndex Value="0"/> 455 441 <TopLine Value="120"/> … … 460 446 <Unit51> 461 447 <Filename Value="/usr/share/fpcsrc/2.4.0/rtl/objpas/sysutils/sysstrh.inc"/> 462 <EditorIndex Value="2"/>463 448 <WindowIndex Value="0"/> 464 449 <TopLine Value="147"/> 465 450 <CursorPos X="10" Y="84"/> 466 451 <UsageCount Value="12"/> 452 </Unit51> 453 <Unit52> 454 <Filename Value="../../FreePascalManager/trunk/Instance/1/Lazarus/lcl/graphtype.pp"/> 455 <UnitName Value="GraphType"/> 456 <EditorIndex Value="1"/> 457 <WindowIndex Value="0"/> 458 <TopLine Value="66"/> 459 <CursorPos X="20" Y="79"/> 460 <UsageCount Value="10"/> 467 461 <Loaded Value="True"/> 468 </Unit5 1>462 </Unit52> 469 463 </Units> 470 <JumpHistory Count=" 30" HistoryIndex="29">464 <JumpHistory Count="25" HistoryIndex="24"> 471 465 <Position1> 472 <Filename Value=" ../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>473 <Caret Line=" 214" Column="13" TopLine="188"/>466 <Filename Value="UCore.pas"/> 467 <Caret Line="102" Column="1" TopLine="72"/> 474 468 </Position1> 475 469 <Position2> 476 <Filename Value=" ../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>477 <Caret Line=" 51" Column="26" TopLine="34"/>470 <Filename Value="UCore.pas"/> 471 <Caret Line="420" Column="8" TopLine="391"/> 478 472 </Position2> 479 473 <Position3> 480 474 <Filename Value="UCore.pas"/> 481 <Caret Line=" 886" Column="6" TopLine="866"/>475 <Caret Line="379" Column="42" TopLine="361"/> 482 476 </Position3> 483 477 <Position4> 484 <Filename Value="U MainForm.pas"/>485 <Caret Line="4 9" Column="56" TopLine="34"/>478 <Filename Value="UCore.pas"/> 479 <Caret Line="453" Column="17" TopLine="433"/> 486 480 </Position4> 487 481 <Position5> 488 <Filename Value="U MainForm.pas"/>489 <Caret Line=" 146" Column="5" TopLine="132"/>482 <Filename Value="UCore.pas"/> 483 <Caret Line="480" Column="88" TopLine="447"/> 490 484 </Position5> 491 485 <Position6> 492 <Filename Value="U MainForm.pas"/>493 <Caret Line=" 176" Column="20" TopLine="174"/>486 <Filename Value="UCore.pas"/> 487 <Caret Line="521" Column="66" TopLine="496"/> 494 488 </Position6> 495 489 <Position7> 496 <Filename Value="U MainForm.pas"/>497 <Caret Line="9 4" Column="37" TopLine="92"/>490 <Filename Value="UCore.pas"/> 491 <Caret Line="935" Column="26" TopLine="924"/> 498 492 </Position7> 499 493 <Position8> 500 <Filename Value="U MainForm.pas"/>501 <Caret Line=" 135" Column="7" TopLine="133"/>494 <Filename Value="UCore.pas"/> 495 <Caret Line="895" Column="40" TopLine="885"/> 502 496 </Position8> 503 497 <Position9> 504 <Filename Value=" UCore.pas"/>505 <Caret Line="1 56" Column="13" TopLine="139"/>498 <Filename Value="../../FreePascalManager/trunk/Instance/1/Lazarus/lcl/graphtype.pp"/> 499 <Caret Line="189" Column="31" TopLine="176"/> 506 500 </Position9> 507 501 <Position10> 508 <Filename Value="U Core.pas"/>509 <Caret Line=" 119" Column="24" TopLine="110"/>502 <Filename Value="UMainForm.pas"/> 503 <Caret Line="28" Column="90" TopLine="19"/> 510 504 </Position10> 511 505 <Position11> 512 <Filename Value="U Core.pas"/>513 <Caret Line=" 788" Column="15" TopLine="771"/>506 <Filename Value="UMainForm.pas"/> 507 <Caret Line="29" Column="90" TopLine="20"/> 514 508 </Position11> 515 509 <Position12> 516 <Filename Value="U Core.pas"/>517 <Caret Line="3 40" Column="22" TopLine="320"/>510 <Filename Value="UMainForm.pas"/> 511 <Caret Line="30" Column="90" TopLine="21"/> 518 512 </Position12> 519 513 <Position13> 520 514 <Filename Value="UMainForm.pas"/> 521 <Caret Line=" 135" Column="27" TopLine="118"/>515 <Caret Line="31" Column="90" TopLine="21"/> 522 516 </Position13> 523 517 <Position14> 524 518 <Filename Value="UMainForm.pas"/> 525 <Caret Line=" 95" Column="1" TopLine="92"/>519 <Caret Line="8" Column="30" TopLine="1"/> 526 520 </Position14> 527 521 <Position15> 528 522 <Filename Value="UMainForm.pas"/> 529 <Caret Line="1 75" Column="1" TopLine="171"/>523 <Caret Line="181" Column="46" TopLine="179"/> 530 524 </Position15> 531 525 <Position16> 532 <Filename Value=" UCore.pas"/>533 <Caret Line=" 411" Column="10" TopLine="384"/>526 <Filename Value="../../FreePascalManager/trunk/Instance/1/Lazarus/lcl/graphtype.pp"/> 527 <Caret Line="189" Column="28" TopLine="176"/> 534 528 </Position16> 535 529 <Position17> 536 <Filename Value="U Core.pas"/>537 <Caret Line=" 83" Column="19" TopLine="65"/>530 <Filename Value="UMainForm.pas"/> 531 <Caret Line="188" Column="25" TopLine="180"/> 538 532 </Position17> 539 533 <Position18> 540 <Filename Value=" UCore.pas"/>541 <Caret Line=" 25" Column="14" TopLine="18"/>534 <Filename Value="../../FreePascalManager/trunk/Instance/1/Lazarus/lcl/graphtype.pp"/> 535 <Caret Line="66" Column="23" TopLine="53"/> 542 536 </Position18> 543 537 <Position19> 544 <Filename Value=" UCore.pas"/>545 <Caret Line="1 57" Column="59" TopLine="142"/>538 <Filename Value="../../FreePascalManager/trunk/Instance/1/Lazarus/lcl/graphtype.pp"/> 539 <Caret Line="114" Column="33" TopLine="93"/> 546 540 </Position19> 547 541 <Position20> 548 <Filename Value="U Core.pas"/>549 <Caret Line=" 438" Column="67" TopLine="420"/>542 <Filename Value="UMainForm.pas"/> 543 <Caret Line="183" Column="45" TopLine="180"/> 550 544 </Position20> 551 545 <Position21> 552 <Filename Value="U Core.pas"/>553 <Caret Line=" 423" Column="16" TopLine="416"/>546 <Filename Value="UMainForm.pas"/> 547 <Caret Line="187" Column="43" TopLine="180"/> 554 548 </Position21> 555 549 <Position22> 556 <Filename Value="U Core.pas"/>557 <Caret Line=" 89" Column="24" TopLine="61"/>550 <Filename Value="UMainForm.pas"/> 551 <Caret Line="183" Column="46" TopLine="174"/> 558 552 </Position22> 559 553 <Position23> 560 <Filename Value="U Core.pas"/>561 <Caret Line=" 585" Column="31" TopLine="575"/>554 <Filename Value="UMainForm.pas"/> 555 <Caret Line="9" Column="74" TopLine="1"/> 562 556 </Position23> 563 557 <Position24> 564 <Filename Value="U Core.pas"/>565 <Caret Line=" 586" Column="12" TopLine="578"/>558 <Filename Value="UMainForm.pas"/> 559 <Caret Line="191" Column="29" TopLine="175"/> 566 560 </Position24> 567 561 <Position25> 568 <Filename Value="U Core.pas"/>569 <Caret Line="1 02" Column="1" TopLine="72"/>562 <Filename Value="UMainForm.pas"/> 563 <Caret Line="188" Column="5" TopLine="180"/> 570 564 </Position25> 571 <Position26>572 <Filename Value="UCore.pas"/>573 <Caret Line="420" Column="8" TopLine="391"/>574 </Position26>575 <Position27>576 <Filename Value="UCore.pas"/>577 <Caret Line="379" Column="42" TopLine="361"/>578 </Position27>579 <Position28>580 <Filename Value="UCore.pas"/>581 <Caret Line="453" Column="17" TopLine="433"/>582 </Position28>583 <Position29>584 <Filename Value="UCore.pas"/>585 <Caret Line="480" Column="88" TopLine="447"/>586 </Position29>587 <Position30>588 <Filename Value="UCore.pas"/>589 <Caret Line="521" Column="66" TopLine="496"/>590 </Position30>591 565 </JumpHistory> 592 566 </ProjectOptions>
Note:
See TracChangeset
for help on using the changeset viewer.