Changeset 112 for trunk


Ignore:
Timestamp:
Nov 1, 2016, 12:12:04 PM (8 years ago)
Author:
chronos
Message:
  • Fixed: Put back accidently removed actions to tray icon popup menu.
Location:
trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormMain.lfm

    r109 r112  
    55  Width = 782
    66  Caption = 'Acronym Decoder'
    7   ClientHeight = 417
     7  ClientHeight = 422
    88  ClientWidth = 782
    99  Menu = MainMenu1
    … …  
    1717  object Panel1: TPanel
    1818    Left = 0
    19     Height = 391
     19    Height = 396
    2020    Top = 26
    2121    Width = 782
    2222    Align = alClient
    2323    BevelOuter = bvNone
    24     ClientHeight = 391
     24    ClientHeight = 396
    2525    ClientWidth = 782
    2626    TabOrder = 1
    2727    object CheckBoxExactMath: TCheckBox
    2828      Left = 8
    29       Height = 29
     29      Height = 24
    3030      Top = 3
    31       Width = 124
     31      Width = 104
    3232      Caption = 'Exact match'
    3333      OnChange = CheckBoxExactMathChange
    … …  
    4444    object ListViewAcronyms: TListView
    4545      Left = 8
    46       Height = 319
     46      Height = 324
    4747      Top = 64
    4848      Width = 767

  • trunk/Forms/UFormMain.pas

    r109 r112  
    115115    procedure ListViewSort1Filter(ListViewSort: TListViewSort);
    116116    procedure MenuItemToolbarClick(Sender: TObject);
    117     procedure TrayIcon1Click(Sender: TObject);
    118117  private
    119118    RegistryContext: TRegistryContext;
    … …  
    484483  MenuItemToolbar.Checked := not MenuItemToolbar.Checked;
    485484  UpdateInterface;
    486 end;
    487 
    488 procedure TFormMain.TrayIcon1Click(Sender: TObject);
    489 begin
    490   if not Visible then AShow.Execute
    491     else Hide;
    492485end;
    493486

  • trunk/UCore.lfm

    r110 r112  
    11191119    Hint = 'Acronym Decoder'
    11201120    Visible = True
     1121    OnClick = TrayIcon1Click
    11211122    left = 152
    11221123    top = 336
    … …  
    11271128    top = 400
    11281129    object MenuItem2: TMenuItem
     1130      Action = FormMain.AShow
    11291131      Default = True
    11301132    end
    11311133    object MenuItem26: TMenuItem
     1134      Action = FormMain.AHide
    11321135    end
    11331136    object MenuItem3: TMenuItem
     1137      Action = FormMain.AImport
    11341138    end
    11351139    object MenuItem27: TMenuItem
     1140      Action = FormMain.AExport
    11361141    end
    11371142    object MenuItem28: TMenuItem
    1138       Bitmap.Data = {
    1139         36040000424D3604000000000000360000002800000010000000100000000100
    1140         2000000000000004000064000000640000000000000000000000000000000000
    1141         0000000000000000000000000000000000000000000000000000000000000000
    1142         0000000000000000000000000000000000000000000000000000000000000000
    1143         000000000000303030FF303030FF303030FF303030FF00000000000000000000
    1144         0000000000000000000000000000000000000000000000000000000000000000
    1145         0000000000000000000000000000303030FF303030FF00000000000000000000
    1146         0000000000000000000000000000303030FF0000000000000000000000000000
    1147         0000000000000000000000000000303030FF303030FF00000000000000000000
    1148         0000000000000000000000000000303030FF0000000000000000000000000000
    1149         0000000000000000000000000000303030FF303030FF00000000000000003030
    1150         30FF303030FF303030FF303030FF303030FF0000000000000000000000000000
    1151         0000000000000000000000000000303030FF303030FF303030FF303030FF3030
    1152         30FF303030FF303030FF303030FF303030FF0000000000000000000000000000
    1153         000000000000000000000000000000000000303030FF303030FF303030FF3030
    1154         30FF000000000000000000000000000000000000000000000000000000000000
    1155         00000000000000000000000000000000000000000000303030FF303030FF0000
    1156         0000000000000000000000000000000000000000000000000000000000000000
    1157         00000000000000000000303030FF0000000000000000303030FF303030FF0000
    1158         000000000000303030FF00000000000000000000000000000000000000000000
    1159         000000000000303030FF303030FF303030FF303030FF303030FF303030FF0000
    1160         000000000000303030FF00000000000000000000000000000000000000000000
    1161         0000303030FF303030FF00000000303030FF303030FF303030FF303030FF0000
    1162         000000000000303030FF00000000000000000000000000000000000000000000
    1163         0000303030FF00000000000000000000000000000000303030FF303030FF3030
    1164         30FF303030FF303030FF00000000000000000000000000000000000000000000
    1165         000000000000000000000000000000000000303030FF303030FF000000000000
    1166         0000000000000000000000000000000000000000000000000000000000000000
    1167         0000000000000000000000000000303030FF303030FF303030FF303030FF0000
    1168         0000000000000000000000000000000000000000000000000000000000000000
    1169         0000000000000000000000000000303030FF303030FF303030FF303030FF0000
    1170         0000000000000000000000000000000000000000000000000000000000000000
    1171         000000000000000000000000000000000000303030FF303030FF000000000000
    1172         0000000000000000000000000000000000000000000000000000
    1173       }
     1143      Action = FormMain.AProcessImports
    11741144    end
    11751145    object MenuItem19: TMenuItem
    1176       Bitmap.Data = {
    1177         36040000424D3604000000000000360000002800000010000000100000000100
    1178         2000000000000004000064000000640000000000000000000000000000000000
    1179         0000000000000000000000000000000000003F3428FF3F3428FF3F3428FF3F34
    1180         28FF000000000000000000000000000000000000000000000000000000000000
    1181         0000000000003F3428FF3F3428FF00000000776D66FFE5DBD2FFE5DBD2FF776D
    1182         66FF000000003F3428FF3F3428FF000000000000000000000000000000000000
    1183         00003F3428FF877D73FFE1D9D1FF574D42FF766C63FFEDE5DDFFEDE5DDFF766C
    1184         63FF574D42FFE1D9D1FF877D73FF3F3428FF0000000000000000000000003F34
    1185         28FFB6B0A9FFE1D9D1FFC8BEB4FFE1D9D1FFC8BEB4FFEDE5DDFFEDE5DDFFC8BE
    1186         B4FFE1D9D1FFC8BEB4FFE1D9D1FFB6B0A9FF3F3428FF00000000000000003F34
    1187         28FFE1D9D1FFEBE7E2FFE1D9D1FFAEA7A0FFE2DDDAFFB7B1ABFFB7B1ABFFE2DD
    1188         DAFFAEA7A0FFE1D9D1FFEBE7E2FFE1D9D1FF3F3428FF00000000000000000000
    1189         000061564CFFE1D9D1FFACA39BFFE4E1DCFFAFA8A4FF695E53FF695E53FFAFA8
    1190         A4FFE4E1DCFFACA39BFFE1D9D1FF61564CFF0000000000000000463B2FFF3E33
    1191         28FF61564CFFAFA8A4FFC1BCB6FFAFA8A4FF695E53FFFFFFFF00FFFFFF00695E
    1192         53FFAFA8A4FFC1BCB6FFAFA8A4FF61564CFF3E3328FF463B2FFF897E74FFE8E0
    1193         D7FFE8E0D7FFB0ACA8FFE8E3DDFF695E53FFFFFFFF00FFFFFF00FFFFFF00FFFF
    1194         FF00695E53FFE8E3DDFFB0ACA8FFE8E0D7FFE8E0D7FF897E74FF877B70FFFFFF
    1195         FFFFFFFFFFFFBFBCB8FFD6CDC5FF695E53FFFFFFFF00FFFFFF00FFFFFF00FFFF
    1196         FF00695E53FFD6CDC5FFBFBCB8FFFFFFFFFFFFFFFFFF877B70FF8E8378FF897D
    1197         72FF84796CFFD8D5D3FFC9C2B9FFA99C90FF594F45FFFFFFFF00FFFFFF006056
    1198         4DFFA99C90FFC9C2B9FFD8D5D3FF84796CFF897D72FF8E8378FF000000000000
    1199         0000696053FFDFDFDEFFDFDFDEFFD1C4BAFF8E8377FF44392EFF44392EFF8E83
    1200         77FFD1C4BAFFDFDFDEFFDFDFDEFF696053FF0000000000000000000000006960
    1201         53FFF6F1EEFFBBAC9DFFDFD8D3FFEEEFEFFFEBE7E2FFE3D9D1FFE3D9D1FFEBE7
    1202         E2FFEEEFEFFFDFD8D3FFBBAC9DFFF6F1EEFF696053FF0000000000000000675D
    1203         50FFCDC6BFFFF6F1EEFFF8F7F4FFF8F7F4FFFFFFFFFFFCFDFDFFFCFDFDFFFFFF
    1204         FFFFF8F7F4FFF8F7F4FFF6F1EEFFCDC6BFFF696053FF00000000000000000000
    1205         0000998F83FFCCC5BEFFF6F1EEFF908377FF908377FFEDE7E0FFEDE7E0FF9083
    1206         77FF908377FFF6F1EEFFCCC5BEFFA9A096FF0000000000000000000000000000
    1207         0000000000009C9083FF9C9083FF00000000998D80FFFFFFFFFFFFFFFFFF998D
    1208         80FF000000009C9083FF9C9083FF000000000000000000000000000000000000
    1209         000000000000000000000000000000000000A19588FF9C9083FF9C9083FFA195
    1210         88FF000000000000000000000000000000000000000000000000
    1211       }
     1146      Action = FormMain.ASettings
    12121147    end
    12131148    object MenuItem1: TMenuItem
    1214       Bitmap.Data = {
    1215         36040000424D3604000000000000360000002800000010000000100000000100
    1216         2000000000000004000064000000640000000000000000000000000000000000
    1217         0000000000000000000000000000000000FF0000000000000000000000000000
    1218         0000000000000000000000000000000000000000000000000000000000000000
    1219         00000000000000000000000000FF000000FF0000000000000000000000000000
    1220         0000000000000000000000000000000000000000000000000000000000000000
    1221         000000000000000000FF008484FF000000FF0000000000000000000000000000
    1222         0000000000000000000000000000000000000000000000000000000000000000
    1223         0000000000FF008484FF008484FF000000FF0000000000000000000000000000
    1224         0000000000000000000000000000000000000000000000000000000000FF0000
    1225         00FF008484FF008484FF008484FF000000FF000000FF000000FF000000FF0000
    1226         00FF000000FF000000FF000000FF000000000000000000000000000000000000
    1227         00FF008484FF008484FF008484FF000000FFFFFFFFFFFFFFFFFF000000FF0000
    1228         0000000000000000000000000000000000000000000000000000000000000000
    1229         00FF008484FF008484FF000000FF000000FFFFFFFFFFFFFFFFFF000000FF0000
    1230         0000000000000000000000000000840000FF0000000000000000000000000000
    1231         00FF008484FF008484FF008484FF000000FFFFFFFFFFFFFFFFFF000000FF0000
    1232         00000000000000000000840000FF840000FF0000000000000000000000000000
    1233         00FF008484FF008484FF008484FF000000FFFFFFFFFFFFFFFFFF000000FF0000
    1234         000000000000840000FF840000FF840000FF840000FF840000FF000000000000
    1235         00FF008484FF008484FF008484FF000000FFFFFFFFFFFFFFFFFF000000FF0000
    1236         0000840000FF840000FF840000FF840000FF840000FF840000FF000000000000
    1237         00FF008484FF008484FF008484FF000000FFFFFFFFFFFFFFFFFF000000FF0000
    1238         000000000000840000FF840000FF840000FF840000FF840000FF000000000000
    1239         00FF008484FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000
    1240         00000000000000000000840000FF840000FF0000000000000000000000000000
    1241         00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000
    1242         0000000000000000000000000000840000FF0000000000000000000000000000
    1243         00FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000
    1244         0000000000000000000000000000000000000000000000000000000000000000
    1245         00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
    1246         0000000000000000000000000000000000000000000000000000000000000000
    1247         0000000000000000000000000000000000000000000000000000000000000000
    1248         0000000000000000000000000000000000000000000000000000
    1249       }
     1149      Action = FormMain.AExit
    12501150    end
    12511151  end

  • trunk/UCore.pas

    r110 r112  
    3333    procedure DataModuleCreate(Sender: TObject);
    3434    procedure DataModuleDestroy(Sender: TObject);
     35    procedure TrayIcon1Click(Sender: TObject);
    3536  private
    3637    FAlwaysOnTop: Boolean;
    … …  
    8182  FreeAndNil(StoredDimension);
    8283  FreeAndNil(AcronymDb);
     84end;
     85
     86procedure TCore.TrayIcon1Click(Sender: TObject);
     87begin
     88  if not FormMain.Visible then FormMain.AShow.Execute
     89    else FormMain.Hide;
    8390end;
    8491
Note: See TracChangeset for help on using the changeset viewer.