"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "unit6.pas" between
peazip-7.7.0.src.zip and peazip-7.7.1.src.zip

About: PeaZip is an OS-portable graphical file archiver, acting as frontend for various open source archiving utilities (incl. its native Pea archive format).

unit6.pas  (peazip-7.7.0.src):unit6.pas  (peazip-7.7.1.src)
skipping to change at line 160 skipping to change at line 160
procedure TFormInput.LabelUpClick(Sender: TObject); procedure TFormInput.LabelUpClick(Sender: TObject);
begin begin
Editinputquery.Text:=UpperCase(Editinputquery.Text); Editinputquery.Text:=UpperCase(Editinputquery.Text);
end; end;
procedure TFormInput.BitBtn2Click(Sender: TObject); procedure TFormInput.BitBtn2Click(Sender: TObject);
begin begin
if FormInput.OpenDialog3.Execute then if FormInput.OpenDialog3.Execute then
if FormInput.OpenDialog3.FileName<>'' then if FormInput.OpenDialog3.FileName<>'' then
begin FormInput.Editinputquery.Caption:=stringdelim(FormInput.OpenDialog3.FileNa
{$IFDEF MSWINDOWS} me);
FormInput.Editinputquery.Caption:='"'+FormInput.OpenDialog3.FileName+'"';
{$ELSE}
FormInput.Editinputquery.Caption:=''''+FormInput.OpenDialog3.FileName+''''
;
{$ENDIF}
end;
end; end;
initialization initialization
{$I unit6.lrs} {$I unit6.lrs}
end. end.
 End of changes. 1 change blocks. 
8 lines changed or deleted 2 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)