Changeset 2


Ignore:
Timestamp:
Mar 5, 2011, 10:16:19 PM (14 years ago)
Author:
george
Message:
Location:
trunk
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore set to
      tunneler
      lib
      backup

  • trunk/UCore.pas

    r1 r2  
    66
    77uses
    8   Classes, SysUtils, Contnrs, Graphics;
     8  Dialogs, Classes, SysUtils, Contnrs, Graphics, SpecializedMatrix;
    99
    1010type
    1111  TEngine = class;
     12
     13  TSurfaceMatter = (smNothing, smDirt1, smDirt2, smRock1, smRock2, smHouse1, smHouse2);
    1214
    1315  TPlayerKeys = record
    … …  
    3638  TWorld = class
    3739  private
    38     function GetSize: TPoint;
    39     procedure SetSize(const AValue: TPoint);
     40    function GetSize: TMatrixByteIndex;
     41    procedure SetSize(const AValue: TMatrixByteIndex);
    4042  public
    4143    Engine: TEngine;
    42     Surface: TBitmap;
     44    Surface: TMatrixByte;
    4345    procedure Generate;
    4446    constructor Create;
    4547    destructor Destroy; override;
    46     property Size: TPoint read GetSize write SetSize;
     48    property Size: TMatrixByteIndex read GetSize write SetSize;
    4749  end;
    4850
    … …  
    6769  end;
    6870
     71const
     72  SurfaceMatterColors: array[TSurfaceMatter] of TColor = (clBlack, $0756b0, $2170c3, clGray, clGray + $808080, clGreen, clBlue);
     73
    6974var
    7075  Engine: TEngine;
    … …  
    7479{ TWorld }
    7580
    76 function TWorld.GetSize: TPoint;
    77 begin
    78   Result := Point(Surface.Width, Surface.Height);
    79 end;
    80 
    81 procedure TWorld.SetSize(const AValue: TPoint);
    82 begin
    83   Surface.SetSize(AValue.X, AValue.Y);
     81function TWorld.GetSize: TMatrixByteIndex;
     82begin
     83  Result := Surface.Count;
     84end;
     85
     86procedure TWorld.SetSize(const AValue: TMatrixByteIndex);
     87begin
     88  Surface.Count := AValue;
    8489  Generate;
    8590end;
    … …  
    8994  X, Y: Integer;
    9095begin
    91   for Y := 0 to Surface.Height - 1 do
    92     for X := 0 to Surface.Width - 1 do begin
     96  for Y := 0 to Surface.Count.Y - 1 do
     97    for X := 0 to Surface.Count.X - 1 do begin
    9398      if Random < 0.5 then
    94         Surface.Canvas.Pixels[X, Y] := TColor($0756b0) else
    95         Surface.Canvas.Pixels[X, Y] := TColor($2170c3);
     99        Surface[Y, X] := Byte(smDirt1) else
     100        Surface[Y, X] := Byte(smDirt2);
    96101    end;
    97102end;
    98103
    99104constructor TWorld.Create;
    100 begin
    101   Surface := TBitmap.Create;
    102   Surface.PixelFormat := pf4bit;
    103   Size := Point(500, 100);
     105var
     106  NewSize: TMatrixByteIndex;
     107begin
     108  Surface := TMatrixByte.Create;
     109  NewSize.X := 5000;
     110  NewSize.Y := 500;
     111  Size := NewSize;
    104112end;
    105113
    … …  
    121129
    122130procedure TPlayer.Paint;
     131var
     132  X, Y: Integer;
     133  XX, YY: Integer;
    123134begin
    124135  with Engine.Bitmap.Canvas do begin
    125136    Rectangle(ScreenFrame);
    126     CopyRect(ScreenFrame, Engine.World.Surface.Canvas, Rect(
     137    //FillRect(ScreenFrame);
     138
     139    with Engine.World do
     140    for Y := ScreenFrame.Top to ScreenFrame.Bottom - 1 do
     141      for X := ScreenFrame.Left to ScreenFrame.Right - 1 do begin
     142        XX := X - ScreenFrame.Left - ((ScreenFrame.Right - ScreenFrame.Left) div 2) + Position.X;
     143        YY := Y - ScreenFrame.Top - ((ScreenFrame.Bottom - ScreenFrame.Top) div 2) + Position.Y;
     144        if (YY >= 0) and (YY < Surface.Count.Y) and (XX >= 0) and (XX < Surface.Count.X) then
     145          Pixels[X, Y] := SurfaceMatterColors[TSurfaceMatter(Surface[YY, XX])];
     146      end;
     147    (*CopyRect(ScreenFrame, Engine.World.Surface.Canvas,
     148    Rect(
    127149      Position.X - (ScreenFrame.Right - ScreenFrame.Left) div 2,
    128150      Position.Y - (ScreenFrame.Bottom - ScreenFrame.Top) div 2,
    129151      Position.X + (ScreenFrame.Right - ScreenFrame.Left) div 2,
    130       Position.Y + (ScreenFrame.Bottom - ScreenFrame.Top) div 2));
     152      Position.Y + (ScreenFrame.Bottom - ScreenFrame.Top) div 2));*)
    131153    TextOut(ScreenFrame.Left, ScreenFrame.Top, Name);
     154    //ShowMessage(IntToStr(ScreenFrame.Right - ScreenFrame.Left) + ' ' +
     155    //IntToStr(ScreenFrame.Bottom - ScreenFrame.Top));
    132156  end;
    133157end;
    … …  
    189213begin
    190214  Players := TObjectList.Create;
    191   PlayerCount := 2;
    192   with TPlayer(Players[0]) do begin
    193     Position := Point(100, 100);
    194     Color := TColor($00f805);
    195     Keys.Left := 65;
    196     Keys.Up := 87;
    197     Keys.Right := 68;
    198     Keys.Down := 83;
    199     Keys.Shoot := 69;
    200   end;
    201   with TPlayer(Players[1]) do begin
    202     Position := Point(300, 200);
    203     Color := TColor($00f805);
    204     Keys.Left := 37;
    205     Keys.Up := 38;
    206     Keys.Right := 39;
    207     Keys.Down := 40;
    208     Keys.Shoot := 17;
    209   end;
    210215  World := TWorld.Create;
    211216  World.Engine := Self;

  • trunk/UMainForm.lfm

    r1 r2  
    11object MainForm: TMainForm
    22  Left = 382
    3   Height = 370
    4   Top = 137
     3  Height = 412
     4  Top = 95
    55  Width = 514
    66  Caption = 'MainForm'
    7   ClientHeight = 370
     7  ClientHeight = 389
    88  ClientWidth = 514
     9  Menu = MainMenu1
    910  OnCreate = FormCreate
    1011  OnKeyDown = FormKeyDown
    1112  OnKeyUp = FormKeyUp
    12   LCLVersion = '0.9.29'
     13  LCLVersion = '0.9.31'
    1314  object Image1: TImage
    1415    Left = 0
    15     Height = 353
     16    Height = 372
    1617    Top = 0
    1718    Width = 514
    … …  
    2324    Left = 0
    2425    Height = 17
    25     Top = 353
     26    Top = 372
    2627    Width = 514
    2728    Panels = <   
     29      item
     30        Width = 50
     31      end   
    2832      item
    2933        Width = 50
    … …  
    3741    top = 50
    3842  end
     43  object MainMenu1: TMainMenu
     44    left = 184
     45    top = 16
     46    object MenuItem1: TMenuItem
     47      Caption = 'Game'
     48      object MenuItem3: TMenuItem
     49        Caption = 'New...'
     50        OnClick = MenuItem3Click
     51      end
     52      object MenuItem2: TMenuItem
     53        Caption = 'Exit'
     54        OnClick = MenuItem2Click
     55      end
     56    end
     57  end
    3958end

  • trunk/UMainForm.pas

    r1 r2  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
    9   ComCtrls, UCore;
     9  ComCtrls, Menus, UCore;
    1010
    1111type
    … …  
    1515  TMainForm = class(TForm)
    1616    Image1: TImage;
     17    MainMenu1: TMainMenu;
     18    MenuItem1: TMenuItem;
     19    MenuItem2: TMenuItem;
     20    MenuItem3: TMenuItem;
    1721    StatusBar1: TStatusBar;
    1822    Timer1: TTimer;
    … …  
    2125    procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    2226    procedure Image1Resize(Sender: TObject);
     27    procedure MenuItem2Click(Sender: TObject);
     28    procedure MenuItem3Click(Sender: TObject);
    2329    procedure Timer1Timer(Sender: TObject);
    2430  private
    … …  
    3945procedure TMainForm.Timer1Timer(Sender: TObject);
    4046begin
    41   Engine.Paint;
     47  try
     48    Timer1.Enabled := False;
     49    Engine.Paint;
     50    StatusBar1.Panels[1].Text := IntToStr(TPlayer(Engine.Players[0]).Position.X) + ', ' +
     51      IntToStr(TPlayer(Engine.Players[0]).Position.Y);
     52  finally
     53    Timer1.Enabled := True;
     54  end;
    4255end;
    4356
    … …  
    4659  Engine.Bitmap := Image1.Picture.Bitmap;
    4760  Image1Resize(Self);
     61  with Engine do begin
     62    PlayerCount := 2;
     63    with TPlayer(Players[0]) do begin
     64      Position := Point(25 + Random(World.Surface.Count.X - 50),
     65        25 + Random(World.Surface.Count.Y - 50));
     66      Color := TColor($00f805);
     67      Keys.Left := 65;
     68      Keys.Down := 87;
     69      Keys.Right := 68;
     70      Keys.Up := 83;
     71      Keys.Shoot := 69;
     72    end;
     73    with TPlayer(Players[1]) do begin
     74      Position := Point(25 + Random(World.Surface.Count.X - 50),
     75        25 + Random(World.Surface.Count.Y - 50));
     76      Color := TColor($00f805);
     77      Keys.Left := 37;
     78      Keys.Down := 38;
     79      Keys.Right := 39;
     80      Keys.Up := 40;
     81      Keys.Shoot := 17;
     82    end;
     83  end;
    4884end;
    4985
    … …  
    68104end;
    69105
     106procedure TMainForm.MenuItem2Click(Sender: TObject);
     107begin
     108  Close;
     109end;
     110
     111procedure TMainForm.MenuItem3Click(Sender: TObject);
     112begin
     113
     114end;
     115
    70116end.
    71117

  • trunk/tunneler.lpi

    r1 r2  
    1616      <StringTable ProductVersion=""/>
    1717    </VersionInfo>
     18    <BuildModes Count="1">
     19      <Item1 Name="default" Default="True"/>
     20    </BuildModes>
    1821    <PublishOptions>
    1922      <Version Value="2"/>
    … …  
    2730      </local>
    2831    </RunParams>
    29     <RequiredPackages Count="1">
     32    <RequiredPackages Count="2">
    3033      <Item1>
     34        <PackageName Value="TemplateGenerics"/>
     35      </Item1>
     36      <Item2>
    3137        <PackageName Value="LCL"/>
    32       </Item1>
     38      </Item2>
    3339    </RequiredPackages>
    34     <Units Count="6">
     40    <Units Count="15">
    3541      <Unit0>
    3642        <Filename Value="tunneler.lpr"/>
    3743        <IsPartOfProject Value="True"/>
    3844        <UnitName Value="tunneler"/>
    39         <UsageCount Value="26"/>
     45        <EditorIndex Value="1"/>
     46        <WindowIndex Value="0"/>
     47        <TopLine Value="1"/>
     48        <CursorPos X="28" Y="11"/>
     49        <UsageCount Value="30"/>
     50        <Loaded Value="True"/>
    4051      </Unit0>
    4152      <Unit1>
    … …  
    4758        <EditorIndex Value="0"/>
    4859        <WindowIndex Value="0"/>
    49         <TopLine Value="1"/>
    50         <CursorPos X="31" Y="34"/>
    51         <UsageCount Value="26"/>
     60        <TopLine Value="56"/>
     61        <CursorPos X="19" Y="63"/>
     62        <UsageCount Value="30"/>
    5263        <Loaded Value="True"/>
    5364        <LoadedDesigner Value="True"/>
    … …  
    5869        <UnitName Value="UCore"/>
    5970        <IsVisibleTab Value="True"/>
    60         <EditorIndex Value="1"/>
    61         <WindowIndex Value="0"/>
    62         <TopLine Value="99"/>
    63         <CursorPos X="32" Y="102"/>
    64         <UsageCount Value="26"/>
     71        <EditorIndex Value="2"/>
     72        <WindowIndex Value="0"/>
     73        <TopLine Value="125"/>
     74        <CursorPos X="5" Y="137"/>
     75        <UsageCount Value="30"/>
    6576        <Loaded Value="True"/>
    6677      </Unit2>
    … …  
    6879        <Filename Value="../../lazarus/trunk/lcl/graphics.pp"/>
    6980        <UnitName Value="Graphics"/>
    70         <EditorIndex Value="3"/>
    7181        <WindowIndex Value="0"/>
    7282        <TopLine Value="35"/>
    7383        <CursorPos X="20" Y="51"/>
    7484        <UsageCount Value="13"/>
    75         <Loaded Value="True"/>
    7685      </Unit3>
    7786      <Unit4>
    7887        <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    7988        <UnitName Value="GraphType"/>
    80         <EditorIndex Value="4"/>
    8189        <WindowIndex Value="0"/>
    8290        <TopLine Value="52"/>
    8391        <CursorPos X="18" Y="57"/>
    8492        <UsageCount Value="12"/>
    85         <Loaded Value="True"/>
    8693      </Unit4>
    8794      <Unit5>
    8895        <Filename Value="UPixelMap.pas"/>
    89         <IsPartOfProject Value="True"/>
    9096        <UnitName Value="UPixelMap"/>
    91         <EditorIndex Value="2"/>
    9297        <WindowIndex Value="0"/>
    9398        <TopLine Value="1"/>
    94         <CursorPos X="1" Y="1"/>
    95         <UsageCount Value="24"/>
    96         <Loaded Value="True"/>
     99        <CursorPos X="61" Y="11"/>
     100        <UsageCount Value="27"/>
    97101      </Unit5>
     102      <Unit6>
     103        <Filename Value="/usr/share/fpcsrc/2.4.0/rtl/objpas/classes/classesh.inc"/>
     104        <WindowIndex Value="0"/>
     105        <TopLine Value="1772"/>
     106        <CursorPos X="10" Y="1788"/>
     107        <UsageCount Value="10"/>
     108      </Unit6>
     109      <Unit7>
     110        <Filename Value="../../../lazarus/lcl/graphics.pp"/>
     111        <UnitName Value="Graphics"/>
     112        <WindowIndex Value="0"/>
     113        <TopLine Value="1071"/>
     114        <CursorPos X="15" Y="1087"/>
     115        <UsageCount Value="10"/>
     116      </Unit7>
     117      <Unit8>
     118        <Filename Value="../../../lazarus/lcl/include/rasterimage.inc"/>
     119        <WindowIndex Value="0"/>
     120        <TopLine Value="289"/>
     121        <CursorPos X="1" Y="308"/>
     122        <UsageCount Value="10"/>
     123      </Unit8>
     124      <Unit9>
     125        <Filename Value="../../../lazarus/lcl/include/canvas.inc"/>
     126        <WindowIndex Value="0"/>
     127        <TopLine Value="102"/>
     128        <CursorPos X="7" Y="105"/>
     129        <UsageCount Value="10"/>
     130      </Unit9>
     131      <Unit10>
     132        <Filename Value="../../FreePascalManager/trunk/Instance/1/Lazarus/lcl/graphics.pp"/>
     133        <UnitName Value="Graphics"/>
     134        <WindowIndex Value="0"/>
     135        <TopLine Value="1433"/>
     136        <CursorPos X="3" Y="1449"/>
     137        <UsageCount Value="10"/>
     138      </Unit10>
     139      <Unit11>
     140        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>
     141        <EditorIndex Value="5"/>
     142        <WindowIndex Value="0"/>
     143        <TopLine Value="107"/>
     144        <CursorPos X="1" Y="113"/>
     145        <UsageCount Value="11"/>
     146        <Loaded Value="True"/>
     147      </Unit11>
     148      <Unit12>
     149        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedMatrix.pas"/>
     150        <UnitName Value="SpecializedMatrix"/>
     151        <WindowIndex Value="0"/>
     152        <TopLine Value="16"/>
     153        <CursorPos X="22" Y="32"/>
     154        <UsageCount Value="10"/>
     155      </Unit12>
     156      <Unit13>
     157        <Filename Value="../../FreePascalManager/trunk/Instance/1/FPC/rtl/objpas/classes/classesh.inc"/>
     158        <EditorIndex Value="3"/>
     159        <WindowIndex Value="0"/>
     160        <TopLine Value="16"/>
     161        <CursorPos X="19" Y="32"/>
     162        <UsageCount Value="10"/>
     163        <Loaded Value="True"/>
     164      </Unit13>
     165      <Unit14>
     166        <Filename Value="../../FreePascalManager/trunk/Instance/1/FPC/rtl/objpas/types.pp"/>
     167        <UnitName Value="types"/>
     168        <EditorIndex Value="4"/>
     169        <WindowIndex Value="0"/>
     170        <TopLine Value="54"/>
     171        <CursorPos X="3" Y="70"/>
     172        <UsageCount Value="10"/>
     173        <Loaded Value="True"/>
     174      </Unit14>
    98175    </Units>
    99     <JumpHistory Count="28" HistoryIndex="26">
     176    <JumpHistory Count="30" HistoryIndex="29">
    100177      <Position1>
    101178        <Filename Value="UCore.pas"/>
    102         <Caret Line="80" Column="1" TopLine="64"/>
     179        <Caret Line="105" Column="16" TopLine="88"/>
    103180      </Position1>
    104181      <Position2>
    105182        <Filename Value="UCore.pas"/>
    106         <Caret Line="104" Column="1" TopLine="84"/>
     183        <Caret Line="108" Column="18" TopLine="88"/>
    107184      </Position2>
    108185      <Position3>
    109186        <Filename Value="UCore.pas"/>
    110         <Caret Line="178" Column="18" TopLine="161"/>
     187        <Caret Line="103" Column="23" TopLine="87"/>
    111188      </Position3>
    112189      <Position4>
    113         <Filename Value="../../lazarus/trunk/lcl/graphics.pp"/>
    114         <Caret Line="51" Column="20" TopLine="35"/>
     190        <Filename Value="UCore.pas"/>
     191        <Caret Line="72" Column="39" TopLine="56"/>
    115192      </Position4>
    116193      <Position5>
    117         <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    118         <Caret Line="68" Column="12" TopLine="53"/>
     194        <Filename Value="UCore.pas"/>
     195        <Caret Line="13" Column="86" TopLine="1"/>
    119196      </Position5>
    120197      <Position6>
    121         <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    122         <Caret Line="103" Column="56" TopLine="87"/>
     198        <Filename Value="UCore.pas"/>
     199        <Caret Line="72" Column="127" TopLine="56"/>
    123200      </Position6>
    124201      <Position7>
    125         <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    126         <Caret Line="164" Column="21" TopLine="148"/>
     202        <Filename Value="UCore.pas"/>
     203        <Caret Line="141" Column="23" TopLine="125"/>
    127204      </Position7>
    128205      <Position8>
    129         <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    130         <Caret Line="240" Column="13" TopLine="224"/>
     206        <Filename Value="UMainForm.pas"/>
     207        <Caret Line="47" Column="7" TopLine="41"/>
    131208      </Position8>
    132209      <Position9>
    133         <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    134         <Caret Line="606" Column="16" TopLine="590"/>
     210        <Filename Value="UMainForm.pas"/>
     211        <Caret Line="59" Column="58" TopLine="43"/>
    135212      </Position9>
    136213      <Position10>
    137         <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    138         <Caret Line="613" Column="55" TopLine="590"/>
     214        <Filename Value="UMainForm.pas"/>
     215        <Caret Line="60" Column="42" TopLine="44"/>
    139216      </Position10>
    140217      <Position11>
    141         <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    142         <Caret Line="616" Column="20" TopLine="590"/>
     218        <Filename Value="UMainForm.pas"/>
     219        <Caret Line="69" Column="58" TopLine="53"/>
    143220      </Position11>
    144221      <Position12>
    145         <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    146         <Caret Line="638" Column="16" TopLine="622"/>
     222        <Filename Value="UCore.pas"/>
     223        <Caret Line="141" Column="100" TopLine="125"/>
    147224      </Position12>
    148225      <Position13>
    149         <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    150         <Caret Line="646" Column="55" TopLine="622"/>
     226        <Filename Value="UCore.pas"/>
     227        <Caret Line="108" Column="13" TopLine="85"/>
    151228      </Position13>
    152229      <Position14>
    153         <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    154         <Caret Line="649" Column="20" TopLine="622"/>
     230        <Filename Value="UCore.pas"/>
     231        <Caret Line="111" Column="1" TopLine="85"/>
    155232      </Position14>
    156233      <Position15>
    157         <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    158         <Caret Line="674" Column="16" TopLine="658"/>
     234        <Filename Value="UCore.pas"/>
     235        <Caret Line="88" Column="1" TopLine="82"/>
    159236      </Position15>
    160237      <Position16>
    161         <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    162         <Caret Line="683" Column="55" TopLine="658"/>
     238        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>
     239        <Caret Line="123" Column="1" TopLine="97"/>
    163240      </Position16>
    164241      <Position17>
    165         <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    166         <Caret Line="686" Column="20" TopLine="658"/>
     242        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>
     243        <Caret Line="98" Column="1" TopLine="92"/>
    167244      </Position17>
    168245      <Position18>
    169         <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    170         <Caret Line="708" Column="16" TopLine="692"/>
     246        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>
     247        <Caret Line="107" Column="1" TopLine="92"/>
    171248      </Position18>
    172249      <Position19>
    173         <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    174         <Caret Line="717" Column="55" TopLine="692"/>
     250        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>
     251        <Caret Line="109" Column="1" TopLine="92"/>
    175252      </Position19>
    176253      <Position20>
    177         <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    178         <Caret Line="720" Column="20" TopLine="692"/>
     254        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>
     255        <Caret Line="124" Column="1" TopLine="108"/>
    179256      </Position20>
    180257      <Position21>
    181         <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    182         <Caret Line="755" Column="16" TopLine="1"/>
     258        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>
     259        <Caret Line="125" Column="1" TopLine="108"/>
    183260      </Position21>
    184261      <Position22>
    185         <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    186         <Caret Line="764" Column="55" TopLine="748"/>
     262        <Filename Value="UCore.pas"/>
     263        <Caret Line="89" Column="1" TopLine="82"/>
    187264      </Position22>
    188265      <Position23>
    189         <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    190         <Caret Line="767" Column="20" TopLine="758"/>
     266        <Filename Value="UCore.pas"/>
     267        <Caret Line="90" Column="1" TopLine="82"/>
    191268      </Position23>
    192269      <Position24>
    193         <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    194         <Caret Line="841" Column="38" TopLine="825"/>
     270        <Filename Value="UCore.pas"/>
     271        <Caret Line="112" Column="1" TopLine="86"/>
    195272      </Position24>
    196273      <Position25>
    197         <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    198         <Caret Line="914" Column="22" TopLine="898"/>
     274        <Filename Value="UCore.pas"/>
     275        <Caret Line="211" Column="1" TopLine="195"/>
    199276      </Position25>
    200277      <Position26>
    201         <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    202         <Caret Line="7" Column="87" TopLine="1"/>
     278        <Filename Value="UCore.pas"/>
     279        <Caret Line="212" Column="1" TopLine="195"/>
    203280      </Position26>
    204281      <Position27>
    205         <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    206         <Caret Line="68" Column="12" TopLine="52"/>
     282        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>
     283        <Caret Line="113" Column="1" TopLine="107"/>
    207284      </Position27>
    208285      <Position28>
    209         <Filename Value="../../lazarus/trunk/lcl/graphtype.pp"/>
    210         <Caret Line="103" Column="12" TopLine="87"/>
     286        <Filename Value="UCore.pas"/>
     287        <Caret Line="141" Column="12" TopLine="125"/>
    211288      </Position28>
     289      <Position29>
     290        <Filename Value="UCore.pas"/>
     291        <Caret Line="143" Column="82" TopLine="125"/>
     292      </Position29>
     293      <Position30>
     294        <Filename Value="UCore.pas"/>
     295        <Caret Line="140" Column="30" TopLine="124"/>
     296      </Position30>
    212297    </JumpHistory>
    213298  </ProjectOptions>
    214299  <CompilerOptions>
    215     <Version Value="9"/>
     300    <Version Value="10"/>
    216301    <Target>
    217302      <Filename Value="tunneler"/>
    218303    </Target>
    219304    <SearchPaths>
    220       <IncludeFiles Value="$(ProjOutDir)/"/>
     305      <IncludeFiles Value="$(ProjOutDir)"/>
    221306      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
    222307    </SearchPaths>

  • trunk/tunneler.lpr

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