Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 17.02.2013
Сообщений: 23
1

Создать приложение, которое предназначено для просмотра текстовой и графической информации

13.03.2013, 19:33. Просмотров 542. Ответов 4
Метки нет (Все метки)


Я написал практически всю программу, не получается реализовать чтобы картинка открывалась в Timage, а текст в TRichEdit, кто может помочь исправить ошибки?
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
unit EgSDIApp;
//Создать приложение, которое предназначено для просмотра текстовой (*.txt) и графической(*.bmp) информации.
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtDlgs, ExtCtrls, Buttons, StdCtrls, ComCtrls;
 
type
  TFrmMain = class(TForm)
    Panel1: TPanel;
    SBCenter: TSpeedButton;
    SBStretch: TSpeedButton;
    SBLoad: TSpeedButton;
    Panel2: TPanel;
    ImgMain: TImage;
    Txtmain: TRichEdit;
    opndlgLoad: TOpenDialog;
    procedure SBLoadClick(Sender: TObject);
    procedure SBStretchClick(Sender: TObject);
    procedure SBCenterClick(Sender: TObject);
 
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  FrmMain: TFrmMain;
 
implementation
 
{$R *.dfm}
 
 
 
procedure TFrmMain.SBCenterClick(Sender: TObject);
begin
imgMain.Center:= SBCenter.Down;
end;
 
//проблема с этой процедурой, не знаю как правильно сделать
//procedure TFrmMain.SBLoadClick(Sender: TObject);
//begin
//if opndlgLoad.Execute then
//imgMain.Picture.LoadFromFile(opndlgLoad.FileName)
 
//else
//txtmain.lines.LoadFromFile(opndlgLoad.FileName)
//end;
 
 
procedure TFrmMain.SBStretchClick(Sender: TObject);
begin
imgMain.Stretch:= SBStretch.Down;
end;
 
 
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.03.2013, 19:33
Ответы с готовыми решениями:

Отображение и ввод текстовой и графической информации
С помощью какого компонента можно осуществить вышеозначенное? Спасибо

Создать приложение, которое предназначено для просмотра текстовой и графической информации
Помогите пожалуйста! Необходимо создать приложение, которое предназначено для просмотра текстовой...

Создать приложение, для просмотра текстовой и графической информации
Помогите пожалуйста! Необходимо создать приложение, которое предназначено для просмотра текстовой...

Создать отчёт для печати с текстовой, табличной и графической информацией
Нужно создать отчёт, имеющий текстовую, табличную и графическую информацию. Например таблицы -...

4
44 / 44 / 14
Регистрация: 12.02.2013
Сообщений: 152
13.03.2013, 21:13 2
Например самое простое:
Delphi
1
2
3
if ExtractFileExt(opndlgLoad.FileName)='.txt' then
    txtmain.lines.LoadFromFile(opndlgLoad.FileName) else
    imgMain.Picture.LoadFromFile(opndlgLoad.FileName)
0
0 / 0 / 0
Регистрация: 17.02.2013
Сообщений: 23
13.03.2013, 21:19  [ТС] 3
Цитата Сообщение от Shurvik Посмотреть сообщение
Например самое простое:
Delphi
1
2
3
if ExtractFileExt(opndlgLoad.FileName)='.txt' then
    txtmain.lines.LoadFromFile(opndlgLoad.FileName) else
    imgMain.Picture.LoadFromFile(opndlgLoad.FileName)
при таком условии не работает кнопка открытия.
0
44 / 44 / 14
Регистрация: 12.02.2013
Сообщений: 152
13.03.2013, 21:32 4
В каком смысле не работает ?
Delphi
1
2
3
4
5
6
if opndlgLoad.Execute then
begin
if ExtractFileExt(opndlgLoad.FileName)='.txt' then
    txtmain.lines.LoadFromFile(opndlgLoad.FileName) else
    imgMain.Picture.LoadFromFile(opndlgLoad.FileName)
end;
1
0 / 0 / 0
Регистрация: 17.02.2013
Сообщений: 23
13.03.2013, 21:40  [ТС] 5
Цитата Сообщение от Shurvik Посмотреть сообщение
В каком смысле не работает ?
Delphi
1
2
3
4
5
6
if opndlgLoad.Execute then
begin
if ExtractFileExt(opndlgLoad.FileName)='.txt' then
    txtmain.lines.LoadFromFile(opndlgLoad.FileName) else
    imgMain.Picture.LoadFromFile(opndlgLoad.FileName)
end;
Спасибо большое, все работает)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.03.2013, 21:40

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Передача графической/текстовой информации из стороннего окна
Здравствуйте! Каким образом можно осуществить передачу текстовой информации, например, из браузера...

Создать приложение для просмотра таблиц БД страхования и земельного кадастра
Подскажите пожалуйста как создать приложение для просмотра таблиц бд страхования и земельного...

Нужен пример графической или текстовой игры
буду должен!

Создать приложение - каталог медиафайлов, с различными функциями просмотра
Здравствуйте. Нужно сделать десктопное приложение - каталог медиа файлов, с различными функциями...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.