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

fpexif: Fix usage with Delphi 7. Update readme.txt.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9016 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-11-08 17:56:29 +00:00
parent 97d23a09e0
commit 2aa985a34c
25 changed files with 474 additions and 534 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpexif/delphi examples/metadata_viewer/MetadataViewer.dpr
View File

@@ -2,7 +2,7 @@ program MetadataViewer;
uses
Forms,
mdvMain in 'mdvMain.pas' {Form1};
mdvmain in 'mdvmain.pas' {Form1};
{$R *.res}

2
components/fpexif/delphi examples/metadata_viewer/MetadataViewer.dproj
View File

@@ -134,7 +134,7 @@
<DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="mdvMain.pas">
<DCCReference Include="mdvmain.pas">
<Form>Form1</Form>
</DCCReference>
<BuildConfiguration Include="Base">

68
components/fpexif/delphi examples/metadata_viewer/mdvmain.dfm
View File

@@ -2,8 +2,8 @@ object MainForm: TMainForm
Left = 430
Top = 141
Caption = 'Metadata viewer'
ClientHeight = 714
ClientWidth = 926
ClientHeight = 715
ClientWidth = 930
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -18,13 +18,13 @@ object MainForm: TMainForm
Left = 274
Top = 0
Width = 5
Height = 691
Height = 692
end
object ShellPanel: TPanel
Left = 0
Top = 0
Width = 274
Height = 691
Height = 692
Align = alLeft
BevelOuter = bvNone
TabOrder = 0
@@ -38,7 +38,7 @@ object MainForm: TMainForm
end
object PreviewImage: TImage
Left = 0
Top = 547
Top = 548
Width = 274
Height = 144
Hint = 'Thumbnail image embedded in the image file'
@@ -92,7 +92,7 @@ object MainForm: TMainForm
Left = 0
Top = 293
Width = 274
Height = 241
Height = 242
Hint = 'Select the image for which you want to see the metadata'
Align = alClient
Mask = '*.jpg;*.jpeg;*.jpe;*.tiff;*.tif'
@@ -102,7 +102,7 @@ object MainForm: TMainForm
end
object Panel4: TPanel
Left = 0
Top = 534
Top = 535
Width = 274
Height = 13
Align = alBottom
@@ -141,15 +141,15 @@ object MainForm: TMainForm
object Panel2: TPanel
Left = 279
Top = 0
Width = 647
Height = 691
Width = 651
Height = 692
Align = alClient
BevelOuter = bvNone
TabOrder = 2
object Splitter3: TSplitter
Left = 0
Top = 571
Width = 647
Top = 572
Width = 651
Height = 5
Cursor = crVSplit
Align = alBottom
@@ -157,7 +157,7 @@ object MainForm: TMainForm
object Panel3: TPanel
Left = 0
Top = 0
Width = 647
Width = 651
Height = 21
Align = alTop
AutoSize = True
@@ -174,22 +174,22 @@ object MainForm: TMainForm
ParentColor = False
end
end
object PageControl1: TPageControl
object PageControl: TPageControl
Left = 0
Top = 21
Width = 647
Height = 550
Width = 651
Height = 551
ActivePage = PgXMP
Align = alClient
TabOrder = 1
OnChange = PageControl1Change
OnChange = PageControlChange
object PgMetadata: TTabSheet
Caption = 'Meta data'
object TagListView: TListView
Left = 0
Top = 0
Width = 639
Height = 503
Width = 643
Height = 504
Align = alClient
Columns = <
item
@@ -219,8 +219,8 @@ object MainForm: TMainForm
end
object Panel1: TPanel
Left = 0
Top = 503
Width = 639
Top = 504
Width = 643
Height = 19
Align = alBottom
AutoSize = True
@@ -245,7 +245,7 @@ object MainForm: TMainForm
object Splitter4: TSplitter
Left = 0
Top = 150
Width = 639
Width = 643
Height = 3
Cursor = crVSplit
Align = alTop
@@ -253,7 +253,7 @@ object MainForm: TMainForm
object XMPListView: TListView
Left = 0
Top = 0
Width = 639
Width = 643
Height = 150
Align = alTop
Columns = <
@@ -271,8 +271,8 @@ object MainForm: TMainForm
object XMPSynEdit: TMemo
Left = 0
Top = 153
Width = 639
Height = 335
Width = 643
Height = 336
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -284,8 +284,8 @@ object MainForm: TMainForm
end
object Panel6: TPanel
Left = 0
Top = 488
Width = 639
Top = 489
Width = 643
Height = 34
Align = alBottom
BevelOuter = bvNone
@@ -325,8 +325,8 @@ object MainForm: TMainForm
object Image: TImage
Left = 0
Top = 0
Width = 639
Height = 522
Width = 643
Height = 523
Align = alClient
Center = True
Proportional = True
@@ -336,16 +336,16 @@ object MainForm: TMainForm
end
object Messages: TMemo
Left = 0
Top = 576
Width = 647
Top = 577
Width = 651
Height = 90
Align = alBottom
TabOrder = 2
end
object DateTimePanel: TPanel
Left = 0
Top = 666
Width = 647
Top = 667
Width = 651
Height = 25
Align = alBottom
AutoSize = True
@@ -382,8 +382,8 @@ object MainForm: TMainForm
end
object StatusBar1: TStatusBar
Left = 0
Top = 691
Width = 926
Top = 692
Width = 930
Height = 23
Panels = <
item

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

