Changeset 15 for trunk


Ignore:
Timestamp:
Jun 13, 2011, 8:25:31 AM (13 years ago)
Author:
george
Message:
  • Modified: USqlDatabase used from CoolWeb package.
  • Added: Store item data to database for Add and Edit dialog.
Location:
trunk
Files:
3 added
1 deleted
13 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        44heaptrclog.trc
        55chronis.exe
         6DebugLog.txt

  • trunk/Application/UDataTypes.pas

    r14 r15  
    1616    function CreateControl(Owner: TComponent): TWinControl; virtual;
    1717    procedure SetupControl(Control: TWinControl); virtual;
     18    function GetControlValue(Control: TWinControl): string; virtual;
    1819    procedure Load(CellValue: string); virtual;
    1920    procedure LoadDef(CustomType: Integer); virtual;
    … …  
    3031    function CreateControl(Owner: TComponent): TWinControl; override;
    3132    procedure SetupControl(Control: TWinControl); override;
     33    function GetControlValue(Control: TWinControl): string; override;
    3234    procedure Load(CellValue: string); override;
    3335    procedure LoadDef(CustomType: Integer); override;
    … …  
    4244    function CreateControl(Owner: TComponent): TWinControl; override;
    4345    procedure SetupControl(Control: TWinControl); override;
     46    function GetControlValue(Control: TWinControl): string; override;
    4447    procedure Load(CellValue: string); override;
    4548  end;
    … …  
    6265    Default: Boolean;
    6366    function CreateControl(Owner: TComponent): TWinControl; override;
     67    function GetControlValue(Control: TWinControl): string; override;
    6468    procedure SetupControl(Control: TWinControl); override;
    6569    procedure Load(CellValue: string); override;
    … …  
    8387    Max: TDateTime;
    8488    function CreateControl(Owner: TComponent): TWinControl; override;
     89    function GetControlValue(Control: TWinControl): string; override;
    8590    procedure SetupControl(Control: TWinControl); override;
    8691    procedure Load(CellValue: string); override;
    … …  
    95100    Max: Double;
    96101    function CreateControl(Owner: TComponent): TWinControl; override;
     102    function GetControlValue(Control: TWinControl): string; override;
    97103    procedure SetupControl(Control: TWinControl); override;
    98104    procedure Load(CellValue: string); override;
    … …  
    185191end;
    186192
     193function TDataTypeFloat.GetControlValue(Control: TWinControl): string;
     194begin
     195  Result := MySQLFloatToStr(TFloatSpinEdit(Control).Value);
     196end;
     197
    187198procedure TDataTypeFloat.SetupControl(Control: TWinControl);
    188199begin
    … …  
    202213end;
    203214
     215function TDataTypeDate.GetControlValue(Control: TWinControl): string;
     216begin
     217  Result := DateTimeToSQL(TDateEdit(Control).Date);
     218end;
     219
    204220procedure TDataTypeDate.SetupControl(Control: TWinControl);
    205221begin
    … …  
    217233begin
    218234  Result := TCheckBox.Create(Owner);
     235end;
     236
     237function TDataTypeBoolean.GetControlValue(Control: TWinControl): string;
     238begin
     239  Result := IntToStr(Integer(TCheckBox(Control).Checked));
    219240end;
    220241
    … …  
    242263end;
    243264
     265function TDataTypeNumber.GetControlValue(Control: TWinControl): string;
     266begin
     267  Result := IntToStr(TSpinEdit(Control).Value);
     268end;
     269
    244270procedure TDataTypeNumber.Load(CellValue: string);
    245271begin
    … …  
    265291end;
    266292
     293function TDataTypeString.GetControlValue(Control: TWinControl): string;
     294begin
     295  Result := TEdit(Control).Text;
     296end;
     297
    267298procedure TDataTypeString.Load(CellValue: string);
    268299begin
    … …  
    282313end;
    283314
     315function TDataType.GetControlValue(Control: TWinControl): string;
     316begin
     317
     318end;
     319
    284320procedure TDataType.Load(CellValue: string);
    285321begin

  • trunk/Forms/UItemAdd.pas

    r14 r15  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
    9    StdCtrls, Spin, EditBtn, MaskEdit, USqlDatabase, USystem;
     9  StdCtrls, Spin, EditBtn, MaskEdit, USqlDatabase, USystem,
     10  SpecializedDictionary, SpecializedList;
    1011
    1112type
    … …  
    2829  public
    2930    Report: TReport;
     31    ControlList: TListObject;
    3032  end;
    3133
    … …  
    4850
    4951procedure TItemAddForm.ButtonSaveClick(Sender: TObject);
     52var
     53  Data: TDictionaryStringString;
     54  I: Integer;
     55  DataType: TDataType;
    5056begin
     57  with Core.System do
     58  try
     59    Data := TDictionaryStringString.Create;
     60    for I := 0 to Report.Columns.Count - 1 do
     61    if TReportColumn(Report.Columns[I]).ColumnName <> 'Id' then begin
     62      DataType := TReportColumn(Report.Columns[I]).CustomType;
     63      Data.Add(TReportColumn(Report.Columns[I]).ColumnName, DataType.GetControlValue(TWinControl(ControlList[I])));
     64    end;
     65    Database.Insert(MainForm.SelectedObject.Table, Data, MainForm.SelectedObject.Schema);
     66  finally
     67    Data.Free;
     68  end;
     69  MainForm.LoadItemList;
    5170  Close;
    5271end;
    … …  
    6281  Report := TReport.Create;
    6382  Report.Base := Core.System;
     83  ControlList := TListObject.Create;
     84  ControlList.OwnsObjects := False;
    6485end;
    6586
    … …  
    6788begin
    6889  Report.Free;
     90  ControlList.Free;
    6991end;
    7092
    … …  
    97119
    98120  // Load column names
     121  ControlList.Clear;
    99122    for I := 0 to Report.Columns.Count - 1 do
    100123    if TReportColumn(Report.Columns[I]).ColumnName <> 'Id' then begin
    … …  
    113136      NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
    114137      NewControl.Width := (Width div ColumnCount) div 2 - 20;
     138      ControlList.Add(NewControl);
    115139
    116140      Column := (Column + 1) mod 2;
    117141      if Column = 0 then LastTop := LastTop + NewControl.Height + 4;
    118     end;
     142    end else ControlList.Add(nil);
    119143end;
    120144

  • trunk/Forms/UItemEdit.pas

    r14 r15  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
    9   StdCtrls, Spin, EditBtn, USqlDatabase, MaskEdit, USystem;
     9  StdCtrls, Spin, EditBtn, USqlDatabase, MaskEdit, USystem,
     10  SpecializedList, SpecializedDictionary;
    1011
    1112type
    … …  
    2728  public
    2829    Report: TReport;
     30    ControlList: TListObject;
    2931    procedure BuildControls;
    3032  end;
    … …  
    4850
    4951procedure TItemEditForm.ButtonSaveClick(Sender: TObject);
     52var
     53  Data: TDictionaryStringString;
     54  I: Integer;
     55  DataType: TDataType;
    5056begin
    51 
     57  with Core.System do
     58  try
     59    Data := TDictionaryStringString.Create;
     60    for I := 0 to Report.Columns.Count - 1 do
     61    if TReportColumn(Report.Columns[I]).ColumnName <> 'Id' then begin
     62      DataType := TReportColumn(Report.Columns[I]).CustomType;
     63      Data.Add(TReportColumn(Report.Columns[I]).ColumnName, DataType.GetControlValue(TWinControl(ControlList[I])));
     64    end;
     65    Database.Update(MainForm.SelectedObject.Table, Data,
     66      '`Id` = ' + IntToStr(MainForm.SelectedItem), MainForm.SelectedObject.Schema);
     67  finally
     68    Data.Free;
     69  end;
     70  if (MainForm.SelectedObject.Table = ObjectGroupTable) or
     71  (MainForm.SelectedObject.Table = ObjectTable) then
     72    MainForm.LoadTree;
    5273  MainForm.LoadItemList;
    5374  Close;
    … …  
    6485  Report := TReport.Create;
    6586  Report.Base := Core.System;
     87  ControlList := TListObject.Create;
     88  ControlList.OwnsObjects := False;
    6689end;
    6790
    6891procedure TItemEditForm.FormDestroy(Sender: TObject);
    6992begin
     93  ControlList.Free;
    7094  Report.Free;
    7195end;
    … …  
    115139      NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
    116140      NewControl.Width := (Width div ColumnCount) div 2 - 20;
     141      ControlList.Add(NewControl);
    117142
    118143      Column := (Column + 1) mod 2;
    119144      if Column = 0 then LastTop := LastTop + NewControl.Height + 4;
    120    end;
     145   end else ControlList.Add(nil);
    121146end;
    122147

  • trunk/Forms/UMainForm.pas

    r14 r15  
    407407  ObjectId := AddObject('Object groups', 'ObjectGroup', Core.System.Database.Database, GroupId);
    408408    AddPropertyString(ObjectId, 'Name', 'Name');
     409    AddPropertyNumber(ObjectId, 'Parent', 'Parent');
    409410  ObjectId := AddObject('Objects', 'Object', Core.System.Database.Database, GroupId);
    410411    AddPropertyString(ObjectId, 'Name', 'Name');
    … …  
    417418    AddPropertyString(ObjectId, 'Name', 'Name');
    418419    AddPropertyString(ObjectId, 'Type', 'DbType');
    419     AddPropertyNumber(ObjectId, 'Parent', 'Parent');
     420    //AddPropertyNumber(ObjectId, 'Parent', 'Parent');
    420421  ObjectId := AddObject('Property groups', 'PropertyGroup', Core.System.Database.Database, GroupId);
    421422  ObjectId := AddObject('Properties', 'Property', Core.System.Database.Database, GroupId);

  • trunk/UCore.lfm

    r14 r15  
    1212    top = 55
    1313  end
     14  object SqlDatabase1: TSqlDatabase
     15    Connected = False
     16    Encoding = 'utf8'
     17    OnLogQuery = SqlDatabase1LogQuery
     18    left = 200
     19    top = 55
     20  end
     21  object DebugLog1: TDebugLog
     22    WriteToFileEnable = False
     23    FileName = 'DebugLog.txt'
     24    MaxCount = 100
     25    left = 176
     26    top = 121
     27  end
    1428end

  • trunk/UCore.pas

    r14 r15  
    66
    77uses
    8   Classes, SysUtils, FileUtil, UCoolTranslator, USystem, USqlDatabase;
     8  Classes, SysUtils, FileUtil, UCoolTranslator, UDebugLog, USystem,
     9  USqlDatabase;
    910
    1011type
    … …  
    1415  TCore = class(TDataModule)
    1516    CoolTranslator1: TCoolTranslator;
     17    DebugLog1: TDebugLog;
     18    SqlDatabase1: TSqlDatabase;
    1619    procedure DataModuleCreate(Sender: TObject);
    1720    procedure DataModuleDestroy(Sender: TObject);
     21    procedure SqlDatabase1LogQuery(Sender: TObject; Text: string);
    1822  private
    1923    { private declarations }
    … …  
    3438begin
    3539  System := TChronisBase.Create;
    36   System.Database := TSqlDatabase.Create;
     40  System.Database := SqlDatabase1;
     41  {$IFDEF DEBUG}
     42  DebugLog1.WriteToFileEnable := True;
     43  {$ENDIF}
    3744end;
    3845
    … …  
    4249end;
    4350
     51procedure TCore.SqlDatabase1LogQuery(Sender: TObject; Text: string);
     52begin
     53  DebugLog1.Add('', Text);
     54end;
     55
    4456end.
    4557

  • trunk/USystem.pas

    r14 r15  
    184184        Columns.Add(NewColumn);
    185185        NewColumn.Caption := Properties[I].Values['Name'];
    186         NewColumn.ColumnName := Properties[I].Values['ColumnName'];;
     186        NewColumn.ColumnName := Properties[I].Values['ColumnName'];
    187187        NewColumn.CustomType := GetDataType(StrToInt(Properties[I].Values['CustomType']));
    188188      end;
    … …  
    298298    Data.Add('Default', IntToStr(Default));
    299299    Database.Insert(TypeNumber, Data);
    300     CustomTypeId := Database.LastInsertId;
     300    //CustomTypeId := Database.LastInsertId;
    301301
    302302    Result := AddProperty(ObjectId, Name, ColumnName, CustomTypeId);
    … …  
    414414constructor TChronisBase.Create;
    415415begin
    416   Database := TSqlDatabase.Create;
    417416  Types := TChronisTypeList.Create;
    418417end;
    … …  
    421420begin
    422421  Types.Free;
    423   Database.Free;
    424422  inherited Destroy;
    425423end;

  • trunk/chronis.lpi

    r14 r15  
    8181      </local>
    8282    </RunParams>
    83     <RequiredPackages Count="4">
     83    <RequiredPackages Count="6">
    8484      <Item1>
    85         <PackageName Value="CoolTranslator"/>
    86         <MinVersion Valid="True"/>
     85        <PackageName Value="Common"/>
    8786      </Item1>
    8887      <Item2>
    89         <PackageName Value="LCLBase"/>
     88        <PackageName Value="CoolWeb"/>
    9089        <MinVersion Valid="True"/>
    9190      </Item2>
    9291      <Item3>
    93         <PackageName Value="TemplateGenerics"/>
     92        <PackageName Value="CoolTranslator"/>
     93        <MinVersion Valid="True"/>
    9494      </Item3>
    9595      <Item4>
     96        <PackageName Value="LCLBase"/>
     97        <MinVersion Valid="True"/>
     98      </Item4>
     99      <Item5>
     100        <PackageName Value="TemplateGenerics"/>
     101      </Item5>
     102      <Item6>
    96103        <PackageName Value="LCL"/>
    97       </Item4>
     104      </Item6>
    98105    </RequiredPackages>
    99     <Units Count="40">
     106    <Units Count="57">
    100107      <Unit0>
    101108        <Filename Value="chronis.lpr"/>
    … …  
    106113        <CursorPos X="1" Y="33"/>
    107114        <UsageCount Value="274"/>
    108         <LoadedDesigner Value="True"/>
    109115        <DefaultSyntaxHighlighter Value="Delphi"/>
    110116      </Unit0>
    … …  
    154160      <Unit5>
    155161        <Filename Value="Common/USqlDatabase.pas"/>
    156         <IsPartOfProject Value="True"/>
    157162        <UnitName Value="USqlDatabase"/>
    158         <EditorIndex Value="9"/>
    159         <WindowIndex Value="0"/>
    160         <TopLine Value="410"/>
    161         <CursorPos X="1" Y="424"/>
     163        <WindowIndex Value="0"/>
     164        <TopLine Value="58"/>
     165        <CursorPos X="73" Y="232"/>
    162166        <UsageCount Value="264"/>
    163         <Loaded Value="True"/>
    164167        <DefaultSyntaxHighlighter Value="Delphi"/>
    165168      </Unit5>
    … …  
    168171        <IsPartOfProject Value="True"/>
    169172        <UnitName Value="URegistry"/>
     173        <EditorIndex Value="14"/>
    170174        <WindowIndex Value="0"/>
    171175        <TopLine Value="19"/>
    172176        <CursorPos X="1" Y="31"/>
    173177        <UsageCount Value="264"/>
     178        <Loaded Value="True"/>
    174179        <DefaultSyntaxHighlighter Value="Delphi"/>
    175180      </Unit6>
    … …  
    182187        <EditorIndex Value="0"/>
    183188        <WindowIndex Value="0"/>
    184         <TopLine Value="99"/>
    185         <CursorPos X="42" Y="112"/>
     189        <TopLine Value="1"/>
     190        <CursorPos X="36" Y="14"/>
    186191        <UsageCount Value="327"/>
    187192        <Loaded Value="True"/>
    … …  
    195200        <ResourceBaseClass Value="Form"/>
    196201        <UnitName Value="UItemEdit"/>
    197         <IsVisibleTab Value="True"/>
    198202        <EditorIndex Value="1"/>
    199203        <WindowIndex Value="0"/>
    200         <TopLine Value="93"/>
    201         <CursorPos X="1" Y="111"/>
     204        <TopLine Value="51"/>
     205        <CursorPos X="47" Y="71"/>
    202206        <UsageCount Value="318"/>
    203207        <Loaded Value="True"/>
    … …  
    212216        <ResourceBaseClass Value="Form"/>
    213217        <UnitName Value="ULoginForm"/>
    214         <EditorIndex Value="11"/>
     218        <EditorIndex Value="16"/>
    215219        <WindowIndex Value="0"/>
    216220        <TopLine Value="14"/>
    … …  
    228232        <ResourceBaseClass Value="Form"/>
    229233        <UnitName Value="UMainForm"/>
    230         <EditorIndex Value="3"/>
    231         <WindowIndex Value="0"/>
    232         <TopLine Value="405"/>
    233         <CursorPos X="22" Y="412"/>
     234        <EditorIndex Value="2"/>
     235        <WindowIndex Value="0"/>
     236        <TopLine Value="95"/>
     237        <CursorPos X="15" Y="98"/>
    234238        <UsageCount Value="317"/>
    235239        <Loaded Value="True"/>
    … …  
    241245        <IsPartOfProject Value="True"/>
    242246        <UnitName Value="UTreeState"/>
     247        <EditorIndex Value="13"/>
     248        <WindowIndex Value="0"/>
     249        <TopLine Value="1"/>
     250        <CursorPos X="1" Y="1"/>
    243251        <UsageCount Value="314"/>
     252        <Loaded Value="True"/>
    244253        <DefaultSyntaxHighlighter Value="Delphi"/>
    245254      </Unit11>
    … …  
    250259        <ResourceBaseClass Value="Form"/>
    251260        <UnitName Value="UItemAdd"/>
    252         <EditorIndex Value="10"/>
    253         <WindowIndex Value="0"/>
    254         <TopLine Value="73"/>
    255         <CursorPos X="17" Y="85"/>
     261        <EditorIndex Value="15"/>
     262        <WindowIndex Value="0"/>
     263        <TopLine Value="13"/>
     264        <CursorPos X="1" Y="32"/>
    256265        <UsageCount Value="313"/>
    257266        <Loaded Value="True"/>
    … …  
    273282        <CursorPos X="1" Y="60"/>
    274283        <UsageCount Value="10"/>
     284        <DefaultSyntaxHighlighter Value="Delphi"/>
    275285      </Unit14>
    276286      <Unit15>
    … …  
    280290        <CursorPos X="1" Y="85"/>
    281291        <UsageCount Value="7"/>
     292        <DefaultSyntaxHighlighter Value="Delphi"/>
    282293      </Unit15>
    283294      <Unit16>
    … …  
    288299        <CursorPos X="15" Y="606"/>
    289300        <UsageCount Value="2"/>
     301        <DefaultSyntaxHighlighter Value="Delphi"/>
    290302      </Unit16>
    291303      <Unit17>
    … …  
    295307        <CursorPos X="3" Y="2109"/>
    296308        <UsageCount Value="2"/>
     309        <DefaultSyntaxHighlighter Value="Delphi"/>
    297310      </Unit17>
    298311      <Unit18>
    … …  
    317330        <IsPartOfProject Value="True"/>
    318331        <UnitName Value="USystem"/>
    319         <EditorIndex Value="6"/>
    320         <WindowIndex Value="0"/>
    321         <TopLine Value="169"/>
    322         <CursorPos X="1" Y="181"/>
    323         <UsageCount Value="95"/>
     332        <EditorIndex Value="11"/>
     333        <WindowIndex Value="0"/>
     334        <TopLine Value="305"/>
     335        <CursorPos X="28" Y="424"/>
     336        <UsageCount Value="98"/>
    324337        <Loaded Value="True"/>
    325338        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    332345        <CursorPos X="14" Y="929"/>
    333346        <UsageCount Value="10"/>
     347        <DefaultSyntaxHighlighter Value="Delphi"/>
    334348      </Unit21>
    335349      <Unit22>
    … …  
    339353        <CursorPos X="15" Y="18"/>
    340354        <UsageCount Value="8"/>
     355        <DefaultSyntaxHighlighter Value="Delphi"/>
    341356      </Unit22>
    342357      <Unit23>
    … …  
    354369        <ResourceBaseClass Value="DataModule"/>
    355370        <UnitName Value="UCore"/>
    356         <EditorIndex Value="5"/>
    357         <WindowIndex Value="0"/>
    358         <TopLine Value="1"/>
    359         <CursorPos X="70" Y="8"/>
    360         <UsageCount Value="79"/>
     371        <IsVisibleTab Value="True"/>
     372        <EditorIndex Value="9"/>
     373        <WindowIndex Value="0"/>
     374        <TopLine Value="31"/>
     375        <CursorPos X="31" Y="42"/>
     376        <UsageCount Value="82"/>
    361377        <Loaded Value="True"/>
    362378        <LoadedDesigner Value="True"/>
    … …  
    369385        <ResourceBaseClass Value="Form"/>
    370386        <UnitName Value="USettingForm"/>
    371         <EditorIndex Value="4"/>
     387        <EditorIndex Value="8"/>
    372388        <WindowIndex Value="0"/>
    373389        <TopLine Value="40"/>
    374390        <CursorPos X="45" Y="15"/>
    375         <UsageCount Value="78"/>
     391        <UsageCount Value="81"/>
    376392        <Loaded Value="True"/>
    377393        <LoadedDesigner Value="True"/>
    … …  
    385401        <TopLine Value="37"/>
    386402        <CursorPos X="21" Y="52"/>
    387         <UsageCount Value="78"/>
     403        <UsageCount Value="81"/>
    388404        <DefaultSyntaxHighlighter Value="Delphi"/>
    389405      </Unit26>
    … …  
    395411        <CursorPos X="26" Y="109"/>
    396412        <UsageCount Value="8"/>
     413        <DefaultSyntaxHighlighter Value="Delphi"/>
    397414      </Unit27>
    398415      <Unit28>
    … …  
    402419        <CursorPos X="14" Y="58"/>
    403420        <UsageCount Value="8"/>
     421        <DefaultSyntaxHighlighter Value="Delphi"/>
    404422      </Unit28>
    405423      <Unit29>
    … …  
    409427        <CursorPos X="6" Y="103"/>
    410428        <UsageCount Value="8"/>
     429        <DefaultSyntaxHighlighter Value="Delphi"/>
    411430      </Unit29>
    412431      <Unit30>
    … …  
    416435        <CursorPos X="7" Y="384"/>
    417436        <UsageCount Value="5"/>
     437        <DefaultSyntaxHighlighter Value="Delphi"/>
    418438      </Unit30>
    419439      <Unit31>
    … …  
    423443        <CursorPos X="40" Y="94"/>
    424444        <UsageCount Value="5"/>
     445        <DefaultSyntaxHighlighter Value="Delphi"/>
    425446      </Unit31>
    426447      <Unit32>
    … …  
    431452        <CursorPos X="3" Y="305"/>
    432453        <UsageCount Value="5"/>
     454        <DefaultSyntaxHighlighter Value="Delphi"/>
    433455      </Unit32>
    434456      <Unit33>
    … …  
    439461        <CursorPos X="44" Y="500"/>
    440462        <UsageCount Value="28"/>
     463        <DefaultSyntaxHighlighter Value="Delphi"/>
    441464      </Unit33>
    442465      <Unit34>
    … …  
    447470        <CursorPos X="24" Y="1673"/>
    448471        <UsageCount Value="28"/>
     472        <DefaultSyntaxHighlighter Value="Delphi"/>
    449473      </Unit34>
    450474      <Unit35>
    451         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    452         <WindowIndex Value="0"/>
    453         <TopLine Value="50"/>
    454         <CursorPos X="1" Y="63"/>
    455         <UsageCount Value="10"/>
     475        <Filename Value="Application/UDataTypes.pas"/>
     476        <IsPartOfProject Value="True"/>
     477        <UnitName Value="UDataTypes"/>
     478        <EditorIndex Value="12"/>
     479        <WindowIndex Value="0"/>
     480        <TopLine Value="193"/>
     481        <CursorPos X="28" Y="195"/>
     482        <UsageCount Value="35"/>
     483        <Loaded Value="True"/>
     484        <DefaultSyntaxHighlighter Value="Delphi"/>
    456485      </Unit35>
    457486      <Unit36>
    458         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    459         <EditorIndex Value="8"/>
    460         <WindowIndex Value="0"/>
    461         <TopLine Value="120"/>
    462         <CursorPos X="1" Y="134"/>
    463         <UsageCount Value="15"/>
    464         <Loaded Value="True"/>
    465       </Unit36>
    466       <Unit37>
    467         <Filename Value="Application/UDataTypes.pas"/>
    468         <IsPartOfProject Value="True"/>
    469         <UnitName Value="UDataTypes"/>
    470         <EditorIndex Value="7"/>
    471         <WindowIndex Value="0"/>
    472         <TopLine Value="233"/>
    473         <CursorPos X="1" Y="247"/>
    474         <UsageCount Value="32"/>
    475         <Loaded Value="True"/>
    476         <DefaultSyntaxHighlighter Value="Delphi"/>
    477       </Unit37>
    478       <Unit38>
    479487        <Filename Value="H:/Lazarus/0.9.31_2.5.1/lcl/stdctrls.pp"/>
    480488        <UnitName Value="StdCtrls"/>
    … …  
    483491        <CursorPos X="26" Y="1458"/>
    484492        <UsageCount Value="9"/>
    485       </Unit38>
    486       <Unit39>
     493        <DefaultSyntaxHighlighter Value="Delphi"/>
     494      </Unit36>
     495      <Unit37>
    487496        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/win32/system.pp"/>
    488497        <UnitName Value="System"/>
    489         <EditorIndex Value="2"/>
    490498        <WindowIndex Value="0"/>
    491499        <TopLine Value="4"/>
    492500        <CursorPos X="1" Y="16"/>
    493501        <UsageCount Value="14"/>
    494         <Loaded Value="True"/>
     502        <DefaultSyntaxHighlighter Value="Delphi"/>
     503      </Unit37>
     504      <Unit38>
     505        <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
     506        <UnitName Value="USqlDatabase"/>
     507        <WindowIndex Value="0"/>
     508        <TopLine Value="1"/>
     509        <CursorPos X="1" Y="1"/>
     510        <UsageCount Value="10"/>
     511      </Unit38>
     512      <Unit39>
     513        <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServer.pas"/>
     514        <UnitName Value="UHTTPServer"/>
     515        <WindowIndex Value="0"/>
     516        <TopLine Value="1"/>
     517        <CursorPos X="1" Y="1"/>
     518        <UsageCount Value="10"/>
    495519      </Unit39>
     520      <Unit40>
     521        <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/CoolWeb.pas"/>
     522        <UnitName Value="CoolWeb"/>
     523        <WindowIndex Value="0"/>
     524        <TopLine Value="5"/>
     525        <CursorPos X="50" Y="15"/>
     526        <UsageCount Value="10"/>
     527      </Unit40>
     528      <Unit41>
     529        <Filename Value="H:/PascalClassLibrary/Common/UDebugLog.pas"/>
     530        <UnitName Value="UDebugLog"/>
     531        <WindowIndex Value="0"/>
     532        <TopLine Value="88"/>
     533        <CursorPos X="1" Y="109"/>
     534        <UsageCount Value="10"/>
     535      </Unit41>
     536      <Unit42>
     537        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/classes/classesh.inc"/>
     538        <WindowIndex Value="0"/>
     539        <TopLine Value="1639"/>
     540        <CursorPos X="17" Y="1651"/>
     541        <UsageCount Value="10"/>
     542      </Unit42>
     543      <Unit43>
     544        <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/Common/UCommon.pas"/>
     545        <UnitName Value="UCommon"/>
     546        <WindowIndex Value="0"/>
     547        <TopLine Value="28"/>
     548        <CursorPos X="1" Y="1"/>
     549        <UsageCount Value="10"/>
     550      </Unit43>
     551      <Unit44>
     552        <Filename Value="H:/PascalClassLibrary/Common/UCommon.pas"/>
     553        <UnitName Value="UCommon"/>
     554        <WindowIndex Value="0"/>
     555        <TopLine Value="37"/>
     556        <CursorPos X="1" Y="1"/>
     557        <UsageCount Value="10"/>
     558      </Unit44>
     559      <Unit45>
     560        <Filename Value="H:/PascalClassLibrary/Common/Common.pas"/>
     561        <UnitName Value="Common"/>
     562        <WindowIndex Value="0"/>
     563        <TopLine Value="1"/>
     564        <CursorPos X="36" Y="13"/>
     565        <UsageCount Value="10"/>
     566      </Unit45>
     567      <Unit46>
     568        <Filename Value="H:/PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPSessionFile.pas"/>
     569        <UnitName Value="UHTTPSessionFile"/>
     570        <WindowIndex Value="0"/>
     571        <TopLine Value="15"/>
     572        <CursorPos X="19" Y="27"/>
     573        <UsageCount Value="10"/>
     574      </Unit46>
     575      <Unit47>
     576        <Filename Value="H:/PascalClassLibrary/Common/StopWatch.pas"/>
     577        <UnitName Value="StopWatch"/>
     578        <WindowIndex Value="0"/>
     579        <TopLine Value="19"/>
     580        <CursorPos X="1" Y="1"/>
     581        <UsageCount Value="10"/>
     582      </Unit47>
     583      <Unit48>
     584        <Filename Value="H:/PascalClassLibrary/Common/UThreading.pas"/>
     585        <UnitName Value="UThreading"/>
     586        <WindowIndex Value="0"/>
     587        <TopLine Value="28"/>
     588        <CursorPos X="1" Y="1"/>
     589        <UsageCount Value="10"/>
     590      </Unit48>
     591      <Unit49>
     592        <Filename Value="H:/PascalClassLibrary/Common/UPrefixMultiplier.pas"/>
     593        <UnitName Value="UPrefixMultiplier"/>
     594        <WindowIndex Value="0"/>
     595        <TopLine Value="1"/>
     596        <CursorPos X="1" Y="1"/>
     597        <UsageCount Value="10"/>
     598      </Unit49>
     599      <Unit50>
     600        <Filename Value="H:/PascalClassLibrary/Common/UDelay.pas"/>
     601        <UnitName Value="UDelay"/>
     602        <WindowIndex Value="0"/>
     603        <TopLine Value="16"/>
     604        <CursorPos X="1" Y="1"/>
     605        <UsageCount Value="10"/>
     606      </Unit50>
     607      <Unit51>
     608        <Filename Value="H:/PascalClassLibrary/Common/UDebugLog.pas"/>
     609        <UnitName Value="UDebugLog"/>
     610        <EditorIndex Value="10"/>
     611        <WindowIndex Value="0"/>
     612        <TopLine Value="77"/>
     613        <CursorPos X="38" Y="90"/>
     614        <UsageCount Value="10"/>
     615        <Loaded Value="True"/>
     616      </Unit51>
     617      <Unit52>
     618        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     619        <EditorIndex Value="3"/>
     620        <WindowIndex Value="0"/>
     621        <TopLine Value="33"/>
     622        <CursorPos X="14" Y="45"/>
     623        <UsageCount Value="10"/>
     624        <Loaded Value="True"/>
     625      </Unit52>
     626      <Unit53>
     627        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>
     628        <EditorIndex Value="7"/>
     629        <WindowIndex Value="0"/>
     630        <TopLine Value="8"/>
     631        <CursorPos X="62" Y="20"/>
     632        <UsageCount Value="10"/>
     633        <Loaded Value="True"/>
     634      </Unit53>
     635      <Unit54>
     636        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/sysstrh.inc"/>
     637        <EditorIndex Value="5"/>
     638        <WindowIndex Value="0"/>
     639        <TopLine Value="70"/>
     640        <CursorPos X="10" Y="82"/>
     641        <UsageCount Value="10"/>
     642        <Loaded Value="True"/>
     643      </Unit54>
     644      <Unit55>
     645        <Filename Value="H:/Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/sysstr.inc"/>
     646        <EditorIndex Value="6"/>
     647        <WindowIndex Value="0"/>
     648        <TopLine Value="141"/>
     649        <CursorPos X="3" Y="144"/>
     650        <UsageCount Value="10"/>
     651        <Loaded Value="True"/>
     652      </Unit55>
     653      <Unit56>
     654        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
     655        <EditorIndex Value="4"/>
     656        <WindowIndex Value="0"/>
     657        <TopLine Value="33"/>
     658        <CursorPos X="25" Y="45"/>
     659        <UsageCount Value="10"/>
     660        <Loaded Value="True"/>
     661      </Unit56>
    496662    </Units>
    497663    <JumpHistory Count="30" HistoryIndex="29">
    498664      <Position1>
    499         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    500         <Caret Line="133" Column="1" TopLine="120"/>
     665        <Filename Value="Forms/UMainForm.pas"/>
     666        <Caret Line="189" Column="1" TopLine="176"/>
    501667      </Position1>
    502668      <Position2>
    503         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    504         <Caret Line="134" Column="1" TopLine="120"/>
     669        <Filename Value="Forms/UMainForm.pas"/>
     670        <Caret Line="190" Column="1" TopLine="179"/>
    505671      </Position2>
    506672      <Position3>
    507         <Filename Value="Forms/UItemEdit.pas"/>
    508         <Caret Line="112" Column="1" TopLine="93"/>
     673        <Filename Value="Forms/UMainForm.pas"/>
     674        <Caret Line="193" Column="1" TopLine="179"/>
    509675      </Position3>
    510676      <Position4>
    511         <Filename Value="Forms/UItemEdit.pas"/>
    512         <Caret Line="111" Column="1" TopLine="93"/>
     677        <Filename Value="Forms/UMainForm.pas"/>
     678        <Caret Line="194" Column="1" TopLine="179"/>
    513679      </Position4>
    514680      <Position5>
    515         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    516         <Caret Line="131" Column="1" TopLine="120"/>
     681        <Filename Value="Forms/UMainForm.pas"/>
     682        <Caret Line="195" Column="1" TopLine="179"/>
    517683      </Position5>
    518684      <Position6>
    519         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    520         <Caret Line="133" Column="1" TopLine="120"/>
     685        <Filename Value="Forms/UMainForm.pas"/>
     686        <Caret Line="197" Column="1" TopLine="179"/>
    521687      </Position6>
    522688      <Position7>
    523         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    524         <Caret Line="134" Column="1" TopLine="120"/>
     689        <Filename Value="Forms/UMainForm.pas"/>
     690        <Caret Line="198" Column="1" TopLine="191"/>
    525691      </Position7>
    526692      <Position8>
    527         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    528         <Caret Line="131" Column="1" TopLine="120"/>
     693        <Filename Value="Forms/UMainForm.pas"/>
     694        <Caret Line="200" Column="1" TopLine="191"/>
    529695      </Position8>
    530696      <Position9>
    531697        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    532         <Caret Line="133" Column="1" TopLine="120"/>
     698        <Caret Line="234" Column="1" TopLine="222"/>
    533699      </Position9>
    534700      <Position10>
    535701        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    536         <Caret Line="134" Column="1" TopLine="120"/>
     702        <Caret Line="236" Column="1" TopLine="222"/>
    537703      </Position10>
    538704      <Position11>
    539         <Filename Value="Application/UDataTypes.pas"/>
    540         <Caret Line="268" Column="27" TopLine="256"/>
     705        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     706        <Caret Line="241" Column="9" TopLine="233"/>
    541707      </Position11>
    542708      <Position12>
    543         <Filename Value="Application/UDataTypes.pas"/>
    544         <Caret Line="270" Column="1" TopLine="256"/>
     709        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     710        <Caret Line="240" Column="9" TopLine="233"/>
    545711      </Position12>
    546712      <Position13>
    547         <Filename Value="Forms/UItemEdit.pas"/>
    548         <Caret Line="112" Column="1" TopLine="93"/>
     713        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     714        <Caret Line="241" Column="9" TopLine="233"/>
    549715      </Position13>
    550716      <Position14>
    551         <Filename Value="Forms/UItemEdit.pas"/>
    552         <Caret Line="111" Column="1" TopLine="93"/>
     717        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>
     718        <Caret Line="20" Column="1" TopLine="16"/>
    553719      </Position14>
    554720      <Position15>
    555         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    556         <Caret Line="131" Column="1" TopLine="120"/>
     721        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>
     722        <Caret Line="77" Column="19" TopLine="65"/>
    557723      </Position15>
    558724      <Position16>
    559         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    560         <Caret Line="133" Column="1" TopLine="120"/>
     725        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>
     726        <Caret Line="78" Column="14" TopLine="65"/>
    561727      </Position16>
    562728      <Position17>
    563         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    564         <Caret Line="134" Column="1" TopLine="120"/>
     729        <Filename Value="Forms/UMainForm.pas"/>
     730        <Caret Line="200" Column="1" TopLine="191"/>
    565731      </Position17>
    566732      <Position18>
    567         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    568         <Caret Line="131" Column="1" TopLine="120"/>
     733        <Filename Value="Forms/UMainForm.pas"/>
     734        <Caret Line="189" Column="21" TopLine="177"/>
    569735      </Position18>
    570736      <Position19>
    571         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    572         <Caret Line="133" Column="1" TopLine="120"/>
     737        <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>
     738        <Caret Line="20" Column="62" TopLine="8"/>
    573739      </Position19>
    574740      <Position20>
    575         <Filename Value="H:/PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    576         <Caret Line="134" Column="1" TopLine="120"/>
     741        <Filename Value="Forms/UMainForm.pas"/>
     742        <Caret Line="185" Column="1" TopLine="177"/>
    577743      </Position20>
    578744      <Position21>
    579         <Filename Value="Application/UDataTypes.pas"/>
    580         <Caret Line="251" Column="39" TopLine="233"/>
     745        <Filename Value="Forms/UMainForm.pas"/>
     746        <Caret Line="186" Column="1" TopLine="177"/>
    581747      </Position21>
    582748      <Position22>
    583         <Filename Value="Application/UDataTypes.pas"/>
    584         <Caret Line="246" Column="1" TopLine="233"/>
     749        <Filename Value="Forms/UMainForm.pas"/>
     750        <Caret Line="187" Column="1" TopLine="177"/>
    585751      </Position22>
    586752      <Position23>
    587         <Filename Value="USystem.pas"/>
    588         <Caret Line="323" Column="31" TopLine="309"/>
     753        <Filename Value="Forms/UMainForm.pas"/>
     754        <Caret Line="189" Column="1" TopLine="177"/>
    589755      </Position23>
    590756      <Position24>
    591         <Filename Value="USystem.pas"/>
    592         <Caret Line="325" Column="1" TopLine="309"/>
     757        <Filename Value="Forms/UMainForm.pas"/>
     758        <Caret Line="197" Column="1" TopLine="177"/>
    593759      </Position24>
    594760      <Position25>
    595         <Filename Value="USystem.pas"/>
    596         <Caret Line="326" Column="1" TopLine="309"/>
     761        <Filename Value="Forms/UMainForm.pas"/>
     762        <Caret Line="198" Column="1" TopLine="184"/>
    597763      </Position25>
    598764      <Position26>
    599         <Filename Value="USystem.pas"/>
    600         <Caret Line="327" Column="1" TopLine="309"/>
     765        <Filename Value="Forms/UMainForm.pas"/>
     766        <Caret Line="200" Column="1" TopLine="184"/>
    601767      </Position26>
    602768      <Position27>
    603         <Filename Value="USystem.pas"/>
    604         <Caret Line="328" Column="1" TopLine="309"/>
     769        <Filename Value="Forms/UMainForm.pas"/>
     770        <Caret Line="215" Column="1" TopLine="203"/>
    605771      </Position27>
    606772      <Position28>
    607         <Filename Value="USystem.pas"/>
    608         <Caret Line="330" Column="7" TopLine="312"/>
     773        <Filename Value="Forms/UMainForm.pas"/>
     774        <Caret Line="226" Column="1" TopLine="212"/>
    609775      </Position28>
    610776      <Position29>
    611         <Filename Value="USystem.pas"/>
    612         <Caret Line="325" Column="1" TopLine="312"/>
     777        <Filename Value="Forms/UMainForm.pas"/>
     778        <Caret Line="241" Column="1" TopLine="232"/>
    613779      </Position29>
    614780      <Position30>
    615         <Filename Value="USystem.pas"/>
    616         <Caret Line="181" Column="1" TopLine="169"/>
     781        <Filename Value="Forms/UMainForm.pas"/>
     782        <Caret Line="250" Column="1" TopLine="232"/>
    617783      </Position30>
    618784    </JumpHistory>
    … …  
    658824    <Other>
    659825      <CompilerMessages>
     826        <IgnoredMessages idx5023="True" idx5024="True" idx5025="True" idx5026="True" idx5028="True" idx5029="True" idx5031="True"/>
    660827        <UseMsgFile Value="True"/>
    661828      </CompilerMessages>

  • trunk/chronis.lpr

    r14 r15  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, UPersistentForm, URegistry, USqlDatabase, UTreeState, SysUtils,
    11   UItemView, UItemEdit, ULoginForm, UMainForm, UItemAdd, TemplateGenerics,
    12   CoolTranslator, USystem, UCore, UApplicationInfo, USettingForm, UDataTypes
     10  Forms, UPersistentForm, URegistry, UTreeState, SysUtils, UItemView, UItemEdit,
     11  ULoginForm, UMainForm, UItemAdd, TemplateGenerics, CoolTranslator, Common,
     12  CoolWeb, USystem, UCore, UApplicationInfo, USettingForm, UDataTypes
    1313  { you can add units after this };
    1414

  • trunk/languages/chronis.cs.po

    r12 r15  
    227227msgstr "Nastavení"
    228228
     229#: TSETTINGFORM.COMBOBOXLANGUAGE.TEXT
     230msgid "ComboBoxLanguage"
     231msgstr ""
     232
    229233#: TSETTINGFORM.LABEL1.CAPTION
    230234msgid "Server address:"
    231235msgstr "Adresa serveru:"
    232236
     237#: TSETTINGFORM.LABEL2.CAPTION
     238msgid "Language:"
     239msgstr "Jazyk:"
     240
    233241#: umainform.sgroup
    234242msgid "Groups"
    235243msgstr "Skupiny"
    236244
     245#: umainform.sitemdeletion
     246msgid "Delete items"
     247msgstr "Smazat položky"
     248
    237249#: umainform.sitemnotfound
    238250msgid "Item not found"
    … …  
    243255msgstr "Objekt nenalezen"
    244256
     257#: umainform.sreallywanttodelete
     258msgid "Really want to delete selected items?"
     259msgstr "Opravdu chcete smazat položky?"
     260
    245261#: usqldatabase.sdatabasequeryerror
    246262msgid "Database query error: \"%s\""
    247263msgstr "Chyba databázového dotazu: \"%s\""
    248264
     265#: usystem.sunsupportedtype
     266msgid "Unsupported property type \"%s\""
     267msgstr "Nepodporovaný typ vlastnosti \"%s\""
     268

  • trunk/languages/chronis.po

    r12 r15  
    200200msgstr ""
    201201
     202#: TSETTINGFORM.COMBOBOXLANGUAGE.TEXT
     203msgid "ComboBoxLanguage"
     204msgstr ""
     205
    202206#: TSETTINGFORM.LABEL1.CAPTION
    203207msgid "Server address:"
    204208msgstr ""
    205209
     210#: TSETTINGFORM.LABEL2.CAPTION
     211msgid "Language:"
     212msgstr ""
     213
    206214#: umainform.sgroup
    207215msgid "Groups"
    208216msgstr ""
    209217
     218#: umainform.sitemdeletion
     219msgid "Delete items"
     220msgstr ""
     221
    210222#: umainform.sitemnotfound
    211223msgid "Item not found"
    … …  
    216228msgstr ""
    217229
     230#: umainform.sreallywanttodelete
     231msgid "Really want to delete selected items?"
     232msgstr ""
     233
    218234#: usqldatabase.sdatabasequeryerror
    219235msgid "Database query error: \"%s\""
    220236msgstr ""
    221237
     238#: usystem.sunsupportedtype
     239msgid "Unsupported property type \"%s\""
     240msgstr ""
     241
Note: See TracChangeset for help on using the changeset viewer.