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

jvcllaz: make JvItemViewer demo respect the last image folder stored by the OS.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6609 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-08-17 19:25:15 +00:00
parent e3e882ce59
commit 0113387c6f
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/jvcllaz/examples/JvItemViewer/MainFrm.pas
View File

@ -235,6 +235,8 @@ begin
// add colors to TJvOwnerDrawViewer
BuildColorList;
edDirectoryChange(nil);
{
if edDirectory.Text = '' then
begin
// this triggers the OnChange event
@ -243,6 +245,7 @@ begin
//if edDirectory.Text = '' then
edDirectory.Text := GetCurrentDir;
end;
}
pgViewersChange(nil);
end;