unit Settings;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, Buttons, ComCtrls, StdCtrls,
  ExtCtrls;

type
  TSettingsForm=class(TForm)
    OKButton: TBitBtn;
    CancelButton: TBitBtn;
    SettingsControl: TPageControl;
    GeneralSheet: TTabSheet;
    LangLabel: TLabel;
    Image1: TImage;
    DownPathLabel: TLabel;
    SpeedButton1: TSpeedButton;
    LangBox: TComboBox;
    DownPathEdit: TEdit;
    CompressBox: TCheckBox;
    NetworkSheet: TTabSheet;
    HostLabel: TLabel;
    PortLabel: TLabel;
    Image3: TImage;
    Label1: TLabel;
    DirectBox: TRadioButton;
    ProxyBox: TRadioButton;
    PortEdit: TEdit;
    HostEdit: TEdit;
    UserEdit: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  SettingsForm: TSettingsForm;


{This file is generated by DeDe v2.30 (c) 1999 by DaFixer}

implementation

{$R *.DFM}


procedure TSettingsForm.FormCreate(Sender: TObject);
begin
{
004954FC   55                     push    ebp
004954FD   8BEC                   mov     ebp, esp
004954FF   83C4F8                 add     esp, -$08
00495502   8955F8                 mov     [ebp-$08], edx
00495505   8945FC                 mov     [ebp-$04], eax
00495508   8B45FC                 mov     eax, [ebp-$04]
0049550B   E8DCF7FFFF             call    00494CEC
00495510   59                     pop     ecx
00495511   59                     pop     ecx
00495512   5D                     pop     ebp
00495513   C3                     ret


}
 end ; 

procedure TSettingsForm.FormDestroy(Sender: TObject);
begin
{
00495514   55                     push    ebp
00495515   8BEC                   mov     ebp, esp
00495517   83C4F8                 add     esp, -$08
0049551A   8955F8                 mov     [ebp-$08], edx
0049551D   8945FC                 mov     [ebp-$04], eax
00495520   8B45FC                 mov     eax, [ebp-$04]
00495523   E888FCFFFF             call    004951B0
00495528   59                     pop     ecx
00495529   59                     pop     ecx
0049552A   5D                     pop     ebp
0049552B   C3                     ret


}
 end ; 

procedure TSettingsForm.FormShow(Sender: TObject);
begin
{
004955EC   55                     push    ebp
004955ED   8BEC                   mov     ebp, esp
004955EF   83C4F8                 add     esp, -$08
004955F2   8955F8                 mov     [ebp-$08], edx
004955F5   8945FC                 mov     [ebp-$04], eax
004955F8   8B45FC                 mov     eax, [ebp-$04]
004955FB   8B90D0020000           mov     edx, [eax+$02D0]
00495601   8B45FC                 mov     eax, [ebp-$04]
00495604   8B80CC020000           mov     eax, [eax+$02CC]
0049560A   E8C1B2FCFF             call    004608D0
0049560F   59                     pop     ecx
00495610   59                     pop     ecx
00495611   5D                     pop     ebp
00495612   C3                     ret


}
 end ; 

procedure TSettingsForm.SpeedButton1Click(Sender: TObject);
begin
{
00495614   55                     push    ebp
00495615   8BEC                   mov     ebp, esp
00495617   83C4F4                 add     esp, -$0C
0049561A   33C9                   xor     ecx, ecx
0049561C   894DF8                 mov     [ebp-$08], ecx
0049561F   8955F4                 mov     [ebp-$0C], edx
00495622   8945FC                 mov     [ebp-$04], eax
00495625   33C0                   xor     eax, eax
00495627   55                     push    ebp

* Possible String Reference to: "é#àöÿëð‹å]Ã"
|
00495628   6878564900             push    $00495678

***** TRY
|
0049562D   64FF30                 push    dword ptr fs:[eax]
00495630   648920                 mov     fs:[eax], esp
00495633   8D45F8                 lea     eax, [ebp-$08]
00495636   E845E6F6FF             call    00403C80
0049563B   8D4DF8                 lea     ecx, [ebp-$08]
0049563E   BA88564900             mov     edx, $00495688

* Possible String Reference to: "Choose download directory"
|
00495643   B898564900             mov     eax, $00495698
00495648   E87BF1FFFF             call    004947C8
0049564D   84C0                   test    al, al
0049564F   7411                   jz      00495662
00495651   8B55F8                 mov     edx, [ebp-$08]
00495654   8B45FC                 mov     eax, [ebp-$04]
00495657   8B800C030000           mov     eax, [eax+$030C]
0049565D   E856C3F9FF             call    004319B8
00495662   33C0                   xor     eax, eax
00495664   5A                     pop     edx
00495665   59                     pop     ecx
00495666   59                     pop     ecx
00495667   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: "‹å]Ã"
|
0049566A   687F564900             push    $0049567F
0049566F   8D45F8                 lea     eax, [ebp-$08]
00495672   E809E6F6FF             call    00403C80
00495677   C3                     ret

00495678   E923E0F6FF             jmp     004036A0
0049567D   EBF0                   jmp     0049566F

****** END
|
0049567F   8BE5                   mov     esp, ebp
00495681   5D                     pop     ebp
00495682   C3                     ret


}
 end ; 

end.
