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

tvplanit: Hide sound finder btn in event editor if OnPlaySound event handler is not assigned in non-windows systems.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5005 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-19 17:34:56 +00:00
parent eb245fb18d
commit d733f1bd5e
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/tvplanit/source/vpevnteditdlg.pas
View File

@ -619,12 +619,11 @@ end;
procedure TDlgEventEdit.FormShow(Sender: TObject); procedure TDlgEventEdit.FormShow(Sender: TObject);
begin begin
PositionControls; PositionControls;
(*
{$IFDEF LCL}
ScaleDPI(Self, DesigntimeDPI);
{$ENDIF}
*)
DescriptionEdit.SetFocus; DescriptionEdit.SetFocus;
{$IFNDEF MSWINDOWS}
if not Assigned(FDatastore.OnPlaySound) then
SoundFinderBtn.Hide;
{$ENDIF}
end; end;
{=====} {=====}

3
components/tvplanit/source/vpwavdlg.pas
View File

@ -166,7 +166,8 @@ begin
Label4.Caption := RSNothingToSelectFrom; Label4.Caption := RSNothingToSelectFrom;
if DingPath = '' then begin if DingPath = '' then begin
CBDefault.Checked := true; CBDefault.Checked := true;
ShellTreeView.Path := MediaFolder; if (MediaFolder <> '') and DirectoryExists(MediaFolder) then
ShellTreeView.Path := MediaFolder;
end else end else
if FileExists(DingPath) then begin if FileExists(DingPath) then begin
ShellTreeview.Path := ExtractFileDir(DingPath); ShellTreeview.Path := ExtractFileDir(DingPath);