Changeset 31


Ignore:
Timestamp:
Jul 13, 2016, 10:34:13 AM (8 years ago)
Author:
chronos
Message:
  • Added: Import format for MS Access database.
  • Added: Show text hints on toolbar buttons.
Location:
trunk
Files:
9 edited

Legend:

Unmodified
Added
Removed
  • trunk/AcronymDecoder.lpi

    r28 r31  
    7171      </local>
    7272    </RunParams>
    73     <RequiredPackages Count="4">
     73    <RequiredPackages Count="5">
    7474      <Item1>
     75        <PackageName Value="SQLDBLaz"/>
     76      </Item1>
     77      <Item2>
    7578        <PackageName Value="CoolTranslator"/>
    7679        <DefaultFilename Value="Packages\CoolTranslator\CoolTranslator.lpk" Prefer="True"/>
    77       </Item1>
    78       <Item2>
     80      </Item2>
     81      <Item3>
    7982        <PackageName Value="TemplateGenerics"/>
    8083        <DefaultFilename Value="Packages\TemplateGenerics\TemplateGenerics.lpk" Prefer="True"/>
    81       </Item2>
    82       <Item3>
     84      </Item3>
     85      <Item4>
    8386        <PackageName Value="Common"/>
    8487        <DefaultFilename Value="Packages\Common\Common.lpk" Prefer="True"/>
    85       </Item3>
    86       <Item4>
     88      </Item4>
     89      <Item5>
    8790        <PackageName Value="LCL"/>
    88       </Item4>
     91      </Item5>
    8992    </RequiredPackages>
    9093    <Units Count="15">
  • trunk/Forms/UFormImportFormat.lfm

    r28 r31  
    3333    Left = 20
    3434    Height = 20
    35     Top = 16
     35    Top = 53
    3636    Width = 43
    3737    Caption = 'Name:'
     
    4141    Left = 179
    4242    Height = 28
    43     Top = 11
     43    Top = 48
    4444    Width = 461
    4545    Anchors = [akTop, akLeft, akRight]
     
    4949    Left = 20
    5050    Height = 20
    51     Top = 53
     51    Top = 90
    5252    Width = 72
    5353    Caption = 'Block start:'
     
    5757    Left = 179
    5858    Height = 28
    59     Top = 48
     59    Top = 85
    6060    Width = 461
    6161    Anchors = [akTop, akLeft, akRight]
     
    6565    Left = 20
    6666    Height = 20
    67     Top = 93
     67    Top = 130
    6868    Width = 68
    6969    Caption = 'Block end:'
     
    7373    Left = 179
    7474    Height = 28
    75     Top = 88
     75    Top = 125
    7676    Width = 461
    7777    Anchors = [akTop, akLeft, akRight]
     
    8080  object ListViewItemRules: TListView
    8181    Left = 20
    82     Height = 230
    83     Top = 144
     82    Height = 192
     83    Top = 181
    8484    Width = 620
    8585    Anchors = [akTop, akLeft, akRight, akBottom]
     
    117117    Left = 20
    118118    Height = 20
    119     Top = 120
     119    Top = 157
    120120    Width = 68
    121121    Caption = 'Item rules:'
    122122    ParentColor = False
    123123  end
     124  object Label3: TLabel
     125    Left = 20
     126    Height = 20
     127    Top = 13
     128    Width = 35
     129    Caption = 'Type:'
     130    ParentColor = False
     131  end
     132  object ComboBoxType: TComboBox
     133    Left = 179
     134    Height = 28
     135    Top = 13
     136    Width = 197
     137    ItemHeight = 20
     138    Items.Strings = (
     139      'Text parse'
     140      'MS Access database'
     141    )
     142    Style = csDropDownList
     143    TabOrder = 6
     144  end
    124145  object PopupMenu1: TPopupMenu
    125146    Images = FormMain.ImageList1
    126147    left = 181
    127     top = 240
     148    top = 277
    128149    object MenuItem1: TMenuItem
    129150      Action = AAdd
     
    145166    Images = FormMain.ImageList1
    146167    left = 383
    147     top = 245
     168    top = 282
    148169    object AAdd: TAction
    149170      Caption = 'Add'
  • trunk/Forms/UFormImportFormat.lrt

    r28 r31  
    1111TFORMIMPORTFORMAT.LISTVIEWITEMRULES.COLUMNS[4].CAPTION=Repetition
    1212TFORMIMPORTFORMAT.LABEL2.CAPTION=Item rules:
     13TFORMIMPORTFORMAT.LABEL3.CAPTION=Type:
    1314TFORMIMPORTFORMAT.AADD.CAPTION=Add
    1415TFORMIMPORTFORMAT.AMODIFY.CAPTION=Modify
  • trunk/Forms/UFormImportFormat.pas

    r28 r31  
    2222    ButtonOk: TButton;
    2323    ButtonCancel: TButton;
     24    ComboBoxType: TComboBox;
    2425    EditBlockEnd: TEdit;
    2526    EditBlockStart: TEdit;
     
    2728    Label1: TLabel;
    2829    Label2: TLabel;
     30    Label3: TLabel;
    2931    Label8: TLabel;
    3032    Label9: TLabel;
     
    166168procedure TFormImportFormat.Load(ImportFormat: TImportFormat);
    167169begin
     170  ComboBoxType.ItemIndex := Integer(ImportFormat.Kind);
    168171  Self.ImportFormat := ImportFormat;
    169172  EditName.Text := ImportFormat.Name;
     
    175178procedure TFormImportFormat.Save(ImportFormat: TImportFormat);
    176179begin
     180  ImportFormat.Kind := TImportFormatKind(ComboBoxType.ItemIndex);
    177181  ImportFormat.Name := EditName.Text;
    178182  ImportFormat.Block.StartString := EditBlockStart.Text;
  • trunk/Forms/UFormMain.lfm

    r30 r31  
    7676    Caption = 'ToolBar1'
    7777    Images = ImageList1
     78    ParentShowHint = False
     79    ShowHint = True
    7880    TabOrder = 1
    7981    object ToolButton1: TToolButton
     
    44264428    object MenuItem19: TMenuItem
    44274429      Action = ASettings
     4430      Bitmap.Data = {
     4431        36040000424D3604000000000000360000002800000010000000100000000100
     4432        2000000000000004000064000000640000000000000000000000000000000000
     4433        0000000000000000000000000000000000003F3428FF3F3428FF3F3428FF3F34
     4434        28FF000000000000000000000000000000000000000000000000000000000000
     4435        0000000000003F3428FF3F3428FF00000000776D66FFE5DBD2FFE5DBD2FF776D
     4436        66FF000000003F3428FF3F3428FF000000000000000000000000000000000000
     4437        00003F3428FF877D73FFE1D9D1FF574D42FF766C63FFEDE5DDFFEDE5DDFF766C
     4438        63FF574D42FFE1D9D1FF877D73FF3F3428FF0000000000000000000000003F34
     4439        28FFB6B0A9FFE1D9D1FFC8BEB4FFE1D9D1FFC8BEB4FFEDE5DDFFEDE5DDFFC8BE
     4440        B4FFE1D9D1FFC8BEB4FFE1D9D1FFB6B0A9FF3F3428FF00000000000000003F34
     4441        28FFE1D9D1FFEBE7E2FFE1D9D1FFAEA7A0FFE2DDDAFFB7B1ABFFB7B1ABFFE2DD
     4442        DAFFAEA7A0FFE1D9D1FFEBE7E2FFE1D9D1FF3F3428FF00000000000000000000
     4443        000061564CFFE1D9D1FFACA39BFFE4E1DCFFAFA8A4FF695E53FF695E53FFAFA8
     4444        A4FFE4E1DCFFACA39BFFE1D9D1FF61564CFF0000000000000000463B2FFF3E33
     4445        28FF61564CFFAFA8A4FFC1BCB6FFAFA8A4FF695E53FFFFFFFF00FFFFFF00695E
     4446        53FFAFA8A4FFC1BCB6FFAFA8A4FF61564CFF3E3328FF463B2FFF897E74FFE8E0
     4447        D7FFE8E0D7FFB0ACA8FFE8E3DDFF695E53FFFFFFFF00FFFFFF00FFFFFF00FFFF
     4448        FF00695E53FFE8E3DDFFB0ACA8FFE8E0D7FFE8E0D7FF897E74FF877B70FFFFFF
     4449        FFFFFFFFFFFFBFBCB8FFD6CDC5FF695E53FFFFFFFF00FFFFFF00FFFFFF00FFFF
     4450        FF00695E53FFD6CDC5FFBFBCB8FFFFFFFFFFFFFFFFFF877B70FF8E8378FF897D
     4451        72FF84796CFFD8D5D3FFC9C2B9FFA99C90FF594F45FFFFFFFF00FFFFFF006056
     4452        4DFFA99C90FFC9C2B9FFD8D5D3FF84796CFF897D72FF8E8378FF000000000000
     4453        0000696053FFDFDFDEFFDFDFDEFFD1C4BAFF8E8377FF44392EFF44392EFF8E83
     4454        77FFD1C4BAFFDFDFDEFFDFDFDEFF696053FF0000000000000000000000006960
     4455        53FFF6F1EEFFBBAC9DFFDFD8D3FFEEEFEFFFEBE7E2FFE3D9D1FFE3D9D1FFEBE7
     4456        E2FFEEEFEFFFDFD8D3FFBBAC9DFFF6F1EEFF696053FF0000000000000000675D
     4457        50FFCDC6BFFFF6F1EEFFF8F7F4FFF8F7F4FFFFFFFFFFFCFDFDFFFCFDFDFFFFFF
     4458        FFFFF8F7F4FFF8F7F4FFF6F1EEFFCDC6BFFF696053FF00000000000000000000
     4459        0000998F83FFCCC5BEFFF6F1EEFF908377FF908377FFEDE7E0FFEDE7E0FF9083
     4460        77FF908377FFF6F1EEFFCCC5BEFFA9A096FF0000000000000000000000000000
     4461        0000000000009C9083FF9C9083FF00000000998D80FFFFFFFFFFFFFFFFFF998D
     4462        80FF000000009C9083FF9C9083FF000000000000000000000000000000000000
     4463        000000000000000000000000000000000000A19588FF9C9083FF9C9083FFA195
     4464        88FF000000000000000000000000000000000000000000000000
     4465      }
    44284466    end
    44294467    object MenuItem1: TMenuItem
    44304468      Action = AExit
     4469      Bitmap.Data = {
     4470        36040000424D3604000000000000360000002800000010000000100000000100
     4471        2000000000000004000064000000640000000000000000000000000000000000
     4472        0000000000000000000000000000000000FF0000000000000000000000000000
     4473        0000000000000000000000000000000000000000000000000000000000000000
     4474        00000000000000000000000000FF000000FF0000000000000000000000000000
     4475        0000000000000000000000000000000000000000000000000000000000000000
     4476        000000000000000000FF008484FF000000FF0000000000000000000000000000
     4477        0000000000000000000000000000000000000000000000000000000000000000
     4478        0000000000FF008484FF008484FF000000FF0000000000000000000000000000
     4479        0000000000000000000000000000000000000000000000000000000000FF0000
     4480        00FF008484FF008484FF008484FF000000FF000000FF000000FF000000FF0000
     4481        00FF000000FF000000FF000000FF000000000000000000000000000000000000
     4482        00FF008484FF008484FF008484FF000000FFFFFFFFFFFFFFFFFF000000FF0000
     4483        0000000000000000000000000000000000000000000000000000000000000000
     4484        00FF008484FF008484FF000000FF000000FFFFFFFFFFFFFFFFFF000000FF0000
     4485        0000000000000000000000000000840000FF0000000000000000000000000000
     4486        00FF008484FF008484FF008484FF000000FFFFFFFFFFFFFFFFFF000000FF0000
     4487        00000000000000000000840000FF840000FF0000000000000000000000000000
     4488        00FF008484FF008484FF008484FF000000FFFFFFFFFFFFFFFFFF000000FF0000
     4489        000000000000840000FF840000FF840000FF840000FF840000FF000000000000
     4490        00FF008484FF008484FF008484FF000000FFFFFFFFFFFFFFFFFF000000FF0000
     4491        0000840000FF840000FF840000FF840000FF840000FF840000FF000000000000
     4492        00FF008484FF008484FF008484FF000000FFFFFFFFFFFFFFFFFF000000FF0000
     4493        000000000000840000FF840000FF840000FF840000FF840000FF000000000000
     4494        00FF008484FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000
     4495        00000000000000000000840000FF840000FF0000000000000000000000000000
     4496        00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000
     4497        0000000000000000000000000000840000FF0000000000000000000000000000
     4498        00FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000
     4499        0000000000000000000000000000000000000000000000000000000000000000
     4500        00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
     4501        0000000000000000000000000000000000000000000000000000000000000000
     4502        0000000000000000000000000000000000000000000000000000000000000000
     4503        0000000000000000000000000000000000000000000000000000
     4504      }
    44314505    end
    44324506  end
     
    45234597      object MenuItem10: TMenuItem
    45244598        Action = AFileNew
     4599        Bitmap.Data = {
     4600          36040000424D3604000000000000360000002800000010000000100000000100
     4601          2000000000000004000064000000640000000000000000000000FFFFFFFFFFFF
     4602          FFFFFFFFFFFFEBEBEBFFD9D9D9FFD9D9D9FFD9D9D9FFD9D9D9FFD9D9D9FFD9D9
     4603          D9FFD9D9D9FFD9D9D9FFD9D9D9FFD9D9D9FFEBEBEBFFFFFFFFFFFFFFFFFFFFFF
     4604          FFFFF6C898FFEE9640FFEE9640FFF09F51FFF1A860FFF2AE6CFFF3B274FFF3B4
     4605          76FFF3B273FFF2AE6BFFF1A75FFFE6BC93FFD9D9D9FFFFFFFFFFFFFFFFFFFFFF
     4606          FFFFEE9640FFFFF2EAFFFFF8F4FFFFFCFAFFFFFDFCFFFFFEFDFFFFFEFEFFFFFE
     4607          FEFFFFFEFDFFFFFEFDFFFFFDFCFFF1A963FFD9D9D9FFFFFFFFFFFFFFFFFFFFFF
     4608          FFFFEE9640FFFFF6F1FFFFF3ECFFFFF5EFFFFFF7F3FFFFF9F6FFFFFBF9FFFFFC
     4609          FBFFFFFDFBFFFFFDFCFFFFFDFDFFF3B374FFD9D9D9FFFFFFFFFFFFFFFFFFFFFF
     4610          FFFFEE9640FFFFFAF7FFFFF1E9FFFFF4EEFFFFF7F2FFFFF9F5FFFFFBF9FFFFFD
     4611          FBFFFFFEFDFFFFFDFCFFFFFEFEFFF4BB83FFD9D9D9FFFFFFFFFFFFFFFFFFFFFF
     4612          FFFFEE9640FFFFFCFAFFFFEFE6FFFFF2EBFFFFF5EFFFFFF8F4FFFFFBF8FFFFFD
     4613          FBFFFFFFFFFFFFFDFDFFFFFFFFFFF5C08DFFD9D9D9FFFFFFFFFFFFFFFFFFFFFF
     4614          FFFFEE9843FFFFFEFDFFFFEDE2FFFFF1E8FFFFF4EDFFFFF7F2FFFFF9F6FFFFFC
     4615          F9FFFFFDFCFFFFFDFBFFFFFFFFFFF5C291FFD9D9D9FFFFFFFFFFFFFFFFFFFFFF
     4616          FFFFEE9741FFFFFFFFFFFFEADEFFFFEEE4FFFFF1E9FFFFF5EFFFFFF7F3FFFFF9
     4617          F6FFFFFAF7FFFFFAF7FFFFFFFFFFF5C28FFFD9D9D9FFFFFFFFFFFFFFFFFFFFFF
     4618          FFFFEE9640FFFFFFFFFFFFE8DCFFFFEBE0FFFFEEE4FFFFF1EAFFFFF4EDFFFFF6
     4619          F1FFFFF7F2FFFFF7F3FFFFFFFFFFF4BE88FFD9D9D9FFFFFFFFFFFFFFFFFFFFFF
     4620          FFFFEE9640FFFFFFFFFFFFE7D9FFFFEADDFFFFECE1FFFFEEE5FFFFF1E8FFFFF2
     4621          EAFFFFF3ECFFFFF3ECFFFFFDFCFFF3B77BFFD9D9D9FFFFFFFFFFFFFFFFFFFFFF
     4622          FFFFEE9640FFFFFDFCFFFFE5D6FFFFE7DAFFFFEADEFFFFECE1FFFFEEE4FFF1D9
     4623          C7FFF2D9C8FFF2D9C8FFF2E2D5FFF0AC6BFFD9D9D9FFFFFFFFFFFFFFFFFFFFFF
     4624          FFFFEE9640FFFFFAF7FFFFE3D3FFFFE5D7FFFFE7DAFFFFE9DDFFFFEBDFFFEBB2
     4625          7CFFF9AF68FFF9AF68FFF9AF68FFF0A358FFEDEDEDFFFFFFFFFFFFFFFFFFFFFF
     4626          FFFFEE9640FFFFF5EFFFFFE1CFFFFFE3D3FFFFE5D5FFFFE6D8FFFFE8DAFFF9AF
     4627          68FFFEF6EFFFFCEFE2FFF9CBA0FFEDC59FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4628          FFFFEE9640FFFFEBDFFFFFDECBFFFFE0CEFFFFE2D1FFFFE3D3FFFFE5D5FFF9AF
     4629          68FFFCEEE0FFFAD2ADFFEDC49EFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4630          FFFFEE9640FFFFDCC8FFFFF2EBFFFFFCFAFFFFFFFFFFFFFFFFFFFFFAF7FFF9AF
     4631          68FFF8C799FFEDC49EFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4632          FFFFF8CCA3FFEE9640FFEE9640FFEE9640FFEE9640FFEE9640FFEE9640FFEE96
     4633          40FFF8CEA8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4634        }
    45254635      end
    45264636      object MenuItem11: TMenuItem
    45274637        Action = AFileOpen
     4638        Bitmap.Data = {
     4639          36040000424D3604000000000000360000002800000010000000100000000100
     4640          2000000000000004000064000000640000000000000000000000000000000000
     4641          0000000000000000000000000000000000000000000000000000000000000000
     4642          0000000000000000000000000000000000000000000000000000000000000000
     4643          0000000000000000000000000000000000000000000000000000000000000000
     4644          0000000000000000000000000000000000000000000000000000000000FF0000
     4645          00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
     4646          00FF000000FF0000000000000000000000000000000000000000000000FF0000
     4647          00FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF0084
     4648          84FF008484FF000000FF00000000000000000000000000000000000000FF00FF
     4649          FFFF000000FF008484FF008484FF008484FF008484FF008484FF008484FF0084
     4650          84FF008484FF008484FF000000FF000000000000000000000000000000FFFFFF
     4651          FFFF00FFFFFF000000FF008484FF008484FF008484FF008484FF008484FF0084
     4652          84FF008484FF008484FF008484FF000000FF0000000000000000000000FF00FF
     4653          FFFFFFFFFFFF00FFFFFF000000FF008484FF008484FF008484FF008484FF0084
     4654          84FF008484FF008484FF008484FF008484FF000000FF00000000000000FFFFFF
     4655          FFFF00FFFFFFFFFFFFFF00FFFFFF000000FF000000FF000000FF000000FF0000
     4656          00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00FF
     4657          FFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FF
     4658          FFFF000000FF0000000000000000000000000000000000000000000000FFFFFF
     4659          FFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFF
     4660          FFFF000000FF0000000000000000000000000000000000000000000000FF00FF
     4661          FFFFFFFFFFFF00FFFFFF000000FF000000FF000000FF000000FF000000FF0000
     4662          00FF000000FF0000000000000000000000000000000000000000000000000000
     4663          00FF000000FF000000FF00000000000000000000000000000000000000000000
     4664          00000000000000000000000000FF000000FF000000FF00000000000000000000
     4665          0000000000000000000000000000000000000000000000000000000000000000
     4666          0000000000000000000000000000000000FF000000FF00000000000000000000
     4667          0000000000000000000000000000000000000000000000000000000000FF0000
     4668          00000000000000000000000000FF00000000000000FF00000000000000000000
     4669          0000000000000000000000000000000000000000000000000000000000000000
     4670          00FF000000FF000000FF00000000000000000000000000000000000000000000
     4671          0000000000000000000000000000000000000000000000000000000000000000
     4672          0000000000000000000000000000000000000000000000000000
     4673        }
    45284674      end
    45294675      object MenuItemOpenRecent: TMenuItem
     
    45324678      object MenuItem12: TMenuItem
    45334679        Action = AFileSave
     4680        Bitmap.Data = {
     4681          36040000424D3604000000000000360000002800000010000000100000000100
     4682          2000000000000004000064000000640000000000000000000000000000000000
     4683          0000000000000000000000000000000000000000000000000000000000000000
     4684          0000000000000000000000000000000000000000000000000000000000000000
     4685          0000000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
     4686          00FF000000FF000000FF000000FF000000FF000000FF00000000000000000000
     4687          00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000
     4688          00FFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000
     4689          00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000
     4690          00FFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000
     4691          00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000
     4692          00FFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000
     4693          00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000
     4694          00FF000000FF000000FF000000FF008484FF000000FF00000000000000000000
     4695          00FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF0084
     4696          84FF008484FF008484FF008484FF008484FF000000FF00000000000000000000
     4697          00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000
     4698          00FF000000FF000000FF008484FF008484FF000000FF00000000000000000000
     4699          00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4700          FFFFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000
     4701          00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4702          FFFFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000
     4703          00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4704          FFFFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000
     4705          00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4706          FFFFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000
     4707          00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4708          FFFFFFFFFFFFFFFFFFFF000000FF000000FF000000FF00000000000000000000
     4709          00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4710          FFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFF000000FF00000000000000000000
     4711          00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
     4712          00FF000000FF000000FF000000FF000000FF000000FF00000000000000000000
     4713          0000000000000000000000000000000000000000000000000000000000000000
     4714          0000000000000000000000000000000000000000000000000000
     4715        }
    45344716      end
    45354717      object MenuItem13: TMenuItem
    45364718        Action = AFileSaveAs
     4719        Bitmap.Data = {
     4720          36040000424D3604000000000000360000002800000010000000100000000100
     4721          2000000000000004000064000000640000000000000000000000000000000000
     4722          0000000000000000000000000000000000000000000000000000000000000000
     4723          0000000000000000000000000000000000000000000000000000000000000000
     4724          0000000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
     4725          00FF000000FF000000FF000000FF000000FF000000FF00000000000000000000
     4726          00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000
     4727          00FFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000
     4728          00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000
     4729          00FFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000
     4730          00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000
     4731          00FFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000
     4732          00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000
     4733          00FF000000FF000000FF000000FF008484FF000000FF00000000000000000000
     4734          00FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF0084
     4735          84FF008484FF008484FF008484FF008484FF000000FF00000000000000000000
     4736          00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000
     4737          00FF000000FF000000FF008484FF008484FF000000FF00000000000000000000
     4738          00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4739          FFFFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000
     4740          00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4741          FFFFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000
     4742          00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4743          FFFFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000
     4744          00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4745          FFFFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000
     4746          00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4747          FFFFFFFFFFFFFFFFFFFF000000FF000000FF000000FF00000000000000000000
     4748          00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4749          FFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFF000000FF00000000000000000000
     4750          00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
     4751          00FF000000FF000000FF000000FF000000FF000000FF00000000000000000000
     4752          0000000000000000000000000000000000000000000000000000000000000000
     4753          0000000000000000000000000000000000000000000000000000
     4754        }
    45374755      end
    45384756      object MenuItem14: TMenuItem
    45394757        Action = AFileClose
     4758        Bitmap.Data = {
     4759          36040000424D3604000000000000360000002800000010000000100000000100
     4760          2000000000000004000064000000640000000000000000000000000000000000
     4761          0000000000000000000000000000000000000000000000000000000000000000
     4762          0000000000000000000000000000000000000000000000000000000000000000
     4763          0000000000000000000000000000000000000000000000000000000000000000
     4764          0000000000000000000000000000000000003A3AE2FFC0C0C0FF000000000000
     4765          000000000000000000003A3AE2FFC0C0C0FF0000000000000000000000000000
     4766          0000000000000000000000000000000000000000000000000000000000000000
     4767          0000000000003A3AE2FF3A3AE2FF3A3AE2FFC0C0C0FF00000000000000000000
     4768          00000000000000000000000000003A3AE2FFC0C0C0FF00000000000000000000
     4769          0000000000003A3AE2FF3A3AE2FF3A3AE2FFC0C0C0FF00000000000000000000
     4770          000000000000000000003A3AE2FFC0C0C0FF0000000000000000000000000000
     4771          000000000000000000003838E0FF3838E0FF3838E0FFC0C0C0FF000000000000
     4772          0000000000003838E0FF3838E0FFC0C0C0FF0000000000000000000000000000
     4773          00000000000000000000000000003535DDFF3535DDFF3535DDFFC0C0C0FF0000
     4774          00003535DDFF3535DDFFC0C0C0FF000000000000000000000000000000000000
     4775          0000000000000000000000000000000000003232DAFF3232DAFF3232DAFF3232
     4776          DAFF3232DAFFC0C0C0FF00000000000000000000000000000000000000000000
     4777          000000000000000000000000000000000000000000002F2FD7FF2F2FD7FF2F2F
     4778          D7FFC0C0C0FF0000000000000000000000000000000000000000000000000000
     4779          0000000000000000000000000000000000002C2CD4FF2C2CD4FF2C2CD4FF2C2C
     4780          D4FF2C2CD4FFC0C0C0FF00000000000000000000000000000000000000000000
     4781          00000000000000000000000000002929D1FF2929D1FF2929D1FFC0C0C0FF0000
     4782          00002929D1FFC0C0C0FF00000000000000000000000000000000000000000000
     4783          0000000000002626CEFF2626CEFF2626CEFF2626CEFFC0C0C0FF000000000000
     4784          0000000000002626CEFF2626CEFFC0C0C0FF0000000000000000000000000000
     4785          00002020C8FF2020C8FF2020C8FF2020C8FFC0C0C0FF00000000000000000000
     4786          000000000000000000002020C8FF2020C8FFC0C0C0FF00000000000000000000
     4787          00001818C0FF1818C0FFC0C0C0FF000000000000000000000000000000000000
     4788          00000000000000000000000000001818C0FF1818C0FFC0C0C0FF000000000000
     4789          0000000000000000000000000000000000000000000000000000000000000000
     4790          0000000000000000000000000000000000000000000000000000000000000000
     4791          0000000000000000000000000000000000000000000000000000000000000000
     4792          0000000000000000000000000000000000000000000000000000
     4793        }
    45404794      end
    45414795      object MenuItem15: TMenuItem
     
    45444798      object MenuItem9: TMenuItem
    45454799        Action = AExit
     4800        Bitmap.Data = {
     4801          36040000424D3604000000000000360000002800000010000000100000000100
     4802          2000000000000004000064000000640000000000000000000000000000000000
     4803          0000000000000000000000000000000000FF0000000000000000000000000000
     4804          0000000000000000000000000000000000000000000000000000000000000000
     4805          00000000000000000000000000FF000000FF0000000000000000000000000000
     4806          0000000000000000000000000000000000000000000000000000000000000000
     4807          000000000000000000FF008484FF000000FF0000000000000000000000000000
     4808          0000000000000000000000000000000000000000000000000000000000000000
     4809          0000000000FF008484FF008484FF000000FF0000000000000000000000000000
     4810          0000000000000000000000000000000000000000000000000000000000FF0000
     4811          00FF008484FF008484FF008484FF000000FF000000FF000000FF000000FF0000
     4812          00FF000000FF000000FF000000FF000000000000000000000000000000000000
     4813          00FF008484FF008484FF008484FF000000FFFFFFFFFFFFFFFFFF000000FF0000
     4814          0000000000000000000000000000000000000000000000000000000000000000
     4815          00FF008484FF008484FF000000FF000000FFFFFFFFFFFFFFFFFF000000FF0000
     4816          0000000000000000000000000000840000FF0000000000000000000000000000
     4817          00FF008484FF008484FF008484FF000000FFFFFFFFFFFFFFFFFF000000FF0000
     4818          00000000000000000000840000FF840000FF0000000000000000000000000000
     4819          00FF008484FF008484FF008484FF000000FFFFFFFFFFFFFFFFFF000000FF0000
     4820          000000000000840000FF840000FF840000FF840000FF840000FF000000000000
     4821          00FF008484FF008484FF008484FF000000FFFFFFFFFFFFFFFFFF000000FF0000
     4822          0000840000FF840000FF840000FF840000FF840000FF840000FF000000000000
     4823          00FF008484FF008484FF008484FF000000FFFFFFFFFFFFFFFFFF000000FF0000
     4824          000000000000840000FF840000FF840000FF840000FF840000FF000000000000
     4825          00FF008484FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000
     4826          00000000000000000000840000FF840000FF0000000000000000000000000000
     4827          00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000
     4828          0000000000000000000000000000840000FF0000000000000000000000000000
     4829          00FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000
     4830          0000000000000000000000000000000000000000000000000000000000000000
     4831          00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
     4832          0000000000000000000000000000000000000000000000000000000000000000
     4833          0000000000000000000000000000000000000000000000000000000000000000
     4834          0000000000000000000000000000000000000000000000000000
     4835        }
    45464836      end
    45474837    end
     
    45504840      object MenuItem22: TMenuItem
    45514841        Action = AShowAcronyms
     4842        Bitmap.Data = {
     4843          36040000424D3604000000000000360000002800000010000000100000000100
     4844          2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
     4845          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     4846          FF006464B1FF040482FF000080FF000080FF000080FF000080FFFFFFFF00FFFF
     4847          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     4848          FF00FFFFFF006060B0FF070783FF000080FF000080FF000080FFFCFCFCFFD2D2
     4849          D2FFD2D2D2FFD2D2D2FFD2D2D2FFE1E1E1FFFFFFFF00FFFFFF00E7E7E7FFD2D2
     4850          D2FFD2D2D2FFD2D2D2FF313181FF000069FF00007DFF000080FFF3F3F3FF5858
     4851          58FF585858FF585858FF585858FF818181FFFFFFFF00FFFFFF00979797FF5858
     4852          58FF585858FF585858FF585858FF585858FF070778FF000080FFFFFFFF00E9E9
     4853          E9FF585858FF585858FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     4854          FF005A5A5AFF585858FF585858FFD2D2D2FF6060AFFF040482FFFFFFFF00FFFF
     4855          FF00D2D2D2FF585858FFBFBFBFFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00CACA
     4856          CAFF3A3A3AFF585858FF454545FFE1E1E1FFFFFFFF006464B1FFFFFFFF00FFFF
     4857          FF00E4E4E4FF505050FF585858FF969696FF969696FF969696FF969696FF3E3E
     4858          3EFF585858FF585858FFC3C3C3FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     4859          FF00FFFFFF00C3C3C3FF585858FF787878FF787878FF787878FF787878FF5858
     4860          58FF585858FF555555FFDFDFDFFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     4861          FF00FFFFFF00C3C3C3FF585858FFA7A7A7FFFFFFFF00FFFFFF00B7B7B7FF5858
     4862          58FF585858FFB4B4B4FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     4863          FF00FFFFFF00E6E6E6FF6A6A6AFF5A5A5AFFFFFFFF00FFFFFF00787878FF5858
     4864          58FF616161FFE0E0E0FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     4865          FF00FFFFFF00FFFFFF00B4B4B4FF585858FF9E9E9EFFB1B1B1FF585858FF5858
     4866          58FFA5A5A5FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     4867          FF00FFFFFF00FFFFFF00E8E8E8FF747474FF696969FF878787FF585858FF5858
     4868          58FFA5A5A5FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     4869          FF00FFFFFF00FFFFFF00FFFFFF00A5A5A5FF585858FF585858FF585858FF7272
     4870          72FFE9E9E9FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     4871          FF00FFFFFF00FFFFFF00FFFFFF00EFEFEFFF7B7B7BFF585858FF585858FF9696
     4872          96FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     4873          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00969696FF585858FF777777FFF2F2
     4874          F2FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
     4875          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F8F8F8FFF0F0F0FFF7F7F7FFFFFF
     4876          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
     4877        }
    45524878      end
    45534879      object MenuItem21: TMenuItem
    45544880        Action = AShowCategories
     4881        Bitmap.Data = {
     4882          36040000424D3604000000000000360000002800000010000000100000000100
     4883          2000000000000004000064000000640000000000000000000000000000000000
     4884          0000000000000000000000000000000000000000000000000000000000000000
     4885          000000000000000000000000000000000000000000000000000000000000FBB7
     4886          3DFFFFCE5BFFFFCB58FFFFCB58FFFFCD5AFFFFC044FFFFE0ACFF00000000C7C7
     4887          EBFF1123C2FF1143D3FF1149D6FF1143D1FF1133D2FF2121B5FF00000000FFC3
     4888          4CFFFFFFCEFFFFFFC3FFFFFFC3FFFFFFCBFFFFF094FFFFD8A4FF00000000C2C2
     4889          E7FF003EE9FF1E8CFFFF2190FFFF1D88FFFF136FFFFF0D23CFFF00000000FFB9
     4890          3BFFFFEB89FFFFE782FFFFE782FFFFEB88FFFFD561FFFFDAA6FF00000000C3C3
     4891          E7FF0029E2FF0B5DFFFF0E61FFFF0B5CFFFF044CFFFF111CCDFF00000000FEB1
     4892          2FFFFFDA6AFFFFD862FFFFD864FFFFDA69FFFFC748FFFFD9A6FF00000000C3C3
     4893          E7FF001CE2FF003AFFFF003FFFFF003BFFFF0034FFFF1018CCFF00000000FCB0
     4894          2CFFFFBC35FFFFB72BFFFFB82DFFFFC035FFFFB726FFFFE2A5FF00000000C2C2
     4895          EBFF000FC6FF0013D6FF0005CCFF0004C9FF0021D9FF0C20C0FF00000000FFF3
     4896          DCFFFFEED0FFE7D2AEFFC0AB88FFFAECD3FFFBEDD5FFFCFAF6FF00000000F9F9
     4897          FBFFD8D7EDFFD5D4EBFF9492B8FFA4A4C7FFD3D2EEFFDADAF1FF000000000000
     4898          000000000000EDF2F8FF7A7E83FF979694FF9A9896FF8D8D8FFF7E7F80FF8F8E
     4899          8AFF999796FF989795FF82827DFFE9EBE9FF0000000000000000000000000000
     4900          000000000000FFFFFFFFFAFAFAFFFDFDFDFFFDFDFDFFF5F5F6FF9F978EFFE9EA
     4901          EAFFFDFDFDFFFDFDFDFFFAFAFAFFFEFEFEFF0000000000000000000000000000
     4902          00000000000000000000FEFEFEFFB8D3F4FFA9BFEFFF9FC0EEFF567BACFF91B9
     4903          EAFFA9BFEFFFADCCF3FFFCFCFDFF000000000000000000000000000000000000
     4904          00000000000000000000F1F7FFFF2F9AF6FF3ECBFFFF3BC7FFFF36C5FFFF3BC6
     4905          FFFF40CEFFFF299EF9FFE4EFFEFF000000000000000000000000000000000000
     4906          00000000000000000000F0F6FEFF3CABFCFF58F6FFFF59F1FFFF58F1FFFF59F1
     4907          FFFF5CF9FFFF35B2FFFFE2EDFDFF000000000000000000000000000000000000
     4908          00000000000000000000F1F7FEFF32A2FBFF36DBFFFF39D8FFFF39D8FFFF39D8
     4909          FFFF3ADEFFFF26A5FFFFE3EEFDFF000000000000000000000000000000000000
     4910          00000000000000000000F0F6FEFF239AFCFF21CFFFFF24CCFFFF24CCFFFF24CC
     4911          FFFF23D1FFFF1C9FFFFFE2EEFDFF000000000000000000000000000000000000
     4912          00000000000000000000F4F9FFFF4195EFFF2F8AF1FF2F8DF3FF2F8DF3FF2F8D
     4913          F3FF2F8BF1FF2F8BEFFFE9F2FEFF000000000000000000000000000000000000
     4914          0000000000000000000000000000000000000000000000000000000000000000
     4915          0000000000000000000000000000000000000000000000000000
     4916        }
    45554917      end
    45564918      object MenuItem4: TMenuItem
    45574919        Action = AShowImportSources
     4920        Bitmap.Data = {
     4921          36040000424D3604000000000000360000002800000010000000100000000100
     4922          2000000000000004000064000000640000000000000000000000FFFFFFFFD7D7
     4923          D7FFB2B2B2FFB2B2B2FFB2B2B2FFB2B2B2FFB2B2B2FFB2B2B2FFB2B2B2FFB2B2
     4924          B2FFB2B2B2FFB2B2B2FFB2B2B2FFB2B2B2FFB2B2B2FFD7D7D7FFCFA5A5FF9F4F
     4925          50FF9F4F50FF954A4BFF8F4747FF8F4747FF844242FF844242FF7B3D3EFF7B3D
     4926          3EFF733939FF6F3738FF6F3738FF693534FF8B7070FFB2B2B2FFA95455FFDDDD
     4927          DDFFDDDDDDFFDDDDDDFFDDDDDDFFDDDDDDFFDDDDDDFFDDDDDDFFDDDDDDFFDDDD
     4928          DDFFDDDDDDFFDDDDDDFFDDDDDDFFDDDDDDFF693534FFB2B2B2FFA95455FFDDDD
     4929          DDFFDDDDDDFFDDDDDDFFDDDDDDFFDDDDDDFFDDDDDDFFDDDDDDFFDDDDDDFFDDDD
     4930          DDFFDDDDDDFFDDDDDDFFDDDDDDFFDDDDDDFF6F3738FFB2B2B2FFB3595AFFDDDD
     4931          DDFFDDDDDDFFDDDDDDFFDDDDDDFFDDDDDDFFDDDDDDFFBBBBBBFF9A9A9AFFBBBB
     4932          BBFFDDDDDDFFDDDDDDFFDDDDDDFFDDDDDDFF6F3738FFB2B2B2FFB3595AFFDDDD
     4933          DDFFDDDDDDFFDDDDDDFFDDDDDDFFDDDDDDFFB8865DFFB65100FF99664DFF9A9A
     4934          9AFFBBBBBBFFDDDDDDFFDDDDDDFFDDDDDDFF733939FFB2B2B2FFBF6060FFDDDD
     4935          DDFFDDDDDDFFDDDDDDFFDDDDDDFFB8865DFFB65100FFFF9E0DFF993300FF9966
     4936          4DFF9A9A9AFFBBBBBBFFDDDDDDFFDDDDDDFF733939FFB2B2B2FFBF6060FFDDDD
     4937          DDFFDDDDDDFFDDDDDDFFB8865DFFB65100FFFFAB2DFFFFA319FFFF9E0DFF9933
     4938          00FF99664DFF9A9A9AFFBBBBBBFFDDDDDDFF7B3D3EFFB2B2B2FFBF6060FFDDDD
     4939          DDFFDDDDDDFFC9976EFFB65100FFFFC56CFFFFBE5CFFFFB444FFFFA826FFFF9E
     4940          0DFF993300FF99664DFF9A9A9AFFDDDDDDFF7B3D3EFFB2B2B2FFBF6060FFDDDD
     4941          DDFFDDDDDDFFCB6600FFFFF9F0FFFFEDD2FFFFEDD2FFFFBE5CFFFFB444FFFFAB
     4942          2DFFFFA319FF993300FF9A9A9AFFDDDDDDFF7B3D3EFFFFFFFFFFFFFFFFFFFFFF
     4943          FFFFFFFFFFFFCB6600FFCB6600FFCB6600FFCB6600FFFFCA7BFF993300FF9933
     4944          00FF993300FF993300FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4945          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCB6600FFFFD493FF993300FFB2B2
     4946          B2FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4947          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCB6600FFFFD9A0FF993300FFB2B2
     4948          B2FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4949          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCB6600FFFFD9A0FF993300FFB2B2
     4950          B2FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4951          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCB6600FFFFFFFFFF993300FFB2B2
     4952          B2FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4953          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCB6600FFCB6600FFB65100FFFFFF
     4954          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4955        }
    45584956      end
    45594957      object MenuItem7: TMenuItem
    45604958        Action = AShowImportFormats
     4959        Bitmap.Data = {
     4960          36040000424D3604000000000000360000002800000010000000100000000100
     4961          2000000000000004000064000000640000000000000000000000FFFFFFFFFFFF
     4962          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4963          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4964          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4965          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4966          FFFFECECECFFECECECFFECECECFFECECECFFECECECFFECECECFFECECECFFECEC
     4967          ECFFECECECFFECECECFFECECECFFECECECFFF8F8F8FFFFFFFFFFFFFFFFFFD7CD
     4968          CCFFC3ABA6FFC3ABA6FFC3ABA6FFC3ABA6FFC3ABA6FFC3ABA6FFC3ABA6FFC3AB
     4969          A6FFC3ABA6FFC3ABA6FFC3ABA6FFC3ABA6FFC6BFBEFFF8F8F8FFD5C6C3FFE0C8
     4970          B2FFDECDB6FFDECDB6FFDECDB6FFDECDB6FFDECDB6FFDECDB6FFDECDB6FFDECD
     4971          B6FFDECDB6FFDECDB6FFDECDB6FFDECDB6FFD8B9A7FFCEC8C7FFDFB6A9FFE7DD
     4972          D0FFDDCFBCFFE3D4C1FFE0D2BEFFDDCFBCFFE0D2BEFFDDCFBCFFE0D2BEFFE0D2
     4973          BEFFDDCFBCFFE3D4C1FFE0D2BEFFE3D4C1FFE3D4C1FFCDBEBAFFE6C1B5FFABA5
     4974          99FF4B4741FF57524CFFDCCFC0FFDCCFC0FF4B4741FFD9CDBDFFB7ADA0FF5752
     4975          4CFFF0E3D2FFB7ADA0FF312F2BFF4B4741FFE3D4C1FFCDBEBAFFEBC6BDFF5253
     4976          4EFFBEB6ABFF635F59FF9B958CFFE7DDD0FF312F2BFFDCD3C6FFB7ADA0FF423F
     4977          3CFFFEF3E4FF635F59FF928B83FF57524CFFACA298FFD5C6C3FFEBC6BDFF5253
     4978          4EFFCEC8C7FF6F6D69FF9B958CFFE4E1DDFF312F2BFFE7DDD0FFBEB6ABFF4B47
     4979          41FFFFF9F6FF635F59FFA19F9CFF635F59FFACA298FFD5C6C3FFEED0CEFF7B7D
     4980          7AFF6F6D69FF4C4A48FFCEC8C7FFE4E1DDFF2E2D2CFFE4E1DDFFB5B3B0FF423F
     4981          3CFFFFFFFFFF9B958CFF4C4A48FF423F3CFFD7CDCCFFD5C6C3FFEED0CEFFF8F8
     4982          F8FFA19F9CFFC6BFBEFFFFFFFFFFECECECFFB5B3B0FFECECECFFE4E1DDFFB5B3
     4983          B0FFF8F8F8FFFFF9F6FFA19F9CFFC6BFBEFFFFFFFFFFD5C6C3FFEBC6BDFFFFFF
     4984          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4985          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9F6FFD7CDCCFFF7E9E8FFEED0
     4986          CEFFF3DEDCFFF3DEDCFFF3DEDCFFF3DEDCFFF3DEDCFFF3DEDCFFF3DEDCFFF3DE
     4987          DCFFF3DEDCFFF3DEDCFFF3DEDCFFF3DEDCFFE2C9C8FFFFFFFFFFFFFFFFFFF3DE
     4988          DCFFEED0CEFFEED0CEFFEED0CEFFEED0CEFFEED0CEFFEED0CEFFEED0CEFFEED0
     4989          CEFFEED0CEFFEED0CEFFEED0CEFFEED0CEFFF5EDEDFFFFFFFFFFFFFFFFFFFFFF
     4990          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4991          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4992          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4993          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     4994        }
    45614995      end
    45624996      object MenuItem24: TMenuItem
     
    45755009      object MenuItem23: TMenuItem
    45765010        Action = AProcessImports
     5011        Bitmap.Data = {
     5012          36040000424D3604000000000000360000002800000010000000100000000100
     5013          2000000000000004000064000000640000000000000000000000000000000000
     5014          0000000000000000000000000000000000000000000000000000000000000000
     5015          0000000000000000000000000000000000000000000000000000000000000000
     5016          000000000000303030FF303030FF303030FF303030FF00000000000000000000
     5017          0000000000000000000000000000000000000000000000000000000000000000
     5018          0000000000000000000000000000303030FF303030FF00000000000000000000
     5019          0000000000000000000000000000303030FF0000000000000000000000000000
     5020          0000000000000000000000000000303030FF303030FF00000000000000000000
     5021          0000000000000000000000000000303030FF0000000000000000000000000000
     5022          0000000000000000000000000000303030FF303030FF00000000000000003030
     5023          30FF303030FF303030FF303030FF303030FF0000000000000000000000000000
     5024          0000000000000000000000000000303030FF303030FF303030FF303030FF3030
     5025          30FF303030FF303030FF303030FF303030FF0000000000000000000000000000
     5026          000000000000000000000000000000000000303030FF303030FF303030FF3030
     5027          30FF000000000000000000000000000000000000000000000000000000000000
     5028          00000000000000000000000000000000000000000000303030FF303030FF0000
     5029          0000000000000000000000000000000000000000000000000000000000000000
     5030          00000000000000000000303030FF0000000000000000303030FF303030FF0000
     5031          000000000000303030FF00000000000000000000000000000000000000000000
     5032          000000000000303030FF303030FF303030FF303030FF303030FF303030FF0000
     5033          000000000000303030FF00000000000000000000000000000000000000000000
     5034          0000303030FF303030FF00000000303030FF303030FF303030FF303030FF0000
     5035          000000000000303030FF00000000000000000000000000000000000000000000
     5036          0000303030FF00000000000000000000000000000000303030FF303030FF3030
     5037          30FF303030FF303030FF00000000000000000000000000000000000000000000
     5038          000000000000000000000000000000000000303030FF303030FF000000000000
     5039          0000000000000000000000000000000000000000000000000000000000000000
     5040          0000000000000000000000000000303030FF303030FF303030FF303030FF0000
     5041          0000000000000000000000000000000000000000000000000000000000000000
     5042          0000000000000000000000000000303030FF303030FF303030FF303030FF0000
     5043          0000000000000000000000000000000000000000000000000000000000000000
     5044          000000000000000000000000000000000000303030FF303030FF000000000000
     5045          0000000000000000000000000000000000000000000000000000
     5046        }
    45775047      end
    45785048      object MenuItem18: TMenuItem
    45795049        Action = ASettings
     5050        Bitmap.Data = {
     5051          36040000424D3604000000000000360000002800000010000000100000000100
     5052          2000000000000004000064000000640000000000000000000000000000000000
     5053          0000000000000000000000000000000000003F3428FF3F3428FF3F3428FF3F34
     5054          28FF000000000000000000000000000000000000000000000000000000000000
     5055          0000000000003F3428FF3F3428FF00000000776D66FFE5DBD2FFE5DBD2FF776D
     5056          66FF000000003F3428FF3F3428FF000000000000000000000000000000000000
     5057          00003F3428FF877D73FFE1D9D1FF574D42FF766C63FFEDE5DDFFEDE5DDFF766C
     5058          63FF574D42FFE1D9D1FF877D73FF3F3428FF0000000000000000000000003F34
     5059          28FFB6B0A9FFE1D9D1FFC8BEB4FFE1D9D1FFC8BEB4FFEDE5DDFFEDE5DDFFC8BE
     5060          B4FFE1D9D1FFC8BEB4FFE1D9D1FFB6B0A9FF3F3428FF00000000000000003F34
     5061          28FFE1D9D1FFEBE7E2FFE1D9D1FFAEA7A0FFE2DDDAFFB7B1ABFFB7B1ABFFE2DD
     5062          DAFFAEA7A0FFE1D9D1FFEBE7E2FFE1D9D1FF3F3428FF00000000000000000000
     5063          000061564CFFE1D9D1FFACA39BFFE4E1DCFFAFA8A4FF695E53FF695E53FFAFA8
     5064          A4FFE4E1DCFFACA39BFFE1D9D1FF61564CFF0000000000000000463B2FFF3E33
     5065          28FF61564CFFAFA8A4FFC1BCB6FFAFA8A4FF695E53FFFFFFFF00FFFFFF00695E
     5066          53FFAFA8A4FFC1BCB6FFAFA8A4FF61564CFF3E3328FF463B2FFF897E74FFE8E0
     5067          D7FFE8E0D7FFB0ACA8FFE8E3DDFF695E53FFFFFFFF00FFFFFF00FFFFFF00FFFF
     5068          FF00695E53FFE8E3DDFFB0ACA8FFE8E0D7FFE8E0D7FF897E74FF877B70FFFFFF
     5069          FFFFFFFFFFFFBFBCB8FFD6CDC5FF695E53FFFFFFFF00FFFFFF00FFFFFF00FFFF
     5070          FF00695E53FFD6CDC5FFBFBCB8FFFFFFFFFFFFFFFFFF877B70FF8E8378FF897D
     5071          72FF84796CFFD8D5D3FFC9C2B9FFA99C90FF594F45FFFFFFFF00FFFFFF006056
     5072          4DFFA99C90FFC9C2B9FFD8D5D3FF84796CFF897D72FF8E8378FF000000000000
     5073          0000696053FFDFDFDEFFDFDFDEFFD1C4BAFF8E8377FF44392EFF44392EFF8E83
     5074          77FFD1C4BAFFDFDFDEFFDFDFDEFF696053FF0000000000000000000000006960
     5075          53FFF6F1EEFFBBAC9DFFDFD8D3FFEEEFEFFFEBE7E2FFE3D9D1FFE3D9D1FFEBE7
     5076          E2FFEEEFEFFFDFD8D3FFBBAC9DFFF6F1EEFF696053FF0000000000000000675D
     5077          50FFCDC6BFFFF6F1EEFFF8F7F4FFF8F7F4FFFFFFFFFFFCFDFDFFFCFDFDFFFFFF
     5078          FFFFF8F7F4FFF8F7F4FFF6F1EEFFCDC6BFFF696053FF00000000000000000000
     5079          0000998F83FFCCC5BEFFF6F1EEFF908377FF908377FFEDE7E0FFEDE7E0FF9083
     5080          77FF908377FFF6F1EEFFCCC5BEFFA9A096FF0000000000000000000000000000
     5081          0000000000009C9083FF9C9083FF00000000998D80FFFFFFFFFFFFFFFFFF998D
     5082          80FF000000009C9083FF9C9083FF000000000000000000000000000000000000
     5083          000000000000000000000000000000000000A19588FF9C9083FF9C9083FFA195
     5084          88FF000000000000000000000000000000000000000000000000
     5085        }
    45805086      end
    45815087    end
     
    45845090      object MenuItem6: TMenuItem
    45855091        Action = AShowAbout
     5092        Bitmap.Data = {
     5093          36040000424D3604000000000000360000002800000010000000100000000100
     5094          2000000000000004000064000000640000000000000000000000000000000000
     5095          0000000000000000000000000000000000000000000000000000000000000000
     5096          0000000000000000000000000000000000000000000000000000000000000000
     5097          00000000000000000000916429FF855A24FF885015FF824A1DFF7E4719FF7944
     5098          17FF583C0EFF49340DFF00000000000000000000000000000000000000000000
     5099          000000000000A1692CFFC08858FFE0C9B4FFF7F1ECFFFEFDFCFFFEFDFCFFF5F0
     5100          ECFFDCC9B8FF9E7857FF473108FF000000000000000000000000000000000000
     5101          0000B2702BFFDBAB80FFF8EFE7FFE2BBA6FFCC7E56FFC15823FFC05722FFC97F
     5102          56FFDEBAA7FFF2EBE7FFB39376FF483108FF000000000000000000000000B677
     5103          34FFD6996BFFF9F0E7FFDDA488FFC75013FFC04E11FFDCA688FFFFFEFEFFB549
     5104          11FFB64A10FFD59E82FFF3ECE7FF9A7352FF49340DFF0000000000000000B479
     5105          3AFFEFD6C1FFEDC5B2FFDD5A1AFFD55617FFD25313FFD87D4DFFE3A686FFBB4C
     5106          11FFB34A12FFB64A10FFDEB9A6FFDCC9B8FF563C0DFF0000000000000000CD7F
     5107          45FFFCF4EDFFEC9772FFE86021FFE05A1DFFDB5819FFEDAA89FFFFFEFEFFC84E
     5108          12FFB94C11FFB34C13FFC77B53FFF6F0ECFF7A4319FF0000000000000000CD81
     5109          47FFFFFEFEFFF87A46FFF96829FFF66525FFF16020FFF18653FFFFFEFEFFF0BF
     5110          A8FFC55A24FFB64C15FFB75724FFFEFEFDFF7F481AFF0000000000000000CD84
     5111          4EFFFFFEFEFFFC814CFFFF7031FFFF6B2CFFFD6928FFF86523FFF49265FFFDF5
     5112          F1FFF4D4C5FFC65018FFBA5927FFFEFEFDFF834A1CFF0000000000000000D183
     5113          4CFFFCF7F1FFFAA582FFFF733AFFFF844EFFFFAE8AFFFE6C2DFFF76727FFF192
     5114          68FFFFFEFEFFE98354FFD78560FFF8F1ECFF81551FFF0000000000000000C483
     5115          41FFF0DAC3FFFAD1C0FFFF7940FFFF986EFFFFFEFEFFFFC9B2FFFD9164FFFAC6
     5116          AFFFFEF5F1FFF5773DFFEDC5B2FFE4CBB3FF905D21FF0000000000000000C484
     5117          45FFDCA277FFFCF4EDFFFABFA6FFFF7A43FFFFBB9EFFFFF6F3FFFFFEFEFFFEED
     5118          E5FFFA9970FFF3B69CFFF8F0E6FFBB8B56FF986426FF00000000000000000000
     5119          0000C48443FFE5B999FFFCF4EDFFFBD2C1FFFAA887FFFD8757FFFD8454FFF8A5
     5120          82FFF7CEBDFFFAF1E7FFD2A77AFFA36A2AFF0000000000000000000000000000
     5121          000000000000C58442FFDCA277FFF3DAC7FFFCF7F1FFFFFEFEFFFFFEFEFFFCF4
     5122          EDFFF1D6C0FFC7935DFFA66F33FF000000000000000000000000000000000000
     5123          00000000000000000000C58444FFC28342FFD89C6DFFD69668FFD49463FFD696
     5124          68FFB2793CFFB1783BFF00000000000000000000000000000000000000000000
     5125          0000000000000000000000000000000000000000000000000000000000000000
     5126          0000000000000000000000000000000000000000000000000000
     5127        }
    45865128      end
    45875129    end
  • trunk/Forms/UFormMain.pas

    r30 r31  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
    9   ComCtrls, StdCtrls, ExtCtrls, ActnList, UAcronym, UPersistentForm,
    10   URegistry, ULastOpenedList, UListViewSort, UCoolTranslator, Registry,
     9  ComCtrls, StdCtrls, ExtCtrls, ActnList, UAcronym, UPersistentForm, URegistry,
     10  ULastOpenedList, UListViewSort, UCoolTranslator, Registry,
    1111  SpecializedList, LazUTF8;
    1212
     
    339339
    340340procedure TFormMain.FormShow(Sender: TObject);
     341var
     342  I: Integer;
    341343begin
    342344  LoadConfig;
     
    352354  ListViewFilter1.UpdateFromListView(ListViewAcronyms);
    353355  UpdateInterface;
     356  for I := 0 to ToolBar1.ButtonCount - 1 do
     357    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
    354358end;
    355359
  • trunk/Languages/AcronymDecoder.cs.po

    r30 r31  
    237237msgstr "Začátek zkratky:"
    238238
     239#: tformimportformat.label3.caption
     240msgid "Type:"
     241msgstr ""
     242
    239243#: tformimportformat.label8.caption
    240244msgid "Block start:"
  • trunk/Languages/AcronymDecoder.po

    r30 r31  
    222222msgstr ""
    223223
     224#: tformimportformat.label3.caption
     225msgid "Type:"
     226msgstr ""
     227
    224228#: tformimportformat.label8.caption
    225229msgid "Block start:"
  • trunk/UAcronym.pas

    r30 r31  
    77uses
    88  Classes, SysUtils, Contnrs, XMLConf, XMLRead, XMLWrite, DOM, UXMLUtils,
    9   SpecializedList, fphttpclient, Dialogs;
     9  SpecializedList, fphttpclient, Dialogs, odbcconn, sqldb;
    1010
    1111type
     
    132132  end;
    133133
     134  TImportFormatKind = (ifkParse, ifkMSAccess);
     135
    134136  { TImportFormat }
    135137
     
    137139    Id: Integer;
    138140    Name: string;
     141    Kind: TImportFormatKind;
    139142    Block: TImportPattern;
    140143    ItemPatterns: TImportPatterns;
     
    172175    function DownloadHTTP(URL: string; Stream: TStream): Boolean;
    173176    procedure Process;
     177    procedure ProcessTextParse;
     178    procedure ProcessMSAccess;
    174179    procedure Assign(Source: TImportSource);
    175180    procedure SaveToNode(Node: TDOMNode);
     
    230235end;
    231236
     237{ TImportSourceMSAccess }
     238
     239procedure TImportSource.ProcessMSAccess;
     240var
     241  ODBCConnection1: TODBCConnection;
     242  SQLTransaction1: TSQLTransaction;
     243  SQLQuery1: TSQLQuery;
     244  NewAcronym: TAcronymEntry;
     245begin
     246  ItemCount := 0;
     247  ODBCConnection1 := TODBCCOnnection.Create(nil);
     248  SQLQuery1 := TSQLQuery.Create(nil);
     249  SQLTransaction1 := TSQLTransaction.Create(nil);
     250  try
     251    ODBCConnection1.Driver := 'Microsoft Access Driver (*.mdb, *.accdb)';
     252    ODBCConnection1.Params.Add('DBQ=' + URL);
     253    ODBCConnection1.Params.Add('Locale Identifier=1031');
     254    ODBCConnection1.Params.Add('ExtendedAnsiSQL=1');
     255    ODBCConnection1.Params.Add('CHARSET=ansi');
     256    ODBCConnection1.Connected := True;
     257    ODBCConnection1.KeepConnection := True;
     258
     259    SQLTransaction1.DataBase := ODBCConnection1;
     260    SQLTransaction1.Action := caCommit;
     261    SQLTransaction1.Active := True;
     262
     263    SQLQuery1.DataBase := ODBCConnection1;
     264    SQLQuery1.UsePrimaryKeyAsKey := False;
     265    SQLQuery1.SQL.Text := 'SELECT Acronym,Meaning FROM data1';
     266    SQLQuery1.Open;
     267
     268    NewAcronym := TAcronymEntry.Create;
     269    while not SQLQuery1.EOF do begin
     270      NewAcronym.Name := SQLQuery1.FieldByName('Acronym').AsString;
     271      NewAcronym.Meaning := SQLQuery1.FieldByName('Meaning').AsString;
     272      Sources.AcronymDb.AddAcronym(NewAcronym.Name, NewAcronym.Meaning);
     273      SQLQuery1.Next;
     274      Inc(ItemCount);
     275    end;
     276    NewAcronym.Free;
     277  finally
     278    SQLQuery1.Free;
     279    SQLTransaction1.Free;
     280    ODBCConnection1.Free;
     281  end;
     282end;
     283
    232284{ TImportPatterns }
    233285
     
    321373end;
    322374
     375procedure TImportSource.Process;
     376begin
     377  case Format.Kind of
     378    ifkParse: ProcessTextParse;
     379    ifkMSAccess: ProcessMSAccess;
     380    else raise Exception.Create('Unsupported import format');
     381  end;
     382end;
     383
    323384function StripHTML(S: string): string;
    324385var
     
    346407  I: Integer;
    347408begin
     409  Kind := Source.Kind;
    348410  Name := Source.Name;
    349411  Block.StartString := Source.Block.StartString;
     
    364426  WriteInteger(Node, 'Id', Id);
    365427  WriteString(Node, 'Name', Name);
     428  WriteInteger(Node, 'Kind', Integer(Kind));
    366429  WriteString(Node, 'BlockStartString', Block.StartString);
    367430  WriteString(Node, 'BlockEndString', Block.EndString);
     
    378441  Id := ReadInteger(Node, 'Id', 0);
    379442  Name := ReadString(Node, 'Name', '');
     443  Kind := TImportFormatKind(ReadInteger(Node, 'Kind', 0));
    380444  Block.StartString := ReadString(Node, 'BlockStartString', '');
    381445  Block.EndString := ReadString(Node, 'BlockEndString', '');
     
    513577{ TImportSource }
    514578
    515 procedure TImportSource.Process;
     579procedure TImportSource.ProcessTextParse;
    516580var
    517581  Stream: TMemoryStream;
Note: See TracChangeset for help on using the changeset viewer.