Changeset 16 for trunk


Ignore:
Timestamp:
Mar 22, 2018, 8:52:29 PM (6 years ago)
Author:
chronos
Message:
  • Added: Debian package build files.
  • Added: Application about dialog.
Location:
trunk
Files:
18 added
11 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        44data.xml
        55Config.xml
         6*.lrj
         7heaptrclog.trc

  • trunk/Forms

    • Property svn:ignore set to
      *.lrj

  • trunk/Forms/UFormMain.lfm

    r15 r16  
    4545      end
    4646    end
     47    object MenuItem7: TMenuItem
     48      Caption = 'Help'
     49      object MenuItem8: TMenuItem
     50        Action = Core.AAbout
     51      end
     52    end
    4753  end
    4854end

  • trunk/Forms/UFormMain.pas

    r15 r16  
    2121    MenuItem5: TMenuItem;
    2222    MenuItem6: TMenuItem;
     23    MenuItem7: TMenuItem;
     24    MenuItem8: TMenuItem;
    2325    MenuItemPreferences: TMenuItem;
    2426    StatusBar1: TStatusBar;
    … …  
    7274begin
    7375  NewCaption := Application.Title;
    74   if Assigned(Core.Database) then NewCaption := NewCaption + ' - ' + Core.Database.Name;
     76  if Assigned(Core.Database) then NewCaption := Core.Database.Name + ' - ' + NewCaption;
    7577  FormMain.Caption := NewCaption;
    7678end;

  • trunk/Forms/UFormRecord.lfm

    r13 r16  
    1111  OnShow = FormShow
    1212  Position = poMainFormCenter
    13   LCLVersion = '1.5'
     13  LCLVersion = '1.8.0.4'
    1414  object Panel1: TPanel
    1515    Left = 4

  • trunk/Languages/MyData.cs.po

    r15 r16  
    1111"X-Generator: Poedit 1.5.4\n"
    1212
     13#: tcore.aabout.caption
     14msgid "About"
     15msgstr ""
     16
    1317#: tcore.adatabaseconnect.caption
    1418msgid "Connect"
    … …  
    187191msgstr "Databáze"
    188192
     193#: tformmain.menuitem7.caption
     194msgid "Help"
     195msgstr ""
     196
    189197#: tformmain.menuitempreferences.caption
    190198msgid "Tools"
    … …  
    350358msgstr "Špatný formát souboru"
    351359
     360#: uformabout.slicense
     361msgid "License"
     362msgstr ""
     363
     364#: uformabout.sreleasedate
     365msgid "Release date"
     366msgstr ""
     367
     368#: uformabout.sversion
     369msgid "Version"
     370msgstr ""
     371
    352372#: uformfields.sfieldsnotset
    353373msgid "Fields not set"

  • trunk/Languages/MyData.po

    r15 r16  
    11msgid ""
    22msgstr "Content-Type: text/plain; charset=UTF-8"
     3
     4#: tcore.aabout.caption
     5msgid "About"
     6msgstr ""
    37
    48#: tcore.adatabaseconnect.caption
    … …  
    178182msgstr ""
    179183
     184#: tformmain.menuitem7.caption
     185msgid "Help"
     186msgstr ""
     187
    180188#: tformmain.menuitempreferences.caption
    181189msgid "Tools"
    … …  
    341349msgstr ""
    342350
     351#: uformabout.slicense
     352msgid "License"
     353msgstr ""
     354
     355#: uformabout.sreleasedate
     356msgid "Release date"
     357msgstr ""
     358
     359#: uformabout.sversion
     360msgid "Version"
     361msgstr ""
     362
    343363#: uformfields.sfieldsnotset
    344364msgid "Fields not set"

  • trunk/MyData.lpi

    r15 r16  
    104104      </Item8>
    105105    </RequiredPackages>
    106     <Units Count="17">
     106    <Units Count="18">
    107107      <Unit0>
    108108        <Filename Value="MyData.lpr"/>
    … …  
    206206        <ResourceBaseClass Value="Form"/>
    207207      </Unit16>
     208      <Unit17>
     209        <Filename Value="Forms/UFormAbout.pas"/>
     210        <IsPartOfProject Value="True"/>
     211        <HasResources Value="True"/>
     212      </Unit17>
    208213    </Units>
    209214  </ProjectOptions>

  • trunk/MyData.lpr

    r15 r16  
    44
    55uses
    6   {$IFDEF UNIX}{$IFDEF UseCThreads}
    7   cthreads,
    8   {$ENDIF}{$ENDIF}
     6  {$IFDEF UNIX}
     7  cthreads, clocale,
     8  {$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    1010  Forms, UFormTables, UCore, Common, CoolTranslator,

  • trunk/UCore.lfm

    r14 r16  
    1313    top = 136
    1414    Bitmap = {
    15       4C690B000000200000002000000061C66E0061C66E0061C66E0061C66E0061C6
     15      4C690C000000200000002000000061C66E0061C66E0061C66E0061C66E0061C6
    1616      6E0061C66E0061C66E0061C66E0061C66E0061C66E0061C56E0048B05E0947AF
    1717      5D4E47AE5C7946AD5B9A47AD5BB046AC5AB045AA589A44A9577944A7564E43A6
    … …  
    14211421      0000000000000000000000000000000000000000000000000000000000000000
    14221422      0000000000000000000000000000000000000000000000000000000000000000
     1423      0000000000000000000000000000000000000000000000000000000000000000
     1424      00000000000000000000000000000000000000000000CFCFCF1DC1C1C162BDBD
     1425      BD97B9B9B9B8B6B6B6C6B3B3B3C6B0B0B0B7A6A6A6969A9A9A62727272220000
     1426      0006000000010000000000000000000000000000000000000000000000000000
     1427      0000000000000000000000000000000000000000000000000000000000000000
     1428      00000000000000000000FFFFFF01D2D2D250D4D4D4C1CECECEFCDBDBDBFFE5E5
     1429      E5FFEDEDEDFFEFEFEFFFEDEDEDFFE6E6E6FFD9D9D9FFC8C8C8FFB2B2B2FAA5A5
     1430      A5B88C8C8C500000000C00000003000000000000000000000000000000000000
     1431      0000000000000000000000000000000000000000000000000000000000000000
     1432      000000000000E1E1E12EC5C5C5C6D5D5D5FEEFEFEFFFFEFEFEFFFCFCFDFFFAFB
     1433      FBFFF7F9F9FFF5F6F8FFF4F6F7FFF2F3F4FFF0F1F1FFEFEFEFFFEDEDEDFFD6D6
     1434      D6FFB1B1B1FE999999BB5B5B5B38000000090000000100000000000000000000
     1435      0000000000000000000000000000000000000000000000000000000000000000
     1436      0000DFDFDF63CECECEF6EDEDEDFFFFFFFFFFFBFCFCFFFAFCFEFFE3E6EAFFCED1
     1437      D2FFCCC5BCFFCEBFB0FFCFC0B1FFCDC7C1FFD1D4D9FFE0E4E8FFEAECEDFFE8E8
     1438      E8FFE9E9E9FFC7C7C7FF989898EF6C6C6C690000001200000003000000000000
     1439      000000000000000000000000000000000000000000000000000000000000E1E1
     1440      E17CD4D4D4FEFAFAFAFFFCFCFCFFFBFCFDFFD3D6D7FFC7B4A0FFDFB081FFF4B4
     1441      73FFF5B26FFFF4B16BFFF1AC66FFF0A85FFFE9A55EFFD8A874FFCDBBAAFFD6DB
     1442      E0FFE3E4E6FFE2E2E2FFD8D8D8FF9B9B9BFB6969697E00000019000000040000
     1443      0000000000000000000000000000000000000000000000000000E2E2E26BD5D5
     1444      D5FEFCFCFCFFFBFCFCFFEAEEF0FFC3B6AAFFECB882FFFABD81FFF8BC81FFF6BB
     1445      7EFFF5B87BFFF3B576FFF1B171FFEFAE6AFFEEA964FFECA55DFFEAA051FFDDA1
     1446      64FFCDC6C0FFDCDFE2FFDDDDDEFFD9D9D9FF959595FB52525276000000190000
     1447      00030000000000000000000000000000000000000000DFDFDF39CFCFCFF9F9F9
     1448      F9FFFAFBFBFFE1E5E7FFCCB196FFFDC085FFFAC38AFFFAC189FFF7BE84FFF1B8
     1449      7BFFEAAF72FFE4A869FFE2A464FFE4A361FFE8A55FFFEBA65EFFEAA25BFFE89E
     1450      52FFE59848FFD0BAA5FFD6DADDFFDADADAFFCFCFCFFF858585F12A2A2A5C0000
     1451      001300000001000000000000000000000000BEBEBE06CACACAD4EDEDEDFFF9F9
     1452      FAFFE7EAEDFFCEB295FFFEC289FFFCC690FFF9C48EFFEBBF96FFECCBB3FFF2DA
     1453      CEFFF8E6E4FFFDEEF0FFFEEEF2FFF9E4E3FFEFCFC2FFE0AF86FFDE9951FFE8A0
     1454      56FFE69B4FFFE59440FFD2BCA7FFD4D7DAFFD6D6D6FFB6B6B6FF707070C50000
     1455      003A0000000A000000000000000000000000D4D4D468D7D7D7FFF9F9F9FFF4F5
     1456      F8FFC4B5A4FFFEC286FFFCC68FFFFFCA95FFE7B784FFF7E9EAFFFFF5F7FFFFF4
     1457      F5FFFFF5F6FFFFF3F3FFFFF1F1FFFFEEEFFFFFEDEEFFFFEDF1FFEFCFC6FFD692
     1458      4DFFE69B50FFE5974AFFE1913DFFD1CBC5FFD0D1D3FFD5D5D5FF8E8E8EFE3838
     1459      38820000002100000003000000007E7E7E02C7C7C7DBEEEEEEFFF5F6F7FFCACC
     1460      CDFFF3BB82FFFAC38AFFFCC692FFFFCD99FFE0B081FFF4E7E7FFFFFAFBFFFFFF
     1461      FFFFFFF9FBFFFCF3F5FFFFFBFEFFFFF2F4FFFFEDEDFFFFEAEAFFFFEAEDFFE3BB
     1462      A5FFDE9549FFE5974AFFE29241FFDD9D5DFFCFD4DAFFCECFCFFFB7B7B7FF6767
     1463      67C9000000470000000D00000000C1C1C13ECECECEFEF5F5F5FFEFF1F3FFCDB2
     1464      96FFFABD81FFF9C38AFFFBC690FFFFCC98FFE3B483FFF5EAECFFCCBDB1FFAD8E
     1465      71FFA97E55FFAB7E50FFA17B54FFDFCEC8FFFFF0F1FFFFEAEAFFFFE7E8FFFBE1
     1466      E3FFCA843DFFE4984BFFE19344FFE08A32FFD5C5B4FFC9CACCFFCCCCCCFF7D7D
     1467      7DFD131313780000001F00000001BCBCBC86DBDBDBFFF1F1F1FFD3D7DAFFEBB6
     1468      7DFFF7BC82FFF8C089FFFAC48DFFFDC893FFF4C18EFFCAA076FFDDAB7AFFF5BE
     1469      86FFF9C185FFF9BC80FFEDB072FFBB946EFFFFF5F7FFFFEAEAFFFFE6E7FFFFE9
     1470      EDFFBE7D39FFE5994AFFE19343FFDF8D38FFDCA66EFFC8CBCFFFC4C4C4FF9393
     1471      93FF3131319A0000003600000007B8B8B8BEE5E5E5FFEEEFF0FFC8C4BEFFF6B6
     1472      74FFF5BA7EFFF7BF84FFF9C18AFFFAC38CFFFBC58EFFFCC68DFFFCC28BFFF9C0
     1473      87FFF7BD82FFF5B97CFFF1B172FFCEA47FFFFFF2F5FFFFEAEAFFFFE9E9FFEED2
     1474      D0FFC9843DFFE59749FFE19242FFDF8E3CFFDE8C38FFCBD2D7FFBEBFBFFFA2A2
     1475      A2FF464646B50000005000000010B7B7B7E2E9E9E9FFECEEEFFFCBB9A5FFF5B4
     1476      72FFF4B77AFFF6BB7FFFF7BD83FFF8BF87FFF8C088FFF8BF88FFF7BE84FFF7BD
     1477      82FFF6BA7CFFF3B474FFD89D62FFF2DFD8FFFFEEEFFFFFE8E9FFFFEDF1FFC49E
     1478      82FFDA9246FFE49648FFE19141FFDE8D3AFFDD8429FFD1CDC7FFB8B8B9FFABAB
     1479      ABFF545454CC0000006700000018B6B6B6F3EAEAEAFFE7EAECFFCEB399FFF4B1
     1480      6EFFF2B477FFF4B77AFFF5B97DFFF6BB7FFFF6BB80FFF6BB80FFF6BB7EFFF2B5
     1481      79FFE1A669FFE0B690FFF8E8E6FFFFF0F2FFFFECEDFFFFF0F4FFD7B8ADFFBB7C
     1482      3BFFE5984AFFE29546FFE0903FFFDE8C38FFDD8328FFD4C5B7FFB4B4B5FFAEAE
     1483      AEFF555555DC000000760000001EB2B2B2F6E8E8E8FFE4E6E9FFCEB397FFF1AE
     1484      69FFF1B170FFF2B374FFF3B577FFF4B679FFF4B77BFFF5B879FFF3B577FFDDAE
     1485      80FFFFF4F8FFFFF3F6FFFFEEEFFFFFEFF1FFF8E3E3FFB79279FFB97A3BFFE59A
     1486      4EFFE49749FFE19242FFDF8E3CFFDD8A36FFDC8326FFD5C5B5FFAEAFB0FFAAAA
     1487      AAFF555555DF0000007F00000021AEAEAEE8E3E3E3FFE3E5E6FFCEB8A2FFEFAB
     1488      63FFEFAD6BFFF0AF6EFFF1B171FFF1B272FFF1B273FFF1B274FFF1B16FFFCCA1
     1489      78FFFFF1F4FFFFEAEAFFFFECEEFFCDB1A4FFA46E36FFD5924CFFE69D51FFE599
     1490      4CFFE29445FFE0903FFFDE8C3AFFDC8834FFDB7F23FFD0CAC3FFABABACFFA0A0
     1491      A0FF4D4D4DD20000008000000021A4A4A4CAD9D9D9FFE0E1E2FFCBC2B9FFEFA6
     1492      5BFFEDA965FFEEAB68FFEFAD6AFFEFAE6CFFEFAE6CFFEFAE6CFFEFAD69FFCB9D
     1493      75FFFFF0F4FFFFEAEBFFFFEDF0FFD4AD93FFE19950FFE99D52FFE59A4CFFE395
     1494      47FFE19242FFDF8E3CFFDD8A37FFDB8731FFDB832AFFC6CCD1FFA6A6A6FF9292
     1495      92FF3E3E3EBE0000007A0000001F9C9C9C9AC9C9C9FFDFDFDFFFCCD1D5FFE7A3
     1496      5DFFEBA55FFFECA762FFECA864FFEDA965FFEDAA65FFEDA965FFEDA964FFCC99
     1497      6AFFE1C7C3FFDCC1BBFFDEC4BFFFCEA17FFFE2994FFFE6994EFFE39648FFE193
     1498      43FFE08F3EFFDE8C39FFDC8833FFDA822BFFE3A261FFB1B5BAFFA2A2A2FF7C7C
     1499      7CFF282828A80000006C0000001A8787875BB4B4B4FFDCDCDDFFD5D8DCFFD5AF
     1500      87FFEBA056FFEAA35BFFEAA45DFFEBA55EFFEBA55FFFECA560FFECA55EFFD896
     1501      4FFFB77938FFB27432FFB37431FFCA853CFFE4984CFFE39648FFE29344FFE090
     1502      3FFFDE8D3AFFDD8935FFDB8630FFD97D1FFFE0C6ACFF9D9FA0FFA2A2A2FF6565
     1503      65FE0E0E0E9B00000058000000124E4E4E159D9D9DEED6D6D6FFD6D7D8FFCBC9
     1504      C8FFE89C4EFFE79F55FFE8A057FFE8A058FFE8A158FFE8A258FFE49C53FFE0AF
     1505      90FFF9D5D1FFF8D2CDFFF8D2CDFFF0C9BFFFD38A3CFFE29443FFE0903FFFDF8D
     1506      3BFFDD8A36FFDB8731FFDA8229FFDF9141FFBDC1C7FF9B9B9BFF919191FF4C4C
     1507      4CDC000000950000003D00000009000000048E8E8E90B6B6B6FFD5D5D5FFD0D3
     1508      D6FFD5B595FFE79748FFE69B50FFE69C51FFE69C51FFE79C51FFDE9649FFD5A9
     1509      90FFFFE0E3FFFFDBDBFFFFDCDDFFF4CECDFFC47C31FFE2903EFFDE8D3AFFDD8A
     1510      36FFDC8731FFDA842DFFD97B1DFFDECFBFFF96989BFF9B9B9BFF6A6A6AFF2222
     1511      22A60000007C00000024000000020000000158585826949494EDCCCCCCFFCFD0
     1512      D0FFCCCFD5FFDCA974FFE59544FFE4984AFFE4984BFFE4994CFFDD9345FFD1A0
     1513      86FFF1CCCDFFEFC8C7FFF0C8C9FFE7BEBAFFC77D2FFFDF8D39FFDD8935FFDB87
     1514      31FFDA842DFFD97A1CFFE7BF98FFA0A4A8FF959696FF888888FF464646DF0202
     1515      029D0000005300000012000000000000000000000007797979749E9E9EFFD0D0
     1516      D0FFC9CACAFFC9CDD2FFDCA973FFE3903BFFE29343FFE29344FFE29343FFC67F
     1517      36FFA86A28FFA76826FFA76724FFB47027FFD98735FFDD8835FFDB8630FFDA83
     1518      2BFFD97A1BFFE6BF97FFA7ACB2FF939494FF929292FF575757FD141414A20000
     1519      007C0000002A00000005000000000000000000000001000000137C7C7CACA3A3
     1520      A3FFC9C9C9FFC2C2C3FFC4C8CFFFD9B999FFE18E3AFFE18D39FFE08F3CFFE18F
     1521      3CFFE18E3BFFE08D3AFFDF8C37FFDF8935FFDC8731FFDA842CFFD97E21FFDE88
     1522      31FFE2CDB9FFA1A4A9FF919192FF929292FF616161FE2B2B2BAE000000930000
     1523      00470000000F0000000000000000000000000000000000000004141414247272
     1524      72BE9C9C9CFFC1C1C1FFBCBCBCFFB9BBBEFFCACAC8FFDFB388FFE09142FFDE86
     1525      2BFFDE862BFFDD852CFFDB8329FFDB8225FFDB7E1FFFE09345FFE5C09BFFC2C5
     1526      C9FF919396FF909090FF909090FF616161FF363636B90000009C0000005D0000
     1527      001B000000030000000000000000000000000000000000000000000000071010
     1528      102E6A6A6AB18C8C8CFFB3B3B3FFB6B6B6FFAFB0B0FFAFB1B4FFBFC4CBFFCDC6
     1529      BEFFD8BFA4FFDDBC99FFDDBC9BFFD8C1AAFFCBC7C3FFB3BAC0FF939799FF9090
     1530      91FF919191FF868686FF585858FE2F2F2FB10000009D00000065000000240000
     1531      0005000000000000000000000000000000000000000000000000000000000000
     1532      0008000000294F4F4F8B757575F0929292FFADADADFFACACACFFA6A6A6FFA2A3
     1533      A3FF9E9FA1FF9A9C9EFF989A9CFF959798FF949495FF929292FF929292FF8C8C
     1534      8CFF6B6B6BFF484848EA171717A3000000950000005F00000024000000070000
     1535      0000000000000000000000000000000000000000000000000000000000000000
     1536      000000000007000000211919195B4E4E4EAA6B6B6BF2818181FF8F8F8FFF9A9A
     1537      9AFFA0A0A0FF9E9E9EFF9B9B9BFF979797FF8C8C8CFF7A7A7AFF666666FF4D4D
     1538      4DED292929AD0303039E000000820000004D0000001C00000005000000000000
     1539      0000000000000000000000000000000000000000000000000000000000000000
     1540      0000000000000000000400000014000000340A0A0A652B2B2B93444444B65555
     1541      55DA5E5E5EF4606060FE5D5D5DFE535353F2474747D6333333B51717179F0101
     1542      019A000000850000005C0000002F000000120000000300000000000000000000
     1543      0000000000000000000000000000000000000000000000000000000000000000
     1544      000000000000000000000000000100000007000000170000002F0000004C0000
     1545      00680000007D0000008B00000090000000900000008A0000007C000000650000
     1546      00480000002B0000001500000007000000010000000000000000000000000000
     1547      0000000000000000000000000000000000000000000000000000000000000000
     1548      00000000000000000000000000000000000000000001000000050000000F0000
     1549      0019000000200000002500000027000000270000002400000020000000170000
     1550      000D000000040000000100000000000000000000000000000000000000000000
    14231551      0000000000000000000000000000
    14241552    }
    … …  
    14551583      OnExecute = ADatabaseDisconnectExecute
    14561584    end
     1585    object AAbout: TAction
     1586      Caption = 'About'
     1587      ImageIndex = 11
     1588      OnExecute = AAboutExecute
     1589    end
    14571590  end
    14581591  object CoolTranslator1: TCoolTranslator
    … …  
    14621595    top = 304
    14631596  end
     1597  object ApplicationInfo1: TApplicationInfo
     1598    Identification = 1
     1599    VersionMajor = 1
     1600    VersionMinor = 0
     1601    VersionBugFix = 0
     1602    VersionSuffix = 'alfa'
     1603    HomePage = 'http://svn.zdechov.net/trac/MyData'
     1604    AuthorsName = 'Chronos'
     1605    EmailContact = 'robie@centrum.cz'
     1606    AppName = 'MyData'
     1607    Description = 'Customizable database storage'
     1608    ReleaseDate = 43181
     1609    RegistryKey = '\Software\Chronosoft\MyData'
     1610    RegistryRoot = rrKeyCurrentUser
     1611    License = 'CC0'
     1612    left = 80
     1613    top = 88
     1614  end
    14641615end

  • trunk/UCore.pas

    r14 r16  
    77uses
    88  Classes, SysUtils, XMLConf, FileUtil, Controls, ActnList, UDatabase,
    9   UCoolTranslator, Forms;
     9  UCoolTranslator, UApplicationInfo, Forms;
    1010
    1111type
    … …  
    1313
    1414  TCore = class(TDataModule)
     15    AAbout: TAction;
    1516    ADatabaseConnect: TAction;
    1617    ADatabaseDisconnect: TAction;
     18    ApplicationInfo1: TApplicationInfo;
    1719    APreferences: TAction;
    1820    AExit: TAction;
    … …  
    2123    ImageList1: TImageList;
    2224    XMLConfig1: TXMLConfig;
     25    procedure AAboutExecute(Sender: TObject);
    2326    procedure ADatabaseConnectExecute(Sender: TObject);
    2427    procedure ADatabaseDisconnectExecute(Sender: TObject);
    … …  
    5053  Core: TCore;
    5154
     55
    5256implementation
    5357
    5458uses
    5559  UEngineXML, UEngineMySQL, UEngineSQLite, UFormTables, UFormConnect,
    56   UFormDatabases, UDataTypes, UFormPreferences, UFormMain;
     60  UFormDatabases, UDataTypes, UFormPreferences, UFormMain, UFormAbout;
    5761
    5862{$R *.lfm}
    … …  
    9599    Database := FormDatabases.SelectedDatabase;
    96100  end;
     101end;
     102
     103procedure TCore.AAboutExecute(Sender: TObject);
     104begin
     105  FormAbout := TFormAbout.Create(nil);
     106  FormAbout.ApplicationInfo := ApplicationInfo1;
     107  FormAbout.ShowModal;
     108  FormAbout.Free;
    97109end;
    98110
Note: See TracChangeset for help on using the changeset viewer.