BorlandTalk.com

dave · Guest

I am writing a component. One of the properties is SaveFileName. I declared
it as a TFilename. But in the object inspector i cannot get it to display
the open file dialog to select the file. My code is as follows:

unit HL7Converter;
{$R HL7CONVERTER.dcr}
interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
THL7Converter = class(TComponent)
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;

private
FSegmentID : String;
FFieldNumbers : TStringList;
FHL7Filename : string;
FSaveFileName : TFileName;
FOutputType : string;
FOutputDelim : string;
FUseHL7 : boolean;
FAllSegments : boolean;

procedure SetSegmentID(Value: string);
procedure SetSaveFileName(Value : TFileName);
Procedure SetHL7Filename(value : string);
procedure SetOutputType(Value : string);
procedure SetOutputDelim(Value : string);
procedure SetUseHL7(Value : Boolean);
procedure SetAllSegments(Value : Boolean);
procedure SetFieldNumbers(Value : TStringList);
protected
{ Protected declarations }
public
{ Public declarations }
published
property SegmentID : string read FSegmentID write SetSegmentID;
property SaveFileName : TFileName read FSaveFileName write
SetSaveFileName;
property HL7Filename : string read FHL7Filename write SetHL7Filename;
property OutputType : string read FOutputType write SetOutputType;
property OutputDelimiter : string read FOutputDelim write
SetOutputDelim;
property UseHL7Format : Boolean read FUseHL7 write SetUseHL7 default
False;
property AllSegments : Boolean read FAllSegments write SetAllSegments
default false;
property FieldNumbers : TStringList read FFieldNumbers write
SetFieldNumbers;
end;

procedure Register;

implementation

procedure Register;
begin

RegisterComponents('DLB Components', [THL7Converter]);

end;

{ THL7Converter }

constructor THL7Converter.Create(AOwner: TComponent);
begin
inherited;
FFieldNumbers := TStringList.Create;
end;

destructor THL7Converter.Destroy;
begin
inherited;
FFieldNumbers.Destroy;
end;

procedure THL7Converter.SetAllSegments(Value: Boolean);
begin
FAllSegments := Value;
end;

procedure THL7Converter.SetFieldNumbers(Value: TStringList);
begin
if Value <> nil then begin
FFieldNumbers.Assign(Value);
end;
end;

procedure THL7Converter.SetHL7Filename(value: string);
var
MyOpenDLG :TOpenDialog;
begin
MyOpenDLG := TOpenDialog.Create(self);
MyOpenDLG.Filter := 'HL7 Files (*.hl7)|*.hl7';
if MyOpenDLG.Execute then begin
value := MyOpenDLG.FileName;
FHL7Filename := value;
end;
end;

procedure THL7Converter.SetOutputDelim(Value: string);
begin
FOutputDelim := Value;
end;

procedure THL7Converter.SetOutputType(Value: string);
begin
FOutputType := Value;
end;

procedure THL7Converter.SetSaveFileName(Value: TFileName);

begin

FSaveFileName := value;

end;

procedure THL7Converter.SetSegmentID(Value: string);
begin
FSegmentID := Value;
end;

procedure THL7Converter.SetUseHL7(Value: Boolean);
begin
FUseHL7 := Value;
end;

end.

What am i missing?

Thanks in advance,
Dave

Ignacio Vazquez · Guest

"dave" <dbracken (AT) infonowsolutions (DOT) com> wrote in message
[email]3f97fc39 (AT) newsgroups (DOT) borland.com[/email]...

dave · Guest

Ok. I originally had it declared as a string, and just called an opendialog
in my setsavefilename procedure. But this method would show the multi-line
caption / text editor. Is there a way to just suppress that? So that
clicking the property in the object inspector opens just the open dialog?

If not, how do i add the property editor to my component? (sorry, have never
done this before)

Thanks again,
Dave

"Ignacio Vazquez" <ivazquezATorioncommunications.com> wrote

Ignacio Vazquez · Guest

"dave" <dbracken (AT) infonowsolutions (DOT) com> wrote in message
[email]3f981120 (AT) newsgroups (DOT) borland.com[/email]...