【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:U_Prew_HF.pas绩等信息,祝愿广大网友取得需要的信息,参考学习。
unit U_Prew_HF;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DSPack, ComCtrls, Buttons, FileCtrl,u_public,strutils;
type
TFrm_Prew_HF = class(TForm)
Panel1: TPanel;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
VideoWindow1: TVideoWindow;
Label1: TLabel;
DTP_RQ: TDateTimePicker;
Label2: TLabel;
Cmx_Td: TComboBox;
Lvw_Lb: TListView;
SpeedButton1: TSpeedButton;
OpenDialog1: TOpenDialog;
SpeedButton2: TSpeedButton;
FilterGraph: TFilterGraph;
Filelist: TFileListBox;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Lvw_LbDblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frm_Prew_HF: TFrm_Prew_HF;
implementation
uses U_Option;
{$R *.dfm}
procedure TFrm_Prew_HF.SpeedButton1Click(Sender: TObject);
begin
close;
end;
procedure TFrm_Prew_HF.SpeedButton2Click(Sender: TObject);
var AA,BB,CC:string;
II:integer;
begin
lvw_lb.Items.Clear;
AA:='T'+formatdatetime('yyyy-mm-dd',dtp_rq.date);
for II:=0 to filelist.Items.Count-1 do
begin
bb:=midstr(filelist.Items.Strings[ii],1,11);
if ansicomparestr(aa,bb)=0 then
lvw_lb.Items.Add.Caption:=filelist.Items.Strings[ii];
end;
end;
procedure TFrm_Prew_HF.FormShow(Sender: TObject);
var I:integer;
begin
dtp_rq.DateTime:=now;
filelist.Directory:=g_path;
if filelist.Items.Count <>0 then
begin
for I:=0 to filelist.Items.Count-1 do
lvw_lb.Items.Add.Caption:=filelist.Items.Strings[i];
end;
end;
procedure TFrm_Prew_HF.Lvw_LbDblClick(Sender: TObject);
begin
filtergraph.Active:=false;
filtergraph.Stop;
FilterGraph.Active := True;
FilterGraph.RenderFile(g_path+lvw_lb.Selected.Caption);
FilterGraph.Play;
end;
end.