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

tvplanit: Add standard file dialog as property editor for datastore's DefaultEventSound

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

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

@ -27,9 +27,7 @@
{* ***** END LICENSE BLOCK ***** *}
{$I Vp.INC} { Compiler Version Defines }
//{$IFNDEF LCL}
{$R VpREG.RES} { Palette Glyphs }
//{$ENDIF}
unit VpReg;
{Registration unit for the Visual PlanIt design-time interface}
@ -38,7 +36,7 @@ interface
uses
{$IFDEF LCL}
LMessages,LCLProc,LCLType,LCLIntf,
LMessages, LCLProc, LCLType, LCLIntf,
{$ELSE}
Windows,
{$ENDIF}
@ -103,13 +101,21 @@ type
TVpLocalizeFileNameProperty = class (TVpGenericFileNameProperty)
end;
TVpWavFileProperty = class(TStringProperty)
public
function GetAttributes: TPropertyAttributes; override;
function GetValue: string; override;
procedure Edit; override;
procedure SetValue(const Value: string); override;
end;
procedure Register;
implementation
uses
// DbTables, { VCL - BDE runtime unit }
VpWavPE, { Wav File Finder - Property Editor }
// VpWavPE, { Wav File Finder - Property Editor }
{ Component Units }
VpBase, { Base classes for Vp }
@ -303,6 +309,53 @@ begin
end;
end;
{ TVpWavFileProperty }
function TVpWavFileProperty.GetAttributes: TPropertyAttributes;
begin
Result := [paDialog];
end;
function TVpWavFileProperty.GetValue: string;
begin
Result := GetStrValue;
end;
procedure TVpWavFileProperty.SetValue(const Value: string);
begin
SetStrValue(Value);
end;
procedure TVpWavFileProperty.Edit;
var
dlg: TOpenDialog;
ds: TVpCustomDatastore;
begin
ds := GetComponent(0) as TVpCustomDatastore;
if Assigned(ds) then
begin
dlg := TOpenDialog.Create(nil);
try
dlg.Filter := 'Wav files (*.wav)|*.wav|All files (*.*)|*.*';
dlg.FilterIndex := 1;
dlg.DefaultExt := '*.wav';
if ds.DefaultEventSound = '' then
dlg.InitialDir := ds.MediaFolder
else
dlg.InitialDir := ExtractFilePath(ds.DefaultEventSound);
if OD.Execute then
ds.DefaultEventSound := dlg.FileName;
finally
dlg.Free;
end;
end
else
inherited;
end;
{*** component registration ***}
procedure Register;
begin
@ -365,6 +418,9 @@ begin
'DefaultEventSound', TWavFileProperty);
}
RegisterPropertyEditor(TypeInfo(String), TVpCustomDatastore,
'DefaultEventSound', TVpWavFileProperty);
RegisterPropertyEditor (TypeInfo (TDateTime),
TVpPrintPreview,
'StartDate',