ushezhi.pas

基于DELPHI的图片浏览系统设计与实现

unit Ushezhi;

interface

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

type
  Tconfig = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    ScrollBox1: TScrollBox;
    RadioButton2: TRadioButton;
    RadioButton1: TRadioButton;
    CheckBox1: TCheckBox;
    Label2: TLabel;
    TrackBar1: TTrackBar;
    Label3: TLabel;
    Label4: TLabel;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    RadioButton4: TRadioButton;
    RadioButton3: TRadioButton;
    Image1: TImage;
    GroupBox2: TGroupBox;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    procedure Label1Click(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  config: Tconfig;

implementation

uses Ucompress, MainForm;

{$R *.dfm}

procedure Tconfig.Label1Click(Sender: TObject);
begin
  ShellExecute(Handle,'open',pchar('http://gemouzhi.91x.net'),nil,nil,SW_SHOWNORMAL)  
end;

procedure Tconfig.TrackBar1Change(Sender: TObject);
begin
  Label3.Caption := IntToStr(TrackBar1.Position);
end;

procedure Tconfig.Button1Click(Sender: TObject);
begin
  compress.TrackBar1.Position := TrackBar1.Position;
  if RadioButton4.Checked then
  begin
  form1.Panel_image.Visible := false;
  form1.Panel_web.Visible := true;
  form1.Panel_web.Align := alClient;
  end;
  if RadioButton3.Checked then
  begin
  form1.Panel_image.Visible := true;
  form1.Panel_web.Visible := false;
  form1.Panel_image.Align := alClient;
  end;
  self.Close;
end;

procedure Tconfig.Button2Click(Sender: TObject);
begin
   self.Close;
end;

end.