Changeset 3


Ignore:
Timestamp:
Jun 3, 2010, 3:16:40 PM (15 years ago)
Author:
george
Message:
  • Přidáno: Formulář pro zobrazení a editaci položky.
Location:
trunk
Files:
9 added
3 deleted
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/UMainForm.lfm

    r2 r3  
    3636    TabOrder = 1
    3737    ViewStyle = vsReport
     38    OnDblClick = ListView1DblClick
     39    OnKeyPress = ListView1KeyPress
     40    OnResize = ListView1Resize
     41    OnSelectItem = ListView1SelectItem
    3842  end
    3943  object Label1: TLabel

  • trunk/UMainForm.pas

    r2 r3  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
    9   StdCtrls, USqlDatabase, DOM, XMLRead, XMLWrite, UPersistentForm;
     9  StdCtrls, USqlDatabase, DOM, XMLRead, XMLWrite, UPersistentForm, UItemView;
    1010
    1111const
    … …  
    2424    procedure FormCreate(Sender: TObject);
    2525    procedure FormShow(Sender: TObject);
     26    procedure ListView1DblClick(Sender: TObject);
     27    procedure ListView1KeyPress(Sender: TObject; var Key: char);
     28    procedure ListView1Resize(Sender: TObject);
     29    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
     30      Selected: Boolean);
    2631    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    2732  private
    2833    procedure LoadConfiguration;
    2934  public
     35    SelectedObject: Integer;
     36    SelectedItem: Integer;
    3037    PersistentForm: TPersistentForm;
    3138    Database: TSQLDatabase;
    3239    procedure LoadTree;
     40    procedure LoadItemList;
    3341  end;
    3442
    … …  
    93101end;
    94102
     103procedure TMainForm.ListView1DblClick(Sender: TObject);
     104begin
     105  ItemViewForm.Show;
     106end;
     107
     108procedure TMainForm.ListView1KeyPress(Sender: TObject; var Key: char);
     109begin
     110  if Key = #13 then ListView1DblClick(Sender);
     111end;
     112
     113procedure TMainForm.ListView1Resize(Sender: TObject);
     114var
     115  I: Integer;
     116begin
     117  for I := 0 to ListView1.Columns.Count - 1 do
     118    ListView1.Columns[I].Width := ListView1.Width div ListView1.Columns.Count;
     119end;
     120
     121procedure TMainForm.ListView1SelectItem(Sender: TObject; Item: TListItem;
     122  Selected: Boolean);
     123begin
     124  if Assigned(ListView1.Selected) then
     125    SelectedItem := Integer(ListView1.Selected.Data)
     126    else SelectedItem := 0;
     127end;
     128
    95129procedure TMainForm.TreeView1Change(Sender: TObject; Node: TTreeNode);
    96 var
    97   DbRows: TDbRows;
    98   Properties: TDbRows;
    99   Values: TDbRows;
    100   I: Integer;
    101   C: Integer;
    102   NewItem: TListItem;
    103   NewColumn: TListColumn;
    104 begin
    105   if Assigned(TreeView1.Selected) then
    106   with ListView1, Items do begin
    107     Clear;
    108     DbRows := Database.Query('SELECT * FROM `Object` WHERE `Id`=' + IntToStr(TreeView1.Selected.ImageIndex));
    109     if DbRows.Count = 1 then begin
    110       // Load column names
    111       Properties := Database.Query('SELECT * FROM `Property` WHERE `Object`=' +
    112         DbRows[0].Values['Id']);
    113       Columns.Clear;
    114       NewColumn := Columns.Add;
    115       NewColumn.Caption := 'Id';
    116       for I := 0 to Properties.Count - 1 do begin
    117         NewColumn := Columns.Add;
    118         NewColumn.Caption := DbRows[I].Values['Name'];
    119       end;
    120 
    121       // Load items
    122       Values := Database.Query('SELECT * FROM `' + DbRows[0].Values['Schema'] + '`.`' +
    123         DbRows[0].Values['Table'] + '`');
    124       for I := 0 to Values.Count - 1 do begin
    125         NewItem := Items.Add;
    126         NewItem.Caption := Values[I].Values['Id'];
    127         for C := 0 to Properties.Count - 1 do begin
    128           NewItem.SubItems.Add(Values[I].Values[Properties[C].Values['ColumnName']]);
    129         end;
    130       end;
    131       Values.Destroy;
    132       Properties.Destroy;
    133     end;
    134     DbRows.Destroy;
    135   end;
     130begin
     131  LoadItemList;
    136132end;
    137133
    … …  
    163159end;
    164160
     161procedure TMainForm.LoadItemList;
     162var
     163  DbRows: TDbRows;
     164  Properties: TDbRows;
     165  Values: TDbRows;
     166  I: Integer;
     167  C: Integer;
     168  NewItem: TListItem;
     169  NewColumn: TListColumn;
     170begin
     171  SelectedObject := 0;
     172  if Assigned(TreeView1.Selected) then
     173  with ListView1, Items do begin
     174    Clear;
     175    DbRows := Database.Query('SELECT * FROM `Object` WHERE `Id`=' + IntToStr(TreeView1.Selected.ImageIndex));
     176    if DbRows.Count = 1 then begin
     177      SelectedObject := StrToInt(DbRows[0].Values['Id']);
     178
     179      // Load column names
     180      Properties := Database.Query('SELECT * FROM `Property` WHERE `Object`=' +
     181        DbRows[0].Values['Id']);
     182      Columns.Clear;
     183      NewColumn := Columns.Add;
     184      NewColumn.Caption := 'Id';
     185      for I := 0 to Properties.Count - 1 do begin
     186        NewColumn := Columns.Add;
     187        NewColumn.Caption := Properties[I].Values['Name'];
     188      end;
     189
     190      ListView1Resize(Self);
     191
     192      // Load items
     193      Values := Database.Query('SELECT * FROM `' + DbRows[0].Values['Schema'] + '`.`' +
     194        DbRows[0].Values['Table'] + '`');
     195      for I := 0 to Values.Count - 1 do begin
     196        NewItem := Items.Add;
     197        NewItem.Caption := Values[I].Values[DbRows[0].Values['PrimaryKey']];
     198        NewItem.Data := Pointer(StrToInt(Values[I].Values[DbRows[0].Values['PrimaryKey']]));
     199        for C := 0 to Properties.Count - 1 do begin
     200          NewItem.SubItems.Add(Values[I].Values[Properties[C].Values['ColumnName']]);
     201        end;
     202      end;
     203      Values.Destroy;
     204      Properties.Destroy;
     205    end;
     206    DbRows.Destroy;
     207  end;
     208end;
     209
    165210end.
    166211

  • trunk/chronis.lpi

    r2 r3  
    3737      </Item1>
    3838    </RequiredPackages>
    39     <Units Count="15">
     39    <Units Count="13">
    4040      <Unit0>
    4141        <Filename Value="chronis.lpr"/>
    4242        <IsPartOfProject Value="True"/>
    4343        <UnitName Value="chronis"/>
    44         <EditorIndex Value="3"/>
     44        <EditorIndex Value="4"/>
    4545        <WindowIndex Value="0"/>
    4646        <TopLine Value="1"/>
    47         <CursorPos X="59" Y="20"/>
    48         <UsageCount Value="30"/>
     47        <CursorPos X="59" Y="22"/>
     48        <UsageCount Value="144"/>
    4949        <Loaded Value="True"/>
    5050      </Unit0>
    … …  
    5757        <TopLine Value="1"/>
    5858        <CursorPos X="29" Y="1"/>
    59         <UsageCount Value="27"/>
     59        <UsageCount Value="16"/>
    6060      </Unit1>
    6161      <Unit2>
    … …  
    6767        <TopLine Value="1"/>
    6868        <CursorPos X="37" Y="1"/>
    69         <UsageCount Value="27"/>
     69        <UsageCount Value="16"/>
    7070      </Unit2>
    7171      <Unit3>
    7272        <Filename Value="USqlDatabase.pas"/>
    7373        <UnitName Value="USqlDatabase"/>
    74         <EditorIndex Value="4"/>
    7574        <WindowIndex Value="0"/>
    7675        <TopLine Value="330"/>
    7776        <CursorPos X="1" Y="347"/>
    78         <UsageCount Value="26"/>
    79         <Loaded Value="True"/>
     77        <UsageCount Value="82"/>
    8078      </Unit3>
    8179      <Unit4>
    8280        <Filename Value="UMainForm.pas"/>
    83         <IsPartOfProject Value="True"/>
    8481        <ComponentName Value="MainForm"/>
    8582        <HasResources Value="True"/>
    8683        <ResourceBaseClass Value="Form"/>
    8784        <UnitName Value="UMainForm"/>
    88         <IsVisibleTab Value="True"/>
    8985        <EditorIndex Value="0"/>
    9086        <WindowIndex Value="0"/>
    91         <TopLine Value="84"/>
    92         <CursorPos X="51" Y="100"/>
    93         <UsageCount Value="23"/>
     87        <TopLine Value="87"/>
     88        <CursorPos X="26" Y="95"/>
     89        <FoldState Value=" T0iFbM3i"/>
     90        <UsageCount Value="136"/>
    9491        <Loaded Value="True"/>
    9592      </Unit4>
    9693      <Unit5>
    9794        <Filename Value="ULoginForm.pas"/>
    98         <IsPartOfProject Value="True"/>
    9995        <ComponentName Value="LoginForm"/>
    10096        <HasResources Value="True"/>
    … …  
    104100        <TopLine Value="1"/>
    105101        <CursorPos X="24" Y="14"/>
    106         <UsageCount Value="23"/>
     102        <UsageCount Value="136"/>
    107103      </Unit5>
    108104      <Unit6>
    109         <Filename Value="../../../lazarus/trunk/lcl/comctrls.pp"/>
    110         <UnitName Value="ComCtrls"/>
    111         <WindowIndex Value="0"/>
    112         <TopLine Value="2651"/>
    113         <CursorPos X="3" Y="2669"/>
     105        <Filename Value="Common/UPersistentForm.pas"/>
     106        <IsPartOfProject Value="True"/>
     107        <UnitName Value="UPersistentForm"/>
     108        <EditorIndex Value="3"/>
     109        <WindowIndex Value="0"/>
     110        <TopLine Value="42"/>
     111        <CursorPos X="33" Y="46"/>
    114112        <SyntaxHighlighter Value="FreePascal"/>
    115         <UsageCount Value="10"/>
     113        <UsageCount Value="134"/>
     114        <Loaded Value="True"/>
    116115        <DefaultSyntaxHighlighter Value="Text"/>
    117116      </Unit6>
    118117      <Unit7>
    119         <Filename Value="../../../lazarus/trunk/lcl/include/customform.inc"/>
    120         <WindowIndex Value="0"/>
    121         <TopLine Value="819"/>
    122         <CursorPos X="1" Y="838"/>
    123         <SyntaxHighlighter Value="FreePascal"/>
    124         <UsageCount Value="11"/>
     118        <Filename Value="Common/USqlDatabase.pas"/>
     119        <IsPartOfProject Value="True"/>
     120        <UnitName Value="USqlDatabase"/>
     121        <UsageCount Value="134"/>
    125122        <DefaultSyntaxHighlighter Value="Text"/>
    126123      </Unit7>
    127124      <Unit8>
    128         <Filename Value="Common/UPersistentForm.pas"/>
    129         <IsPartOfProject Value="True"/>
    130         <UnitName Value="UPersistentForm"/>
    131         <EditorIndex Value="1"/>
    132         <WindowIndex Value="0"/>
    133         <TopLine Value="1"/>
    134         <CursorPos X="36" Y="19"/>
    135         <SyntaxHighlighter Value="FreePascal"/>
    136         <UsageCount Value="21"/>
    137         <Loaded Value="True"/>
    138         <DefaultSyntaxHighlighter Value="Text"/>
    139       </Unit8>
    140       <Unit9>
    141         <Filename Value="Common/USqlDatabase.pas"/>
    142         <IsPartOfProject Value="True"/>
    143         <UnitName Value="USqlDatabase"/>
    144         <UsageCount Value="21"/>
    145         <DefaultSyntaxHighlighter Value="Text"/>
    146       </Unit9>
    147       <Unit10>
    148         <Filename Value="../../../lazarus/trunk/lcl/forms.pp"/>
    149         <UnitName Value="Forms"/>
    150         <WindowIndex Value="0"/>
    151         <TopLine Value="579"/>
    152         <CursorPos X="15" Y="596"/>
    153         <SyntaxHighlighter Value="FreePascal"/>
    154         <UsageCount Value="10"/>
    155         <DefaultSyntaxHighlighter Value="Text"/>
    156       </Unit10>
    157       <Unit11>
    158125        <Filename Value="Common/URegistry.pas"/>
    159126        <IsPartOfProject Value="True"/>
    160127        <UnitName Value="URegistry"/>
    161         <EditorIndex Value="2"/>
    162128        <WindowIndex Value="0"/>
    163129        <TopLine Value="32"/>
    164130        <CursorPos X="21" Y="13"/>
    165131        <SyntaxHighlighter Value="FreePascal"/>
     132        <UsageCount Value="134"/>
     133        <DefaultSyntaxHighlighter Value="Text"/>
     134      </Unit8>
     135      <Unit9>
     136        <Filename Value="Forms/UItemView.pas"/>
     137        <IsPartOfProject Value="True"/>
     138        <ComponentName Value="ItemViewForm"/>
     139        <ResourceBaseClass Value="Form"/>
     140        <UnitName Value="UItemView"/>
     141        <IsVisibleTab Value="True"/>
     142        <EditorIndex Value="1"/>
     143        <WindowIndex Value="0"/>
     144        <TopLine Value="45"/>
     145        <CursorPos X="3" Y="61"/>
     146        <UsageCount Value="30"/>
     147        <Loaded Value="True"/>
     148      </Unit9>
     149      <Unit10>
     150        <Filename Value="Forms/UItemEdit.pas"/>
     151        <IsPartOfProject Value="True"/>
     152        <ComponentName Value="ItemEditForm"/>
     153        <ResourceBaseClass Value="Form"/>
     154        <UnitName Value="UItemEdit"/>
     155        <EditorIndex Value="2"/>
     156        <WindowIndex Value="0"/>
     157        <TopLine Value="2"/>
     158        <CursorPos X="33" Y="17"/>
    166159        <UsageCount Value="20"/>
    167160        <Loaded Value="True"/>
     161      </Unit10>
     162      <Unit11>
     163        <Filename Value="Forms/ULoginForm.pas"/>
     164        <IsPartOfProject Value="True"/>
     165        <HasResources Value="True"/>
     166        <UnitName Value="ULoginForm"/>
     167        <UsageCount Value="20"/>
    168168        <DefaultSyntaxHighlighter Value="Text"/>
    169169      </Unit11>
    170170      <Unit12>
    171         <Filename Value="/usr/share/fpcsrc/packages/fcl-registry/src/registry.pp"/>
    172         <UnitName Value="registry"/>
    173         <WindowIndex Value="0"/>
    174         <TopLine Value="1"/>
    175         <CursorPos X="5" Y="14"/>
    176         <SyntaxHighlighter Value="FreePascal"/>
    177         <UsageCount Value="10"/>
     171        <Filename Value="Forms/UMainForm.pas"/>
     172        <IsPartOfProject Value="True"/>
     173        <HasResources Value="True"/>
     174        <UnitName Value="UMainForm"/>
     175        <UsageCount Value="20"/>
    178176        <DefaultSyntaxHighlighter Value="Text"/>
    179177      </Unit12>
    180       <Unit13>
    181         <Filename Value="/usr/share/fpcsrc/packages/fcl-registry/src/regdef.inc"/>
    182         <WindowIndex Value="0"/>
    183         <TopLine Value="4"/>
    184         <CursorPos X="17" Y="21"/>
    185         <SyntaxHighlighter Value="FreePascal"/>
    186         <UsageCount Value="10"/>
    187         <DefaultSyntaxHighlighter Value="Text"/>
    188       </Unit13>
    189       <Unit14>
    190         <Filename Value="/usr/share/fpcsrc/rtl/objpas/sysutils/sysutilh.inc"/>
    191         <WindowIndex Value="0"/>
    192         <TopLine Value="17"/>
    193         <CursorPos X="4" Y="34"/>
    194         <SyntaxHighlighter Value="FreePascal"/>
    195         <UsageCount Value="10"/>
    196         <DefaultSyntaxHighlighter Value="Text"/>
    197       </Unit14>
    198178    </Units>
    199     <JumpHistory Count="26" HistoryIndex="25">
     179    <JumpHistory Count="30" HistoryIndex="29">
    200180      <Position1>
    201         <Filename Value="UMainForm.pas"/>
    202         <Caret Line="110" Column="3" TopLine="100"/>
     181        <Filename Value="Forms/UItemView.pas"/>
     182        <Caret Line="87" Column="40" TopLine="74"/>
    203183      </Position1>
    204184      <Position2>
    205185        <Filename Value="UMainForm.pas"/>
    206         <Caret Line="115" Column="1" TopLine="100"/>
     186        <Caret Line="146" Column="28" TopLine="92"/>
    207187      </Position2>
    208188      <Position3>
    209189        <Filename Value="UMainForm.pas"/>
    210         <Caret Line="116" Column="1" TopLine="100"/>
     190        <Caret Line="40" Column="23" TopLine="12"/>
    211191      </Position3>
    212192      <Position4>
    213193        <Filename Value="UMainForm.pas"/>
    214         <Caret Line="114" Column="29" TopLine="100"/>
     194        <Caret Line="198" Column="92" TopLine="171"/>
    215195      </Position4>
    216196      <Position5>
    217         <Filename Value="USqlDatabase.pas"/>
    218         <Caret Line="182" Column="11" TopLine="168"/>
     197        <Filename Value="Forms/UItemView.pas"/>
     198        <Caret Line="43" Column="1" TopLine="27"/>
    219199      </Position5>
    220200      <Position6>
    221         <Filename Value="USqlDatabase.pas"/>
    222         <Caret Line="392" Column="26" TopLine="370"/>
     201        <Filename Value="Common/UPersistentForm.pas"/>
     202        <Caret Line="62" Column="1" TopLine="42"/>
    223203      </Position6>
    224204      <Position7>
    225         <Filename Value="UMainForm.pas"/>
    226         <Caret Line="120" Column="49" TopLine="100"/>
     205        <Filename Value="Common/UPersistentForm.pas"/>
     206        <Caret Line="63" Column="1" TopLine="42"/>
    227207      </Position7>
    228208      <Position8>
    229         <Filename Value="UMainForm.pas"/>
    230         <Caret Line="45" Column="41" TopLine="17"/>
     209        <Filename Value="Common/UPersistentForm.pas"/>
     210        <Caret Line="64" Column="1" TopLine="42"/>
    231211      </Position8>
    232212      <Position9>
    233         <Filename Value="UMainForm.pas"/>
    234         <Caret Line="80" Column="18" TopLine="75"/>
     213        <Filename Value="Common/UPersistentForm.pas"/>
     214        <Caret Line="65" Column="1" TopLine="42"/>
    235215      </Position9>
    236216      <Position10>
    237         <Filename Value="Common/UPersistentForm.pas"/>
    238         <Caret Line="8" Column="47" TopLine="1"/>
     217        <Filename Value="Forms/UItemView.pas"/>
     218        <Caret Line="76" Column="15" TopLine="76"/>
    239219      </Position10>
    240220      <Position11>
    241         <Filename Value="Common/UPersistentForm.pas"/>
    242         <Caret Line="29" Column="24" TopLine="12"/>
     221        <Filename Value="Forms/UItemView.pas"/>
     222        <Caret Line="77" Column="15" TopLine="77"/>
    243223      </Position11>
    244224      <Position12>
    245         <Filename Value="UMainForm.pas"/>
    246         <Caret Line="77" Column="15" TopLine="75"/>
     225        <Filename Value="Forms/UItemView.pas"/>
     226        <Caret Line="76" Column="15" TopLine="76"/>
    247227      </Position12>
    248228      <Position13>
    249         <Filename Value="Common/UPersistentForm.pas"/>
    250         <Caret Line="37" Column="12" TopLine="12"/>
     229        <Filename Value="Forms/UItemView.pas"/>
     230        <Caret Line="77" Column="15" TopLine="77"/>
    251231      </Position13>
    252232      <Position14>
    253         <Filename Value="Common/UPersistentForm.pas"/>
    254         <Caret Line="44" Column="15" TopLine="21"/>
     233        <Filename Value="Forms/UItemView.pas"/>
     234        <Caret Line="78" Column="15" TopLine="78"/>
    255235      </Position14>
    256236      <Position15>
    257         <Filename Value="Common/UPersistentForm.pas"/>
    258         <Caret Line="46" Column="21" TopLine="29"/>
     237        <Filename Value="Forms/UItemEdit.pas"/>
     238        <Caret Line="8" Column="26" TopLine="1"/>
    259239      </Position15>
    260240      <Position16>
    261         <Filename Value="Common/UPersistentForm.pas"/>
    262         <Caret Line="29" Column="69" TopLine="25"/>
     241        <Filename Value="Forms/UItemView.pas"/>
     242        <Caret Line="65" Column="23" TopLine="54"/>
    263243      </Position16>
    264244      <Position17>
    265         <Filename Value="Common/UPersistentForm.pas"/>
    266         <Caret Line="51" Column="71" TopLine="33"/>
     245        <Filename Value="Forms/UItemView.pas"/>
     246        <Caret Line="64" Column="23" TopLine="53"/>
    267247      </Position17>
    268248      <Position18>
    269         <Filename Value="Common/UPersistentForm.pas"/>
    270         <Caret Line="52" Column="23" TopLine="37"/>
     249        <Filename Value="Forms/UItemEdit.pas"/>
     250        <Caret Line="8" Column="26" TopLine="1"/>
    271251      </Position18>
    272252      <Position19>
    273         <Filename Value="Common/UPersistentForm.pas"/>
    274         <Caret Line="54" Column="98" TopLine="37"/>
     253        <Filename Value="Forms/UItemEdit.pas"/>
     254        <Caret Line="9" Column="11" TopLine="1"/>
    275255      </Position19>
    276256      <Position20>
    277         <Filename Value="Common/UPersistentForm.pas"/>
    278         <Caret Line="74" Column="53" TopLine="46"/>
     257        <Filename Value="Forms/UItemEdit.pas"/>
     258        <Caret Line="38" Column="9" TopLine="3"/>
    279259      </Position20>
    280260      <Position21>
    281         <Filename Value="Common/UPersistentForm.pas"/>
    282         <Caret Line="75" Column="19" TopLine="54"/>
     261        <Filename Value="Forms/UItemEdit.pas"/>
     262        <Caret Line="44" Column="9" TopLine="9"/>
    283263      </Position21>
    284264      <Position22>
    285         <Filename Value="Common/URegistry.pas"/>
    286         <Caret Line="8" Column="9" TopLine="1"/>
     265        <Filename Value="Forms/UItemEdit.pas"/>
     266        <Caret Line="52" Column="1" TopLine="15"/>
    287267      </Position22>
    288268      <Position23>
    289         <Filename Value="Common/UPersistentForm.pas"/>
    290         <Caret Line="8" Column="49" TopLine="1"/>
     269        <Filename Value="Forms/UItemEdit.pas"/>
     270        <Caret Line="26" Column="29" TopLine="1"/>
    291271      </Position23>
    292272      <Position24>
    293         <Filename Value="Common/UPersistentForm.pas"/>
    294         <Caret Line="84" Column="28" TopLine="54"/>
     273        <Filename Value="Forms/UItemEdit.pas"/>
     274        <Caret Line="35" Column="13" TopLine="1"/>
    295275      </Position24>
    296276      <Position25>
    297         <Filename Value="Common/UPersistentForm.pas"/>
    298         <Caret Line="84" Column="10" TopLine="54"/>
     277        <Filename Value="Forms/UItemEdit.pas"/>
     278        <Caret Line="63" Column="20" TopLine="44"/>
    299279      </Position25>
    300280      <Position26>
    301         <Filename Value="UMainForm.pas"/>
    302         <Caret Line="25" Column="15" TopLine="7"/>
     281        <Filename Value="Forms/UItemView.pas"/>
     282        <Caret Line="9" Column="13" TopLine="76"/>
    303283      </Position26>
     284      <Position27>
     285        <Filename Value="Forms/UItemView.pas"/>
     286        <Caret Line="26" Column="1" TopLine="1"/>
     287      </Position27>
     288      <Position28>
     289        <Filename Value="Forms/UItemView.pas"/>
     290        <Caret Line="35" Column="27" TopLine="1"/>
     291      </Position28>
     292      <Position29>
     293        <Filename Value="Forms/UItemView.pas"/>
     294        <Caret Line="24" Column="21" TopLine="16"/>
     295      </Position29>
     296      <Position30>
     297        <Filename Value="Forms/UItemView.pas"/>
     298        <Caret Line="55" Column="3" TopLine="53"/>
     299      </Position30>
    304300    </JumpHistory>
    305301  </ProjectOptions>
    … …  
    312308      <IncludeFiles Value="$(ProjOutDir)/"/>
    313309      <Libraries Value="/usr/lib/mysql/;/usr/lib64/mysql/"/>
    314       <OtherUnitFiles Value="Common/"/>
     310      <OtherUnitFiles Value="Common/;Forms/"/>
    315311      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
    316312    </SearchPaths>

  • trunk/chronis.lpr

    r2 r3  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, UMainForm, ULoginForm, UPersistentForm, URegistry, USqlDatabase
     10  Forms, UPersistentForm, URegistry, USqlDatabase,
     11UItemView, UItemEdit, ULoginForm, UMainForm
    1112  { you can add units after this };
    1213
    … …  
    1516begin
    1617  Application.Initialize;
    17   Application.CreateForm(TMainForm, MainForm);
     18  Application.CreateForm(TItemViewForm, ItemViewForm);
     19  Application.CreateForm(TItemEditForm, ItemEditForm);
    1820  Application.Run;
    1921end.
Note: See TracChangeset for help on using the changeset viewer.