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

tvplanit: Add SelectDirectoryDialog as property editor of datastore's MediaFolder.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4755 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-15 10:48:58 +00:00
parent 30b2533bf4
commit 7949f19317
1 changed files with 57 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
components/tvplanit/source/vpreg.pas
View File

@ -109,6 +109,14 @@ type
procedure SetValue(const Value: string); override;
end;
TVpMediaFolderProperty = class(TStringProperty)
public
function GetAttributes: TPropertyAttributes; override;
function GetValue: string; override;
procedure Edit; override;
procedure SetValue(const Value: string); override;
end;
procedure Register;
implementation
@ -344,7 +352,7 @@ begin
dlg.InitialDir := ds.MediaFolder
else
dlg.InitialDir := ExtractFilePath(ds.DefaultEventSound);
if OD.Execute then
if dlg.Execute then
ds.DefaultEventSound := dlg.FileName;
finally
dlg.Free;
@ -355,6 +363,50 @@ begin
end;
{ TVpMediaFolderProperty }
function TVpMediaFolderProperty.GetAttributes: TPropertyAttributes;
begin
Result := [paDialog];
end;
function TVpMediaFolderProperty.GetValue: string;
begin
Result := GetStrValue;
end;
procedure TVpMediaFolderProperty.SetValue(const Value: string);
begin
SetStrValue(Value);
end;
procedure TVpMediaFolderProperty.Edit;
var
dlg: TSelectDirectoryDialog;
ds: TVpCustomDatastore;
begin
ds := GetComponent(0) as TVpCustomDatastore;
if Assigned(ds) then
begin
dlg := TSelectDirectoryDialog.Create(nil);
try
dlg.Filter := 'Wav files (*.wav)|*.wav|All files (*.*)|*.*';
dlg.FilterIndex := 1;
dlg.DefaultExt := '*.wav';
if ds.MediaFolder <> '' then
dlg.InitialDir := ds.MediaFolder
else
dlg.InitialDir := ExtractFilePath(ds.DefaultEventSound);
if dlg.Execute then
ds.DefaultEventSound := dlg.FileName;
finally
dlg.Free;
end;
end
else
inherited;
end;
{*** component registration ***}
procedure Register;
@ -421,7 +473,10 @@ begin
RegisterPropertyEditor(TypeInfo(String), TVpCustomDatastore,
'DefaultEventSound', TVpWavFileProperty);
RegisterPropertyEditor (TypeInfo (TDateTime),
RegisterPropertyEditor(TypeInfo(String), TVpCustomDatastore,
'MediaFolder', TVpMediaFolderProperty);
RegisterPropertyEditor (TypeInfo (TDateTime),
TVpPrintPreview,
'StartDate',
TVpDateProperty);