开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > DirextX编程 > 查看源码
Config.~pas
资源名称：directshowsdk.rar　[点击查看]
上传用户：mjqmds
上传日期：2022-05-05
资源大小：2827k
文件大小：5k
源码类别：

DirextX编程

开发平台：

Delphi

Config.~pas：源码内容
  1. unit Config;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, TFlatEditUnit, TFlatSpinEditUnit, LMDCustomControl,
  8.   LMDCustomPanel, LMDCustomTrackBar, LMDTrackBar, TFlatSpeedButtonUnit,
  9.   TFlatButtonUnit;
  11. type
  12.   TForm1 = class(TForm)
  13.     FlatSpinEditInteger1: TFlatSpinEditInteger;
  14.     LMDTrackBar2: TLMDTrackBar;
  15.     LMDTrackBar1: TLMDTrackBar;
  16.     LMDTrackBar3: TLMDTrackBar;
  17.     LMDTrackBar4: TLMDTrackBar;
  18.     LMDTrackBar5: TLMDTrackBar;
  19.     Label1: TLabel;
  20.     Label2: TLabel;
  21.     Label3: TLabel;
  22.     Label4: TLabel;
  23.     Label5: TLabel;
  24.     Label6: TLabel;
  25.     FlatSpeedButton1: TFlatSpeedButton;
  26.     FlatSpeedButton2: TFlatSpeedButton;
  27.     FlatSpeedButton3: TFlatSpeedButton;
  28.     FlatSpeedButton4: TFlatSpeedButton;
  29.     FlatSpeedButton5: TFlatSpeedButton;
  30.     FlatButton1: TFlatButton;
  31.     FlatButton2: TFlatButton;
  32.     procedure LMDTrackBar5Track(Sender: TObject; ScrollCode: TScrollCode;
  33.       var ScrollPos: Integer);
  34.     procedure LMDTrackBar4Track(Sender: TObject; ScrollCode: TScrollCode;
  35.       var ScrollPos: Integer);
  36.     procedure FormShow(Sender: TObject);
  37.     procedure FlatSpeedButton1Click(Sender: TObject);
  38.     procedure FlatSpeedButton2Click(Sender: TObject);
  39.     procedure FlatSpeedButton3Click(Sender: TObject);
  40.     procedure FlatSpeedButton4Click(Sender: TObject);
  41.     procedure FlatSpeedButton5Click(Sender: TObject);
  42.     procedure FlatButton1Click(Sender: TObject);
  43.     procedure FlatButton2Click(Sender: TObject);
  44.   private
  45.     procedure SetAmp;
  46.     { Private declarations }
  47.   public
  48.     { Public declarations }
  49.   end;
  51. var
  52.   Form1: TForm1;
  54. implementation
  56. uses WHPlaySDK;
  58. {$R *.dfm}
  60. procedure TForm1.LMDTrackBar5Track(Sender: TObject;
  61.   ScrollCode: TScrollCode; var ScrollPos: Integer);
  62. begin
  63.     dllSetAlpha(FlatSpinEditInteger1.Value,ScrollPos/1000);
  64. end;
  66. procedure TForm1.SetAmp;
  67. Var
  68.     Amp:TVMR9ProcAmpControl;
  69. begin
  70.     Amp.dwSize:=sizeof(Amp);
  71.     Amp.dwFlags:=ProcAmpControl9_Brightness or
  72.         ProcAmpControl9_Contrast or ProcAmpControl9_Hue or ProcAmpControl9_Saturation;
  73.     Amp.Brightness:=LMDTrackBar2.Position-100;
  74.     Amp.Contrast:=LMDTrackBar4.Position/1000;
  75.     Amp.Hue:=LMDTrackBar3.Position-180;
  76.     Amp.Saturation:=LMDTrackBar1.Position/1000;
  77.     dllSetAmpControl(FlatSpinEditInteger1.Value,@Amp);
  78. end;
  80. procedure TForm1.LMDTrackBar4Track(Sender: TObject;
  81.   ScrollCode: TScrollCode; var ScrollPos: Integer);
  82. begin
  83.     SetAmp;
  84. end;
  86. procedure TForm1.FormShow(Sender: TObject);
  87. Var
  88.     a:Single;
  89.     Amp:TVMR9ProcAmpControl;
  90. begin
  91.     FillChar(Amp,sizeof(Amp),0);
  92.     Amp.dwFlags:=ProcAmpControl9_Brightness or
  93.         ProcAmpControl9_Contrast or ProcAmpControl9_Hue or ProcAmpControl9_Saturation;
  94.     Amp.dwSize:=sizeof(Amp);
  95.     if dllGetAmpControl(FlatSpinEditInteger1.Value,@Amp)=1 then
  96.     begin
  97.         LMDTrackBar2.Position:=Round(Amp.Brightness+100);
  98.         LMDTrackBar4.Position:=Round(Amp.Contrast*1000);
  99.         LMDTrackBar3.Position:=Round(Amp.Hue+180);
  100.         LMDTrackBar1.Position:=Round(Amp.Saturation*1000);
  101.     end
  102.     else
  103.     begin
  104.         LMDTrackBar2.Position:=0;
  105.         LMDTrackBar4.Position:=0;
  106.         LMDTrackBar3.Position:=0;
  107.         LMDTrackBar1.Position:=0;
  109.         LMDTrackBar1.Enabled:=false;
  110.         LMDTrackBar2.Enabled:=false;
  111.         LMDTrackBar3.Enabled:=false;
  112.         LMDTrackBar4.Enabled:=false;
  113.     end;
  115.     if dllGetAlpha(FlatSpinEditInteger1.Value,a)=1 then
  116.         LMDTrackBar5.Position:=Round(a*1000)
  117.     else
  118.     begin
  119.         LMDTrackBar5.Enabled:=false;
  120.     end;
  122. end;
  124. procedure TForm1.FlatSpeedButton1Click(Sender: TObject);
  125. begin
  126.     LMDTrackBar4.Position:=LMDTrackBar4.MaxValue DIV 2;
  127.     SetAMP;
  128. end;
  130. procedure TForm1.FlatSpeedButton2Click(Sender: TObject);
  131. begin
  132.     LMDTrackBar3.Position:=LMDTrackBar3.MaxValue DIV 2;
  133.     SetAMP;
  134. end;
  136. procedure TForm1.FlatSpeedButton3Click(Sender: TObject);
  137. begin
  138.     LMDTrackBar1.Position:=LMDTrackBar1.MaxValue DIV 2;
  139.     SetAMP;
  140. end;
  142. procedure TForm1.FlatSpeedButton4Click(Sender: TObject);
  143. begin
  144.     LMDTrackBar2.Position:=LMDTrackBar2.MaxValue DIV 2;
  145.     SetAMP;
  146. end;
  148. procedure TForm1.FlatSpeedButton5Click(Sender: TObject);
  149. begin
  150.     LMDTrackBar5.Position:=LMDTrackBar5.MaxValue;
  151.     dllSetAlpha(FlatSpinEditInteger1.Value,LMDTrackBar5.Position/1000);
  152. end;
  154. procedure TForm1.FlatButton1Click(Sender: TObject);
  155. begin
  156.     FlatSpeedButton1.Click;
  157.     FlatSpeedButton2.Click;
  158.     FlatSpeedButton3.Click;
  159.     FlatSpeedButton4.Click;
  160.     FlatSpeedButton5.Click;
  161. end;
  163. procedure TForm1.FlatButton2Click(Sender: TObject);
  164. Var
  165.     Val1,Val2:LongInt;
  166. begin
  167.     DllConfig('SHOWVIDEOPROPERTY',Val1,Val2);
  168. end;
  170. end.