Changeset 3


Ignore:
Timestamp:
Apr 20, 2016, 9:25:55 PM (10 years ago)
Author:
chronos
Message:
  • Added: Remember last form position.
Location:
trunk
Files:
79 added
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/AcronymDecoder.lpi

    r1 r3  
    6969      </local>
    7070    </RunParams>
    71     <RequiredPackages Count="2">
     71    <RequiredPackages Count="4">
    7272      <Item1>
     73        <PackageName Value="TemplateGenerics"/>
     74        <DefaultFilename Value="Packages\TemplateGenerics\TemplateGenerics.lpk" Prefer="True"/>
     75      </Item1>
     76      <Item2>
     77        <PackageName Value="Common"/>
     78        <DefaultFilename Value="Packages\Common\Common.lpk" Prefer="True"/>
     79      </Item2>
     80      <Item3>
    7381        <PackageName Value="synapse"/>
    7482        <DefaultFilename Value="Packages\synapse\synapse.lpk" Prefer="True"/>
    75       </Item1>
    76       <Item2>
     83      </Item3>
     84      <Item4>
    7785        <PackageName Value="LCL"/>
    78       </Item2>
     86      </Item4>
    7987    </RequiredPackages>
    8088    <Units Count="4">
    … …  
    129137        <StackChecks Value="True"/>
    130138      </Checks>
    131       <TargetCPU Value="i386"/>
    132       <TargetOS Value="win32"/>
    133139    </CodeGeneration>
    134140    <Linking>

  • trunk/AcronymDecoder.lpr

    r1 r3  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, UFormMain, UAcronym, synapse, UFormImport
     10  Forms, UFormMain, UAcronym, synapse, UFormImport, Common, TemplateGenerics
    1111  { you can add units after this };
    1212

  • trunk/Packages/synapse/synapse.pas

    r1 r3  
    33 }
    44
    5 unit synapse; 
     5unit synapse;
    66
     7{$warn 5023 off : no warning about unused units}
    78interface
    89
    910uses
    10     tlntsend, asn1util, blcksock, clamsend, dnssend, ftpsend, ftptsend,
     11  tlntsend, asn1util, blcksock, clamsend, dnssend, ftpsend, ftptsend,
    1112  httpsend, imapsend, ldapsend, mimeinln, mimemess, mimepart, nntpsend,
    1213  pingsend, pop3send, slogsend, smtpsend, snmpsend, sntpsend, synacode,
    … …  
    1617implementation
    1718
    18 procedure Register; 
     19procedure Register;
    1920begin
    20 end; 
     21end;
    2122
    2223initialization
    23   RegisterPackage('synapse', @Register); 
     24  RegisterPackage('synapse', @Register);
    2425end.

  • trunk/UFormMain.lfm

    r1 r3  
    44  Top = 386
    55  Width = 631
    6   Caption = 'HAF'
     6  Caption = 'Acronym Decoder'
    77  ClientHeight = 446
    88  ClientWidth = 631
    … …  
    1212  OnDestroy = FormDestroy
    1313  OnShow = FormShow
    14   LCLVersion = '1.6.0.4'
     14  LCLVersion = '1.7'
    1515  object ListViewAcronyms: TListView
    1616    Left = 8
    … …  
    4141  object EditSearch: TEdit
    4242    Left = 8
    43     Height = 28
     43    Height = 34
    4444    Top = 8
    4545    Width = 611
    … …  
    43704370    end
    43714371  end
     4372  object PersistentForm1: TPersistentForm
     4373    MinVisiblePart = 50
     4374    EntireVisible = False
     4375    left = 304
     4376    top = 128
     4377  end
    43724378end

  • trunk/UFormMain.pas

    r2 r3  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
    9   ComCtrls, StdCtrls, ExtCtrls, ActnList, UAcronym, Contnrs;
     9  ComCtrls, StdCtrls, ExtCtrls, ActnList, UAcronym, UPersistentForm, Contnrs,
     10  URegistry, Registry;
    1011
    1112type
    … …  
    2324    MenuItem2: TMenuItem;
    2425    MenuItem3: TMenuItem;
     26    PersistentForm1: TPersistentForm;
    2527    PopupMenu1: TPopupMenu;
    2628    TrayIcon1: TTrayIcon;
    … …  
    7375begin
    7476  AcronymDB.SaveToFile(DefaultFileName);
     77  PersistentForm1.Save(Self);
    7578end;
    7679
    … …  
    103106
    104107procedure TFormMain.FormShow(Sender: TObject);
     108const
     109  DefaultRegKey = '\Software\Acronym Decoder';
    105110begin
     111  PersistentForm1.RegistryContext := RegContext(HKEY_CURRENT_USER, DefaultRegKey);
     112  PersistentForm1.Load(Self);
    106113  if FileExists(DefaultFileName) then
    107114    AcronymDB.LoadFromFile(DefaultFileName);
Note: See TracChangeset for help on using the changeset viewer.