Форум: "Основная";
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];
ВнизProperty FileName Найти похожие ветки
← →
Eduard (2001-12-27 18:20) [8]Не прицеплен. Даже если бы и был прицеплен, возникает другой вопрос: как к диалогу выбора прицепить фильтры.
Короче, сделал я примерно так:
type
THighRichEdit = class(TRichEdit)
private
FHighlightSyntax: Boolean;
FReservedWords: TStrings;
FFileName: string;
procedure SetHighlightSyntax(const Value: Boolean);
procedure SetReservedWords(const Value: TStrings);
procedure SetFilename(const Value: string);
protected
{ Protected declarations }
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property FileName: string read FFileName write SetFileName;
property HighlightSyntax: Boolean read FHighlightSyntax write SetHighlightSyntax default False;
property ReservedWords: TStrings read FReservedWords write SetReservedWords;
end;
TTextFilePropertyEditor = class(TPropertyEditor)
procedure Edit; override;
end;
procedure Register;
....
implementation
procedure Register;
begin
RegisterComponents("Samples", [THighRichEdit]);
RegisterPropertyEditor(TypeInfo(THighRichEdit), THighRichEdit, "FileName", TTextFilePropertyEditor);
end;
{ THighRichEdit }
constructor THighRichEdit.Create(AOwner: TComponent);
var I: Integer;
begin
inherited Create(AOwner);
Width := 180;
Height := 300;
ParentColor := False;
...
end;
destructor THighRichEdit.Destroy;
begin
inherited Destroy;
...
end;
procedure THighRichEdit.SetFilename(const Value: string);
begin
FFileName := Value;
end;
...
...
{ TTextFilePropertyEditor }
procedure TTextFilePropertyEditor.Edit;
var OpenDialog: TOpenDialog;
begin
try
OpenDialog := TOpenDialog.Create(Application);
OpenDialog.Filter := "
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c