"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "unit3.pas" between
peazip-7.9.0.src.zip and peazip-8.0.0.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).

unit3.pas  (peazip-7.9.0.src):unit3.pas  (peazip-8.0.0.src)
skipping to change at line 25 skipping to change at line 25
type type
{ TFormPW } { TFormPW }
TFormPW = class(TForm) TFormPW = class(TForm)
ButtonEditNamePw: TSpeedButton; ButtonEditNamePw: TSpeedButton;
ButtonEditName3: TButton; ButtonEditName3: TButton;
ButtonPanel1: TButtonPanel; ButtonPanel1: TButtonPanel;
CheckBoxEncFn: TCheckBox; CheckBoxEncFn: TCheckBox;
CheckBoxIntPw: TCheckBox;
CheckBoxKeepPW: TCheckBox; CheckBoxKeepPW: TCheckBox;
CheckBoxShowPWField: TCheckBox; CheckBoxShowPWField: TCheckBox;
EditName3: TEdit; EditName3: TEdit;
EditUn7zaPW: TEdit; EditUn7zaPW: TEdit;
EditUn7zaPW1: TEdit; EditUn7zaPW1: TEdit;
LableListPath1: TLabel; LableListPath1: TLabel;
LableListPath2: TLabel; LableListPath2: TLabel;
LableListPath3: TLabel; LableListPath3: TLabel;
MenuItem1: TMenuItem; MenuItem1: TMenuItem;
PanelKF: TPanel; PanelKF: TPanel;
skipping to change at line 56 skipping to change at line 57
mpwreset: TMenuItem; mpwreset: TMenuItem;
mpwexplore: TMenuItem; mpwexplore: TMenuItem;
mpwman1: TMenuItem; mpwman1: TMenuItem;
OpenDialogKF: TOpenDialog; OpenDialogKF: TOpenDialog;
PanelPWOpen: TPanel; PanelPWOpen: TPanel;
PopupMenupw: TPopupMenu; PopupMenupw: TPopupMenu;
PopupMenupwman: TPopupMenu; PopupMenupwman: TPopupMenu;
Shape1: TPanel; Shape1: TPanel;
procedure ButtonEditNamePwClick(Sender: TObject); procedure ButtonEditNamePwClick(Sender: TObject);
procedure ButtonEditName3Click(Sender: TObject); procedure ButtonEditName3Click(Sender: TObject);
procedure CheckBoxIntPwClick(Sender: TObject);
procedure CheckBoxShowPWFieldClick(Sender: TObject); procedure CheckBoxShowPWFieldClick(Sender: TObject);
procedure EditUn7zaPWChange(Sender: TObject); procedure EditUn7zaPWChange(Sender: TObject);
procedure EditUn7zaPWKeyPress(Sender: TObject; var Key: char); procedure EditUn7zaPWKeyPress(Sender: TObject; var Key: char);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure LableListPath2Click(Sender: TObject); procedure LableListPath2Click(Sender: TObject);
procedure mpwexploreClick(Sender: TObject); procedure mpwexploreClick(Sender: TObject);
procedure mpwman1Click(Sender: TObject); procedure mpwman1Click(Sender: TObject);
procedure mpwman2Click(Sender: TObject); procedure mpwman2Click(Sender: TObject);
procedure mpwman3Click(Sender: TObject); procedure mpwman3Click(Sender: TObject);
procedure mpwman4Click(Sender: TObject); procedure mpwman4Click(Sender: TObject);
skipping to change at line 159 skipping to change at line 161
end; end;
procedure TFormPW.ButtonEditName3Click(Sender: TObject); procedure TFormPW.ButtonEditName3Click(Sender: TObject);
begin begin
if OpenDialogKF.Execute then if OpenDialogKF.Execute then
if OpenDialogKF.FileName<>'' then EditName3.Text:=OpenDialogKF.FileName if OpenDialogKF.FileName<>'' then EditName3.Text:=OpenDialogKF.FileName
else exit else exit
else exit; else exit;
end; end;
procedure TFormPW.CheckBoxIntPwClick(Sender: TObject);
begin
if CheckBoxIntPw.State=cbChecked then
begin
EditUn7zaPW.Text:='';
EditUn7zaPW1.Text:='';
PanelKF.Visible:=true;
EditUn7zaPW.Enabled:=false;
EditUn7zaPW1.Enabled:=false;
LableListPath2.Enabled:=false;
CheckBoxKeepPW.Enabled:=false;
CheckBoxShowPWField.Enabled:=false;
end
else
begin
EditUn7zaPW.Enabled:=true;
EditUn7zaPW1.Enabled:=true;
LableListPath2.Enabled:=true;
CheckBoxKeepPW.Enabled:=true;
CheckBoxShowPWField.Enabled:=true;
end;
FormPW.Refresh;
end;
procedure TFormPW.ButtonEditNamePwClick(Sender: TObject); procedure TFormPW.ButtonEditNamePwClick(Sender: TObject);
var p:tpoint; var p:tpoint;
begin begin
p.x:=buttoneditnamepw.left; p.x:=buttoneditnamepw.left;
p.y:=PanelPWOpen.top+buttoneditnamepw.top+buttoneditnamepw.height; p.y:=PanelPWOpen.top+buttoneditnamepw.top+buttoneditnamepw.height;
p:=clienttoscreen(p); p:=clienttoscreen(p);
popupmenupwman.popup(p.x,p.y); popupmenupwman.popup(p.x,p.y);
end; end;
procedure TFormPW.FormCreate(Sender: TObject); procedure TFormPW.FormCreate(Sender: TObject);
 End of changes. 3 change blocks. 
0 lines changed or deleted 26 lines changed or added

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