@@ -25,7 +25,7 @@ type
Label1: TLabel;
LblChangeDate: TLabel;
Messages: TMemo;
PageControl1: TPageControl;
PageControl: TPageControl;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
@@ -56,7 +56,7 @@ type
procedure CbShowTagIDsChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure PageControlChange(Sender: TObject);
(*
procedure ShellListViewSelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
@@ -443,7 +443,7 @@ begin
end;
end;
if PageControl1.ActivePage = PgImage then begin
if PageControl.ActivePage = PgImage then begin
crs := Screen.Cursor;
try
Screen.Cursor := crHourglass;
@@ -471,7 +471,6 @@ var
i, W, H, L, T: Integer;
rct: TRect;
s: String;
b: Boolean;
begin
ini := TIniFile.Create(CalcIniName);
try
@@ -489,7 +488,7 @@ begin
SetBounds(L, T, W, H);
s := ini.ReadString('MainForm', 'Path', '');
if s <> '' then begin
if (s <> '') and FileExists(s) then begin
ShellTreeView.Directory := s;
ShellListView.Directory := s;
end;
@@ -500,6 +499,8 @@ begin
h := ini.ReadInteger('MainForm', 'TreeHeight', 0);
if h <> 0 then ShellTreeView.Height := h;
PageControl.ActivePageIndex := ini.ReadInteger('MainForm', 'ActivePageIndex', 0);
for i:=0 to TagListView.Columns.Count-1 do begin
w := ini.ReadInteger('TagList', 'ColWidth'+IntToStr(i), 0);
if w <> 0 then
@@ -529,7 +530,7 @@ begin
end;
end;
procedure TMainForm.PageControl1Change(Sender: TObject);
procedure TMainForm.PageControlChange(Sender: TObject);
var
crs: TCursor;
begin
@@ -566,6 +567,7 @@ begin
ini.WriteString('MainForm', 'Path', ShellTreeView.Directory);
ini.WriteInteger('MainForm', 'LeftPanelWidth', ShellPanel.Width);
ini.WriteInteger('MainForm', 'TreeHeight', ShellTreeView.Height);
ini.WriteInteger('MainForm', 'ActivePageIndex', PageControl.ActivePageIndex);
for i:=0 to TagListView.Columns.Count-1 do
ini.WriteInteger('TagList', 'ColWidth'+IntToStr(i), TagListView.Columns[i].Width);
@@ -656,7 +658,6 @@ const
);
var
lTag: TTag;
s: String;
tagID: TTagIDRec;
begin
if Selected then begin
@@ -679,8 +680,6 @@ begin
end;
procedure TMainForm.UpdateCaption;
var
fn: String;
begin
if FImgInfo <> nil then
FileNameInfo.Caption := Format(