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