Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
ВнизИз FileListBox в Ричедит Найти похожие ветки
← →
Whippi (2002-10-29 14:39) [0]Есть всем известный пример из поставки Дельфи как: Image Viewer,
там при клике из FileListBox в Image1 показывается картинка, она показывается вот таким образом:Image1.Picture.LoadFromFile(FileListBox1.Filename);
,
а можно ли сделать так, чтоб при клике из FileListBox в Ричедите показывался текст, чтото типаРичедит.Text.LoadFromFile(FileListBox1.Filename)
.
Может кто делал или знает, подскажите пожалуйста.
← →
Smithson (2002-10-29 15:04) [1]Ричедит. Lines.LoadFromFile
← →
Whippi (2002-10-29 15:34) [2]Блин не получается, подскажите в чем заковырка:
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:50) [3]где не получается, что говорит?
и, наверное, неEnter
, аClick
?
← →
Whippi (2002-10-29 16:03) [4]Да, прошу прощения Click :)) на клике по файлу в RichEdit ни чего не отображается. И никаких сообщений нет
← →
¤NoNaMe¤ (2002-10-29 16:27) [5]условие
if (FileExt = ".htm") or (FileExt = ".html")
никогда не выполняется
← →
Whippi (2002-10-29 17:04) [6]Ах вот блин вчем дело,
спасибо за подсказку.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c