| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Из FileListBox в Ричедит

Whippi ©   (2002-10-29 14:39:00) 

Есть всем известный пример из поставки Дельфи как: Image Viewer,
там при клике из FileListBox в Image1 показывается картинка, она показывается вот таким образом: Image1.Picture.LoadFromFile(FileListBox1.Filename);,
а можно ли сделать так, чтоб при клике из FileListBox в Ричедите показывался текст, чтото типа Ричедит.Text.LoadFromFile(FileListBox1.Filename).
Может кто делал или знает, подскажите пожалуйста.

---

Whippi   (2002-10-29 17:04:00) [1]

Ах вот блин вчем дело,
спасибо за подсказку.

---

¤NoNaMe¤   (2002-10-29 16:27:00) [2]

условие
if (FileExt = ".htm") or (FileExt = ".html")
никогда не выполняется

---

Whippi   (2002-10-29 16:03:00) [3]

Да, прошу прощения Click :)) на клике по файлу в RichEdit ни чего не отображается. И никаких сообщений нет

---

Smithson   (2002-10-29 15:50:00) [4]

где не получается, что говорит?
и, наверное, не Enter, а Click?

---

Whippi   (2002-10-29 15:34:00) [5]

Блин не получается, подскажите в чем заковырка:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, SynEditHighlighter, SynHighlighterHtml, SynEdit, FileCtrl,
StdCtrls, ComCtrls;

type
TForm1 = class(TForm)
DriveComboBox1: TDriveComboBox;
DirectoryListBox1: TDirectoryListBox;
FileListBox1: TFileListBox;
RichEdit1: TRichEdit;
procedure FileListBox1Enter(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FileListBox1Enter(Sender: TObject);
var
FileExt: string[4];
begin
FileExt := AnsiUpperCase(ExtractFileExt(FileListBox1.Filename));
if (FileExt = ".htm") or (FileExt = ".html") then
begin
RichEdit1.Lines.LoadFromFile(FileListBox1.Filename);
end;
end;

end.

---

Smithson   (2002-10-29 15:04:00) [6]

Ричедит. Lines.LoadFromFile

---

Наверх