pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpexif: Adapt to better work in Delphi.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7908 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-11-29 13:58:23 +00:00
parent cef2fbba3b
commit 5979de2a61
19 changed files with 500 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpexif/delphi examples/metadata_viewer/mdvmain.pas
View File

@ -43,6 +43,7 @@ type
Splitter1: TSplitter;
Splitter2: TSplitter;
DriveComboBox1: TDriveComboBox;
Panel5: TPanel;
procedure BtnChangeDateClick(Sender: TObject);
procedure CbShowTagIDsChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
@ -61,6 +62,7 @@ type
procedure ShellTreeViewChange(Sender: TObject);
procedure ShellListViewChange(Sender: TObject);
procedure DriveComboBox1Change(Sender: TObject);
procedure Panel5Resize(Sender: TObject);
private
FFileName: String;
FImgInfo: TImgInfo;
@ -463,6 +465,11 @@ begin
end;
end;
procedure TMainForm.Panel5Resize(Sender: TObject);
begin
DriveCombobox1.Width := Panel5.Width;
end;
procedure TMainForm.SaveToIni;
var
ini: TCustomIniFile;