procedure TForm8.FormShow(Sender: TObject);
begin try
Color := Form2.DSVideoWindowEx1.ColorKey;
Shape1.Brush.Color := Form2.DSVideoWindowEx1.ColorKey;
Left :=Form2.DSVideoWindowEx1.ClientOrigin.X + (Form2.DSVideoWindowEx1.Width div 2) - (Width div 2);
Top :=Form2.DSVideoWindowEx1.ClientOrigin.Y + (Form2.DSVideoWindowEx1.Height div 2) - (Height div 2);
Trackbar1.Enabled := Form2.DSVideoWindowEx1.Capabilities.CanControlBrigtness;
Trackbar1.SliderVisible := Form2.DSVideoWindowEx1.Capabilities.CanControlBrigtness;
Trackbar2.Enabled := Form2.DSVideoWindowEx1.Capabilities.CanControlContrast;
Trackbar2.SliderVisible := Form2.DSVideoWindowEx1.Capabilities.CanControlContrast;
Trackbar4.Enabled := Form2.DSVideoWindowEx1.Capabilities.CanControlHue;
Trackbar4.SliderVisible := Form2.DSVideoWindowEx1.Capabilities.CanControlHue;
Trackbar3.Enabled := Form2.DSVideoWindowEx1.Capabilities.CanControlSaturation;
Trackbar3.SliderVisible := Form2.DSVideoWindowEx1.Capabilities.CanControlSaturation;
GetValues;
except end;End;