106
procedure TPaintForm.Save_Image_BtClick(Sender: TObject);
Var
JPeg : TJPegImage;
begin
If Main.Image_Ed.Text<>'' then
If ExtractFileExt(Main.Image_Ed.Text)='.bmp' then
Main.VisualImage.picture.graphic.SaveToFile(Main.Image_Ed.text)
Else
Begin
JPeg:=TJPegImage.Create;
JPeg.Assign(Main.VisualImage.Picture.Graphic);
JPeg.SaveToFile(Main.Image_Ed.Text);
End;
end;
end.
Function TPlayerForm.FormatADuring(During : LongInt) : string;
Var
Hour,Min,Sec : integer;
begin
{Floor arrondi а l'entier infйrieur}
If During<0 then Hour:=0 Else Hour:= floor(During div 3600);
If During<0 then Min:=0 Else Min:= floor((During-Hour*3600)div
60);
If During<0 then Sec:=0 Else sec:= floor(During-Hour*3600-Min*60);
{Rйsultat sous la forme Hrs:Min:Sec}
Result:=format('%.2d:%.2d:%.2d',[Hour,Min,Sec]);
End;
procedure TPlayerForm.Open_OnClick(Sender: TObject);
Begin
State_Ed.Text:='Wait Please';
With Main.OpenDialog1 do
Begin
Filter:='Fichier Video Creator|*.fvc';
If not Execute then Exit;
Title_Ed.Text:=FileName;
107
AFolder:='TemporyPlayerVideoCreator';
FolderTemp:=CreateTemporyFiles;
ImgPlayer:=FolderTemp+'Images.ima';
SndPlayer:=FolderTemp+'Sounds.sod';
IniPlayer:=FolderTemp+'Player.ini';
ExtractFilmParts(FileName);
During_Lb.Caption:=DuringOfFilm(speed_TrBr.Position);
VideoIndex:=0;
end;
PLay_On.Visible:= True;
Open_Off.Visible:= True;
State_Ed.Text:='Go';
Time_Lb.Caption:='00:00:00';
If Luminosity_CB.Checked then ChangeSlowlyLuminosity(0);
end;
procedure TPlayerForm.Play_OnClick(Sender: TObject);
begin
Play_On.Visible:=False;
Open_On.Visible:=False;
Stop_On.Visible:=True;
Bk_On.Visible:=True;
FF_On.Visible:=True;
PlayerTimer.Interval:=speed_TrBr.Position;
Pas:=1;
PlayerTimer.Enabled:=True;
end;
procedure TPlayerForm.PlayerTimerTimer(Sender: TObject);
Var
SoundTag,TextTag : Integer;
begin
If SOund_On.Visible=True then SoundTag:=1 Else SoundTag:=0;
If Text_On.Visible=True then TextTag:=1 Else TextTag:=0;
VideoPlaying(SoundTag,TextTag);
Time_Lb.Caption:=FormatADuring(VideoIndex*(speed_TrBr.Position)
div 1000);
108
VideoIndex:=VideoIndex+Pas;
end;
procedure TPlayerForm.Stop_OffClick(Sender: TObject);
begin
PlayerTimer.Enabled:=False;
Stop_On.Visible:=False;
Play_On.Visible:=True;
Bk_On.Visible:= False;
FF_On.Visible:= False;
Open_On.Visible:=True;
end;
procedure TPlayerForm.Bk_OnClick(Sender: TObject);
begin
FF_On.Visible:=True;
Bk_On.Visible:=False;
Stop_On.Visible:=True;
PlayerTimer.Interval:=speed_TrBr.Position div 10;
Pas:=-1;
PlayerTimer.Enabled:=True;
end;
procedure TPlayerForm.FF_OnClick(Sender: TObject);
begin
FF_On.Visible:=False;
Bk_On.Visible:=True;
Stop_On.Visible:=True;
PlayerTimer.Interval:=speed_TrBr.Position div 10;
Pas:=1;
PlayerTimer.Enabled:=True;
end;
procedure TPlayerForm.Sound_OnClick(Sender: TObject);
begin
Sound_On.Visible:=False;
LevelSound:=GetWaveVolume;
SetWaveVolume(0);
end;
109
procedure TPlayerForm.Sound_OffClick(Sender: TObject);
begin
Sound_On.Visible:=True;
SetWaveVolume(LevelSound);
end;
procedure TPlayerForm.Text_OnClick(Sender: TObject);
begin
Text_On.Visible:=False;
end;
procedure TPlayerForm.Text_OffClick(Sender: TObject);
begin
Text_On.Visible:=True;
end;
procedure TPlayerForm.speed_TrBrChange(Sender: TObject);
begin
During_Lb.Caption:=DuringOfFilm(speed_TrBr.Position);
end;
procedure TPlayerForm.FormClose(Sender: TObject; var Action:
TCloseAction);
begin
{On revient а une luminositй maximum}
ChangeSlowlyLuminosity(1);
halt(0);
end;
procedure TPlayerForm.Stop_OnClick(Sender: TObject);
begin
PlayerTimer.Enabled:=False;
Stop_On.Visible:=False;
Play_On.Visible:=True;
Bk_On.Visible:= False;
FF_On.Visible:= False;
Open_On.Visible:=True;
end;
end.