Changeset 11


Ignore:
Timestamp:
Mar 20, 2011, 11:25:50 PM (13 years ago)
Author:
george
Message:
  • Added: Decreasing and increasing tank energy.
Location:
trunk
Files:
2 added
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/UCore.pas

    r10 r11  
    77uses
    88  Dialogs, Classes, SysUtils, Contnrs, Graphics, SpecializedMatrix, SpecializedList,
    9   IntfGraphics, FPImage, LCLType, SpecializedBitmap, GraphType, Math;
     9  IntfGraphics, FPImage, LCLType, SpecializedBitmap, GraphType, Math, URectangle;
    1010
    1111const
    1212  MaxBulletCount = 10;
     13  EnergySteps = 4000;
     14  ShieldSteps = 40;
    1315
    1416type
    … …  
    5759    Position: TPoint;
    5860    Direction: Integer;
    59     ScreenFrame: TRect;
     61    ScreenFrame: TRectangle;
    6062    Name: string;
    6163    Keys: TPlayerKeys;
    6264    Tanks: TListObject;
    6365    Bullets: TListObject;
     66    Energy: Real;
     67    LastEnergy: Real;
     68    Shield: Real;
     69    House: TRectangle;
     70    procedure BlowUp;
    6471    procedure Control;
    6572    procedure Paint;
    … …  
    101108    procedure SetPlayerCount(const AValue: Integer);
    102109    procedure Redraw;
     110    function IsInsideHouses(Pos: TPoint): Boolean;
    103111  public
    104112    KeyState: array[0..High(Word)] of Boolean;
    … …  
    261269          Surface.ItemsXY[Trunc(X / Bitmap.Width * Surface.Count.X),
    262270            Trunc(Y / Bitmap.Height * Surface.Count.Y)])];
    263         PixelPtr^ := ((P and $ff) shl 16) or (P and $00ff00) or ((P shr 16) and $ff);
     271        PixelPtr^ := SwapBRComponent(P);
    264272        Inc(PByte(PixelPtr), BytePerPixel);
    265273      end;
    … …  
    342350    Engine.Redraw;
    343351  end;
     352
     353  if not Engine.IsInsideHouses(Position) then begin
     354    Energy := Energy - 1 / EnergySteps;
     355    if Energy <= 0 then begin
     356      Energy := 0;
     357      BlowUp;
     358    end;
     359  end else begin
     360    Energy := Energy + 5 * 1 / EnergySteps;
     361    if Energy > 1 then Energy := 1;
     362  end;
     363  if LastEnergy <> Energy then begin
     364    LastEnergy := Energy;
     365    Engine.Redraw;
     366  end;
    344367end;
    345368
    … …  
    348371  X, Y: Integer;
    349372  XX, YY: Integer;
     373  I: Integer;
    350374begin
    351375  with Engine.FBitmapLower do begin
    … …  
    363387          ItemsXY[X, Y] := SurfaceMatterColors[TSurfaceMatter(Surface.ItemsXY[XX, YY])];
    364388      end;
    365     //Pen.Color := clBlack;
    366     //Frame(ScreenFrame);
    367 
    368     (*CopyRect(ScreenFrame, Engine.World.Surface.Canvas,
    369     Rect(
    370       Position.X - (ScreenFrame.Right - ScreenFrame.Left) div 2,
    371       Position.Y - (ScreenFrame.Bottom - ScreenFrame.Top) div 2,
    372       Position.X + (ScreenFrame.Right - ScreenFrame.Left) div 2,
    373       Position.Y + (ScreenFrame.Bottom - ScreenFrame.Top) div 2));*)
    374     //TextOut(ScreenFrame.Left, ScreenFrame.Top, Name);
    375     //ShowMessage(IntToStr(ScreenFrame.Right - ScreenFrame.Left) + ' ' +
    376     //IntToStr(ScreenFrame.Bottom - ScreenFrame.Top));
     389
     390    for I := 1 to ScreenFrame.Width - 2 do
     391      if Energy < I / (ScreenFrame.Width - 2) then
     392        ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 1] := clBlack
     393        else ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 1] := clYellow;
    377394  end;
    378395end;
    … …  
    386403  Matter: Byte;
    387404begin
     405  House.AsTRect := Rect(Position.X - HouseSize div 2, Position.Y - HouseSize div 2,
     406    Position.X + HouseSize div 2, Position.Y + HouseSize div 2);
    388407  for Y := 0 to HouseSize - 1 do
    389408    for X := 0 to HouseSize - 1 do begin
    … …  
    393412      then Matter := Byte(smPlayer1H) + Id * 2
    394413        else Matter := Byte(smNothing);
    395       Engine.World.Surface.ItemsXY[Position.X - HouseSize div 2 + X,
    396         Position.Y - HouseSize div 2 + Y] := Matter;
     414      Engine.World.Surface.ItemsXY[House.Left + X,
     415        House.Top + Y] := Matter;
    397416    end;
    398417end;
    … …  
    441460end;
    442461
     462procedure TPlayer.BlowUp;
     463begin
     464
     465end;
     466
    443467procedure TPlayer.HideTank;
    444468begin
    … …  
    541565  Tanks := TListObject.Create;
    542566  Bullets := TListObject.Create;
     567  House := TRectangle.Create;
     568  ScreenFrame := TRectangle.Create;
    543569end;
    544570
    545571destructor TPlayer.Destroy;
    546572begin
     573  ScreenFrame.Free;
     574  House.Free;
    547575  Bullets.Free;
    548576  Tanks.Free;
    … …  
    590618end;
    591619
     620function TEngine.IsInsideHouses(Pos: TPoint): Boolean;
     621var
     622  I: Integer;
     623begin
     624  Result := False;
     625  for I := 0 to Players.Count - 1 do
     626    if TPlayer(Players[I]).House.IsInside(Pos) then begin
     627      Result := True;
     628    end;
     629end;
     630
    592631procedure TEngine.ResizePlayerFrames;
    593632var
    … …  
    607646    FBitmapLower.Count := FBitmapLower.CreateIndex(80 * HorizFrameCount, 60 * VertFrameCount);
    608647    for I := 0 to Players.Count - 1 do begin
    609       TPlayer(Players[I]).ScreenFrame := Rect(
     648      TPlayer(Players[I]).ScreenFrame.AsTRect := Rect(
    610649        (I mod HorizFrameCount) * (FBitmapLower.Count.X div HorizFrameCount),
    611650        (I div HorizFrameCount) * (FBitmapLower.Count.Y div VertFrameCount),
    … …  
    754793      Round(World.Surface.Count.Y * 0.2) + Random(Round(World.Surface.Count.Y * 0.6)));
    755794
     795    Energy := 1;
     796    Shield := 1;
    756797    PlaceHouse;
    757798  end;

  • trunk/UMainForm.lfm

    r10 r11  
    6868  end
    6969  object TimerEngineTick: TTimer
    70     Interval = 10
     70    Interval = 20
    7171    OnTimer = TimerEngineTickTimer
    7272    left = 96
    … …  
    8484      Caption = 'Exit'
    8585      OnExecute = AExitExecute
     86      ShortCut = 32883
    8687    end
    8788    object ANewGame: TAction

  • trunk/UMainForm.pas

    r10 r11  
    6666procedure TMainForm.TimerDrawTimer(Sender: TObject);
    6767begin
     68  Application.ProcessMessages;
    6869  if not Drawing then
    6970  try
    … …  
    112113      Keys.Right := 222;
    113114      Keys.Up := 80;
    114       Keys.Shoot := 186;
     115      Keys.Shoot := 191;
    115116    end;
    116117    with TPlayer(Players[3]) do begin
    … …  
    119120      Keys.Right := 102;
    120121      Keys.Up := 104;
    121       Keys.Shoot := 98;
     122      Keys.Shoot := 105;
    122123    end;
    123124  end;

  • trunk/tunneler.lpi

    r10 r11  
    4242      </Item3>
    4343    </RequiredPackages>
    44     <Units Count="50">
     44    <Units Count="51">
    4545      <Unit0>
    4646        <Filename Value="tunneler.lpr"/>
    … …  
    5050        <TopLine Value="1"/>
    5151        <CursorPos X="62" Y="19"/>
    52         <UsageCount Value="72"/>
     52        <UsageCount Value="77"/>
    5353      </Unit0>
    5454      <Unit1>
    … …  
    5858        <ResourceBaseClass Value="Form"/>
    5959        <UnitName Value="UMainForm"/>
    60         <EditorIndex Value="4"/>
    61         <WindowIndex Value="0"/>
    62         <TopLine Value="83"/>
    63         <CursorPos X="12" Y="85"/>
    64         <UsageCount Value="72"/>
     60        <EditorIndex Value="6"/>
     61        <WindowIndex Value="0"/>
     62        <TopLine Value="96"/>
     63        <CursorPos X="6" Y="101"/>
     64        <UsageCount Value="77"/>
    6565        <Loaded Value="True"/>
    6666        <LoadedDesigner Value="True"/>
    … …  
    7373        <EditorIndex Value="0"/>
    7474        <WindowIndex Value="0"/>
    75         <TopLine Value="663"/>
    76         <CursorPos X="3" Y="669"/>
    77         <UsageCount Value="72"/>
     75        <TopLine Value="1"/>
     76        <CursorPos X="19" Y="13"/>
     77        <UsageCount Value="77"/>
    7878        <Loaded Value="True"/>
    7979      </Unit2>
    … …  
    8484        <TopLine Value="35"/>
    8585        <CursorPos X="20" Y="51"/>
    86         <UsageCount Value="10"/>
     86        <UsageCount Value="9"/>
    8787      </Unit3>
    8888      <Unit4>
    … …  
    9292        <TopLine Value="52"/>
    9393        <CursorPos X="18" Y="57"/>
    94         <UsageCount Value="9"/>
     94        <UsageCount Value="8"/>
    9595      </Unit4>
    9696      <Unit5>
    … …  
    100100        <TopLine Value="1"/>
    101101        <CursorPos X="61" Y="11"/>
    102         <UsageCount Value="24"/>
     102        <UsageCount Value="23"/>
    103103      </Unit5>
    104104      <Unit6>
    … …  
    107107        <TopLine Value="1769"/>
    108108        <CursorPos X="10" Y="1786"/>
    109         <UsageCount Value="11"/>
     109        <UsageCount Value="10"/>
    110110      </Unit6>
    111111      <Unit7>
    … …  
    115115        <TopLine Value="2417"/>
    116116        <CursorPos X="3" Y="2459"/>
    117         <UsageCount Value="12"/>
     117        <UsageCount Value="11"/>
    118118      </Unit7>
    119119      <Unit8>
    … …  
    122122        <TopLine Value="548"/>
    123123        <CursorPos X="22" Y="552"/>
    124         <UsageCount Value="10"/>
     124        <UsageCount Value="9"/>
    125125      </Unit8>
    126126      <Unit9>
    … …  
    129129        <TopLine Value="34"/>
    130130        <CursorPos X="1" Y="54"/>
    131         <UsageCount Value="8"/>
     131        <UsageCount Value="7"/>
    132132      </Unit9>
    133133      <Unit10>
    … …  
    137137        <TopLine Value="1433"/>
    138138        <CursorPos X="3" Y="1449"/>
    139         <UsageCount Value="7"/>
     139        <UsageCount Value="6"/>
    140140      </Unit10>
    141141      <Unit11>
    … …  
    152152        <TopLine Value="16"/>
    153153        <CursorPos X="22" Y="33"/>
    154         <UsageCount Value="22"/>
     154        <UsageCount Value="21"/>
    155155      </Unit12>
    156156      <Unit13>
    … …  
    159159        <TopLine Value="16"/>
    160160        <CursorPos X="19" Y="32"/>
    161         <UsageCount Value="10"/>
     161        <UsageCount Value="9"/>
    162162      </Unit13>
    163163      <Unit14>
    … …  
    167167        <TopLine Value="54"/>
    168168        <CursorPos X="3" Y="70"/>
    169         <UsageCount Value="13"/>
     169        <UsageCount Value="12"/>
    170170      </Unit14>
    171171      <Unit15>
    … …  
    174174        <TopLine Value="473"/>
    175175        <CursorPos X="1" Y="60"/>
    176         <UsageCount Value="22"/>
     176        <UsageCount Value="21"/>
    177177      </Unit15>
    178178      <Unit16>
    … …  
    181181        <TopLine Value="783"/>
    182182        <CursorPos X="3" Y="785"/>
    183         <UsageCount Value="7"/>
     183        <UsageCount Value="6"/>
    184184      </Unit16>
    185185      <Unit17>
    … …  
    196196        <TopLine Value="665"/>
    197197        <CursorPos X="27" Y="682"/>
    198         <UsageCount Value="9"/>
     198        <UsageCount Value="8"/>
    199199      </Unit18>
    200200      <Unit19>
    … …  
    203203        <TopLine Value="112"/>
    204204        <CursorPos X="10" Y="114"/>
    205         <UsageCount Value="9"/>
     205        <UsageCount Value="8"/>
    206206      </Unit19>
    207207      <Unit20>
    … …  
    211211        <TopLine Value="1035"/>
    212212        <CursorPos X="15" Y="1052"/>
    213         <UsageCount Value="8"/>
     213        <UsageCount Value="7"/>
    214214      </Unit20>
    215215      <Unit21>
    … …  
    218218        <TopLine Value="3003"/>
    219219        <CursorPos X="3" Y="3010"/>
    220         <UsageCount Value="8"/>
     220        <UsageCount Value="7"/>
    221221      </Unit21>
    222222      <Unit22>
    … …  
    225225        <TopLine Value="392"/>
    226226        <CursorPos X="1" Y="411"/>
    227         <UsageCount Value="8"/>
     227        <UsageCount Value="7"/>
    228228      </Unit22>
    229229      <Unit23>
    … …  
    232232        <TopLine Value="85"/>
    233233        <CursorPos X="10" Y="102"/>
    234         <UsageCount Value="10"/>
     234        <UsageCount Value="9"/>
    235235      </Unit23>
    236236      <Unit24>
    … …  
    239239        <TopLine Value="157"/>
    240240        <CursorPos X="3" Y="159"/>
    241         <UsageCount Value="10"/>
     241        <UsageCount Value="9"/>
    242242      </Unit24>
    243243      <Unit25>
    … …  
    246246        <TopLine Value="9107"/>
    247247        <CursorPos X="1" Y="9124"/>
    248         <UsageCount Value="8"/>
     248        <UsageCount Value="7"/>
    249249      </Unit25>
    250250      <Unit26>
    … …  
    253253        <TopLine Value="4226"/>
    254254        <CursorPos X="1" Y="4254"/>
    255         <UsageCount Value="8"/>
     255        <UsageCount Value="7"/>
    256256      </Unit26>
    257257      <Unit27>
    … …  
    261261        <ResourceBaseClass Value="Form"/>
    262262        <UnitName Value="UMapForm"/>
    263         <EditorIndex Value="3"/>
    264         <WindowIndex Value="0"/>
    265         <TopLine Value="14"/>
     263        <EditorIndex Value="5"/>
     264        <WindowIndex Value="0"/>
     265        <TopLine Value="1"/>
    266266        <CursorPos X="20" Y="39"/>
    267         <UsageCount Value="51"/>
     267        <UsageCount Value="56"/>
    268268        <Loaded Value="True"/>
    269269      </Unit27>
    … …  
    273273        <TopLine Value="858"/>
    274274        <CursorPos X="1" Y="875"/>
    275         <UsageCount Value="9"/>
     275        <UsageCount Value="8"/>
    276276      </Unit28>
    277277      <Unit29>
    … …  
    280280        <TopLine Value="2102"/>
    281281        <CursorPos X="1" Y="2119"/>
    282         <UsageCount Value="9"/>
     282        <UsageCount Value="8"/>
    283283      </Unit29>
    284284      <Unit30>
    … …  
    294294        <TopLine Value="1"/>
    295295        <CursorPos X="34" Y="12"/>
    296         <UsageCount Value="14"/>
     296        <UsageCount Value="13"/>
    297297      </Unit31>
    298298      <Unit32>
    299299        <Filename Value="../../../lazarus/lcl/intfgraphics.pas"/>
    300300        <UnitName Value="IntfGraphics"/>
    301         <EditorIndex Value="2"/>
     301        <EditorIndex Value="4"/>
    302302        <WindowIndex Value="0"/>
    303303        <TopLine Value="3131"/>
    304304        <CursorPos X="42" Y="3148"/>
    305         <UsageCount Value="10"/>
     305        <UsageCount Value="13"/>
    306306        <Loaded Value="True"/>
    307307      </Unit32>
    … …  
    312312        <TopLine Value="104"/>
    313313        <CursorPos X="3" Y="91"/>
    314         <UsageCount Value="10"/>
     314        <UsageCount Value="9"/>
    315315      </Unit33>
    316316      <Unit34>
    … …  
    319319        <TopLine Value="325"/>
    320320        <CursorPos X="3" Y="327"/>
    321         <UsageCount Value="10"/>
     321        <UsageCount Value="9"/>
    322322      </Unit34>
    323323      <Unit35>
    … …  
    331331      <Unit36>
    332332        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericBitmap.inc"/>
    333         <WindowIndex Value="0"/>
    334         <TopLine Value="8"/>
    335         <CursorPos X="9" Y="22"/>
    336         <UsageCount Value="16"/>
     333        <EditorIndex Value="2"/>
     334        <WindowIndex Value="0"/>
     335        <TopLine Value="25"/>
     336        <CursorPos X="14" Y="25"/>
     337        <UsageCount Value="17"/>
     338        <Loaded Value="True"/>
    337339      </Unit36>
    338340      <Unit37>
    … …  
    342344        <TopLine Value="3"/>
    343345        <CursorPos X="22" Y="20"/>
    344         <UsageCount Value="12"/>
     346        <UsageCount Value="11"/>
    345347      </Unit37>
    346348      <Unit38>
    … …  
    350352        <TopLine Value="91"/>
    351353        <CursorPos X="19" Y="107"/>
    352         <UsageCount Value="12"/>
     354        <UsageCount Value="11"/>
    353355      </Unit38>
    354356      <Unit39>
    … …  
    357359        <TopLine Value="1"/>
    358360        <CursorPos X="1" Y="1"/>
    359         <UsageCount Value="11"/>
     361        <UsageCount Value="10"/>
    360362      </Unit39>
    361363      <Unit40>
    … …  
    364366        <TopLine Value="158"/>
    365367        <CursorPos X="23" Y="175"/>
    366         <UsageCount Value="10"/>
     368        <UsageCount Value="9"/>
    367369      </Unit40>
    368370      <Unit41>
    … …  
    372374        <TopLine Value="1"/>
    373375        <CursorPos X="9" Y="69"/>
    374         <UsageCount Value="10"/>
     376        <UsageCount Value="9"/>
    375377      </Unit41>
    376378      <Unit42>
    … …  
    380382        <TopLine Value="1"/>
    381383        <CursorPos X="1" Y="1"/>
    382         <UsageCount Value="10"/>
     384        <UsageCount Value="9"/>
    383385      </Unit42>
    384386      <Unit43>
    … …  
    388390        <TopLine Value="1"/>
    389391        <CursorPos X="14" Y="20"/>
    390         <UsageCount Value="10"/>
     392        <UsageCount Value="9"/>
    391393      </Unit43>
    392394      <Unit44>
    … …  
    394396        <IsPartOfProject Value="True"/>
    395397        <UnitName Value="UPlatform"/>
    396         <UsageCount Value="31"/>
     398        <UsageCount Value="36"/>
    397399      </Unit44>
    398400      <Unit45>
    … …  
    418420        <TopLine Value="1"/>
    419421        <CursorPos X="36" Y="15"/>
    420         <UsageCount Value="10"/>
     422        <UsageCount Value="9"/>
    421423      </Unit47>
    422424      <Unit48>
    423425        <Filename Value="../../../lazarus/lcl/include/custombitmap.inc"/>
    424         <EditorIndex Value="1"/>
     426        <EditorIndex Value="3"/>
    425427        <WindowIndex Value="0"/>
    426428        <TopLine Value="330"/>
    427429        <CursorPos X="35" Y="338"/>
    428         <UsageCount Value="11"/>
     430        <UsageCount Value="13"/>
    429431        <Loaded Value="True"/>
    430432      </Unit48>
    … …  
    437439        <UsageCount Value="10"/>
    438440      </Unit49>
     441      <Unit50>
     442        <Filename Value="Common/URectangle.pas"/>
     443        <IsPartOfProject Value="True"/>
     444        <UnitName Value="URectangle"/>
     445        <EditorIndex Value="1"/>
     446        <WindowIndex Value="0"/>
     447        <TopLine Value="120"/>
     448        <CursorPos X="44" Y="150"/>
     449        <UsageCount Value="21"/>
     450        <Loaded Value="True"/>
     451      </Unit50>
    439452    </Units>
    440     <JumpHistory Count="30" HistoryIndex="28">
     453    <JumpHistory Count="30" HistoryIndex="29">
    441454      <Position1>
    442455        <Filename Value="UCore.pas"/>
    443         <Caret Line="705" Column="1" TopLine="686"/>
     456        <Caret Line="466" Column="1" TopLine="452"/>
    444457      </Position1>
    445458      <Position2>
    446459        <Filename Value="UCore.pas"/>
    447         <Caret Line="708" Column="1" TopLine="686"/>
     460        <Caret Line="373" Column="19" TopLine="361"/>
    448461      </Position2>
    449462      <Position3>
    450463        <Filename Value="UCore.pas"/>
    451         <Caret Line="709" Column="1" TopLine="686"/>
     464        <Caret Line="561" Column="19" TopLine="551"/>
    452465      </Position3>
    453466      <Position4>
    454467        <Filename Value="UCore.pas"/>
    455         <Caret Line="710" Column="1" TopLine="686"/>
     468        <Caret Line="385" Column="82" TopLine="364"/>
    456469      </Position4>
    457470      <Position5>
    458471        <Filename Value="UCore.pas"/>
    459         <Caret Line="711" Column="1" TopLine="696"/>
     472        <Caret Line="386" Column="1" TopLine="371"/>
    460473      </Position5>
    461474      <Position6>
    462475        <Filename Value="UCore.pas"/>
    463         <Caret Line="712" Column="1" TopLine="696"/>
     476        <Caret Line="346" Column="38" TopLine="331"/>
    464477      </Position6>
    465478      <Position7>
    466479        <Filename Value="UCore.pas"/>
    467         <Caret Line="713" Column="1" TopLine="696"/>
     480        <Caret Line="352" Column="1" TopLine="331"/>
    468481      </Position7>
    469482      <Position8>
    470483        <Filename Value="UCore.pas"/>
    471         <Caret Line="718" Column="1" TopLine="696"/>
     484        <Caret Line="356" Column="1" TopLine="331"/>
    472485      </Position8>
    473486      <Position9>
    474487        <Filename Value="UCore.pas"/>
    475         <Caret Line="721" Column="1" TopLine="706"/>
     488        <Caret Line="352" Column="1" TopLine="331"/>
    476489      </Position9>
    477490      <Position10>
    478491        <Filename Value="UCore.pas"/>
    479         <Caret Line="722" Column="1" TopLine="706"/>
     492        <Caret Line="616" Column="1" TopLine="599"/>
    480493      </Position10>
    481494      <Position11>
    482495        <Filename Value="UCore.pas"/>
    483         <Caret Line="723" Column="1" TopLine="706"/>
     496        <Caret Line="617" Column="1" TopLine="599"/>
    484497      </Position11>
    485498      <Position12>
    486499        <Filename Value="UCore.pas"/>
    487         <Caret Line="724" Column="1" TopLine="706"/>
     500        <Caret Line="620" Column="1" TopLine="599"/>
    488501      </Position12>
    489502      <Position13>
    490503        <Filename Value="UCore.pas"/>
    491         <Caret Line="725" Column="1" TopLine="706"/>
     504        <Caret Line="352" Column="10" TopLine="335"/>
    492505      </Position13>
    493506      <Position14>
    494507        <Filename Value="UCore.pas"/>
    495         <Caret Line="726" Column="1" TopLine="706"/>
     508        <Caret Line="353" Column="14" TopLine="336"/>
    496509      </Position14>
    497510      <Position15>
    498511        <Filename Value="UCore.pas"/>
    499         <Caret Line="725" Column="1" TopLine="706"/>
     512        <Caret Line="356" Column="17" TopLine="339"/>
    500513      </Position15>
    501514      <Position16>
    502515        <Filename Value="UCore.pas"/>
    503         <Caret Line="726" Column="1" TopLine="706"/>
     516        <Caret Line="359" Column="22" TopLine="339"/>
    504517      </Position16>
    505518      <Position17>
    506519        <Filename Value="UCore.pas"/>
    507         <Caret Line="725" Column="1" TopLine="706"/>
     520        <Caret Line="358" Column="1" TopLine="333"/>
    508521      </Position17>
    509522      <Position18>
    510523        <Filename Value="UCore.pas"/>
    511         <Caret Line="726" Column="1" TopLine="706"/>
     524        <Caret Line="354" Column="1" TopLine="333"/>
    512525      </Position18>
    513526      <Position19>
    514527        <Filename Value="UCore.pas"/>
    515         <Caret Line="724" Column="41" TopLine="706"/>
     528        <Caret Line="355" Column="1" TopLine="333"/>
    516529      </Position19>
    517530      <Position20>
    518531        <Filename Value="UCore.pas"/>
    519         <Caret Line="682" Column="12" TopLine="667"/>
     532        <Caret Line="356" Column="1" TopLine="333"/>
    520533      </Position20>
    521534      <Position21>
    522535        <Filename Value="UCore.pas"/>
    523         <Caret Line="709" Column="1" TopLine="681"/>
     536        <Caret Line="357" Column="1" TopLine="333"/>
    524537      </Position21>
    525538      <Position22>
    526539        <Filename Value="UCore.pas"/>
    527         <Caret Line="692" Column="4" TopLine="681"/>
     540        <Caret Line="363" Column="1" TopLine="335"/>
    528541      </Position22>
    529542      <Position23>
    530543        <Filename Value="UCore.pas"/>
    531         <Caret Line="695" Column="5" TopLine="681"/>
     544        <Caret Line="353" Column="3" TopLine="343"/>
    532545      </Position23>
    533546      <Position24>
    534547        <Filename Value="UCore.pas"/>
    535         <Caret Line="693" Column="41" TopLine="681"/>
     548        <Caret Line="354" Column="1" TopLine="343"/>
    536549      </Position24>
    537550      <Position25>
    538551        <Filename Value="UCore.pas"/>
    539         <Caret Line="695" Column="7" TopLine="678"/>
     552        <Caret Line="355" Column="1" TopLine="343"/>
    540553      </Position25>
    541554      <Position26>
    542555        <Filename Value="UCore.pas"/>
    543         <Caret Line="710" Column="42" TopLine="688"/>
     556        <Caret Line="363" Column="1" TopLine="343"/>
    544557      </Position26>
    545558      <Position27>
    546         <Filename Value="UMainForm.pas"/>
    547         <Caret Line="85" Column="12" TopLine="83"/>
     559        <Filename Value="UCore.pas"/>
     560        <Caret Line="364" Column="1" TopLine="343"/>
    548561      </Position27>
    549562      <Position28>
    550563        <Filename Value="UCore.pas"/>
    551         <Caret Line="710" Column="52" TopLine="693"/>
     564        <Caret Line="365" Column="1" TopLine="343"/>
    552565      </Position28>
    553566      <Position29>
    554567        <Filename Value="UCore.pas"/>
    555         <Caret Line="692" Column="52" TopLine="683"/>
     568        <Caret Line="382" Column="29" TopLine="333"/>
    556569      </Position29>
    557570      <Position30>
    558         <Filename Value="../../../lazarus/lcl/include/custombitmap.inc"/>
    559         <Caret Line="338" Column="35" TopLine="330"/>
     571        <Filename Value="UCore.pas"/>
     572        <Caret Line="390" Column="1" TopLine="373"/>
    560573      </Position30>
    561574    </JumpHistory>
    … …  
    568581    <SearchPaths>
    569582      <IncludeFiles Value="$(ProjOutDir)"/>
     583      <OtherUnitFiles Value="Common"/>
    570584      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
    571585    </SearchPaths>

  • trunk/tunneler.lpr

    r10 r11  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, UMainForm, UCore, TemplateGenerics, UMapForm, UPlatform
     10  Forms, UMainForm, UCore, TemplateGenerics, UMapForm, UPlatform, URectangle
    1111  { you can add units after this };
    1212
Note: See TracChangeset for help on using the changeset viewer.