left.pas

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

unit left;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, Tabs, StdCtrls, ShellCtrls, Buttons, FileCtrl,
  CheckLst, clipbrd, jpeg;

type
  TDockform = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    TabSet1: TTabSet;
    Notebook1: TNotebook;
    Panel3: TPanel;
    Image1: TImage;
    Panel4: TPanel;
    Image2: TImage;
    Splitter1: TSplitter;
    ShellTreeView1: TShellTreeView;
    Panel5: TPanel;
    Panel6: TPanel;
    SpeedButton1: TSpeedButton;
    Edit1: TEdit;
    Label1: TLabel;
    CheckListBox1: TCheckListBox;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    ScrollBox1: TScrollBox;
    SpeedButton6: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ScrollBox2: TScrollBox;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    Bevel1: TBevel;
    Panel7: TPanel;
    fsize: TLabel;
    Label6: TLabel;
    Label4: TLabel;
    Label2: TLabel;
    fwidth: TLabel;
    fheight: TLabel;
    Panel8: TPanel;
    Label8: TLabel;
    fsource: TLabel;
    fformat: TLabel;
    Label10: TLabel;
    Panel9: TPanel;
    Bevel2: TBevel;
    ScrollBox3: TScrollBox;
    SpeedButton10: TSpeedButton;
    BitBtn1: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TabSet1Change(Sender: TObject; NewTab: Integer;
      var AllowChange: Boolean);
    procedure TabSet1DrawTab(Sender: TObject; TabCanvas: TCanvas; R: TRect;
      Index: Integer; Selected: Boolean);
    procedure Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure ShellTreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure ShellTreeView1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure ShellTreeView1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Dockform: TDockform;
  i:integer=10;
  lefti:integer=10;
  left_view_count:integer=1;

implementation

uses MainForm, commom_func, videocap, UCatchScreenShow;

{$R *.dfm}

procedure TDockform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   form1.Panel2.Visible:=false;
   adjustCombox_url;
end;

procedure TDockform.TabSet1Change(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin
 Notebook1.PageIndex:=NewTab;
end;

procedure TDockform.TabSet1DrawTab(Sender: TObject; TabCanvas: TCanvas;
  R: TRect; Index: Integer; Selected: Boolean);
begin
  Notebook1.PageIndex:=Index;
end;

procedure TDockform.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  edit1.Hint := Edit1.Text;
end;

procedure TDockform.FormShow(Sender: TObject);
begin
  Edit1.Text := ExtractFilePath(Application.ExeName);
end;

procedure TDockform.SpeedButton1Click(Sender: TObject);
var
Dir: string;
begin
  dir :='';
  if SelectDirectory('选择图片目录','',Dir) then
  begin
    if Length(Dir) > 3 then
    Edit1.Text := Dir+'\' else
    Edit1.Text := Dir;
  end;
end;

procedure TDockform.SpeedButton2Click(Sender: TObject);
var
  video: Tvideo;
begin
  video := Tvideo.Create;
  video.openVideo(form1.Handle, form1.Image1, Tbutton(sender));
end;

procedure TDockform.SpeedButton3Click(Sender: TObject);
var
  video: Tvideo;
begin
  video := Tvideo.Create;
  video.CloseVideo(Tbutton(SpeedButton2));
end;

procedure TDockform.SpeedButton4Click(Sender: TObject);
var
  video: Tvideo;
begin
  video := Tvideo.Create;
  video.SaveBMP(Form1);
end;

procedure TDockform.SpeedButton5Click(Sender: TObject);
var
  video: Tvideo;
begin
  video := Tvideo.Create;
  video.StartAVI(Form1);
end;

procedure TDockform.ShellTreeView1Change(Sender: TObject; Node: TTreeNode);
begin
{i:=10;
lefti:=10;
left_view_count:=1;
form1.imagefreeall;
form1.scrolllist;  }
end;

procedure TDockform.ShellTreeView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  tmpbitmap: TBITMAP;
begin
  form1.Image1.Picture := nil;
  if (ssctrl in Shift) and (key = 86) then
  begin
  if Clipboard.HasFormat(CF_TEXT) then
  form1.Image1.Canvas.TextOut(0,0,clipboard.AsText);
  if Clipboard.HasFormat(CF_BITMAP) then
  begin
  tmpbitmap := TBitmap.Create;
  tmpbitmap := TBITMAP(GetClipboardData(CF_BITMAP));
  Image1.Picture.Bitmap := tmpbitmap;
  tmpbitmap.Free;
  end;
  end;
end;

procedure TDockform.SpeedButton7Click(Sender: TObject);
begin
  form1.WindowState := wsMinimized;//最小化程序窗口
  form1.Hide;//把程序藏起来
  form1.MainTimer.Enabled := True;//打开记时器
end;

procedure TDockform.SpeedButton10Click(Sender: TObject);
begin
      form1.Hide;
      CatchScreenShowForm.Hide;
      CatchScreenShowForm.ChildTimer.Enabled := True;
end;

procedure TDockform.ShellTreeView1Click(Sender: TObject);
begin
i:=10;
lefti:=10;
left_view_count:=1;
form1.imagefreeall;
form1.scrolllist;
end;

end.