VPF::Текст в Memo в две колонки - Форум программистов

wind1

Дата 25.5.2008, 23:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 29.6.2007

Репутация: нет
Всего: нет

Есть компонент TMemo. В него нужно записать текст в две колонки. Как это лучше сделать?

Poseidon

Дата 25.5.2008, 23:21 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

1) Использовать другой компонент.
2) Табулировать в ручную
3) Использовать второй Мемо, поигравшись с бордюром так, что бы было ошюшение единого компонента
4) Написать свой компонент на основе ТМемо, реализующий эту возможность.

Варианты расставлены в порядке целесообразности. smile

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

wind1

Дата 25.5.2008, 23:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 29.6.2007

Репутация: нет
Всего: нет

Цитата(Poseidon @ 25.5.2008, 23:21

)

1) Использовать другой компонент.

Какой, например?

Вот для листбокса я нашел как это сделать:

Код


procedure TForm1.Button1Click(Sender: TObject);
 const
   // The maximum number of Tabs 
  // Die Anzahl der maximal aufretenen Tabs eintragen 
  MAX_TABS = 4;
   Tab = #9;
 var
   Tabulators: array[0..MAX_TABS] of Integer;
 begin
   { Set the Tabulator Widths / Tabulatorweiten festlegen}
   Tabulators[0] := 70;
   Tabulators[1] := 120;
   Tabulators[2] := 100;
   Tabulators[3] := 80;
   Listbox1.TabWidth := 1;
   { Set the Tabulators / Tabulatoren setzen }
   SendMessage(ListBox1.Handle, LB_SETTABSTOPS, MAX_TABS, Longint(@Tabulators));
   { Add some Items / Items hinzufugen.}
   Listbox1.Items.Add('Peter' + Tab + 'Meier' + Tab + '1234-56' + Tab + 'Otzlingen');
   Listbox1.Items.Add('Johann Jones' + Tab + 'Krauter' + Tab + '123-45');
 end;

А как для мемо то же самое сделать? Я попробовал как в этом примере - не получается.

Это сообщение отредактировал(а) wind1 - 25.5.2008, 23:39

aktuba

Дата 26.5.2008, 00:35 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Цитата(wind1 @ 26.5.2008, 00:38

)

Какой, например?

TRichView, TWebBrowser и т.д... Их куча. Но принцип практически всегда одинаков: или использование табов или таблицы с невидимой границей. Кстати, можно попробовать и в TRichEdit использовать таблицы, но у меня такого опыта не было.

--------------------

mr.Anderson

Дата 26.5.2008, 00:39 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 3
Всего: 128

Имхо, либо второй TMemo, либо TWebBrowser. Второе все же проще.

--------------------

wind1

Дата 26.5.2008, 00:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 29.6.2007

Репутация: нет
Всего: нет

Цитата(mr.Anderson @ 26.5.2008, 00:39

)

Имхо, либо второй TMemo, либо TWebBrowser. Второе все же проще.

Тогда покажите, пожалуйста, пример, как записать текст в две колонки в TWebBrowser.
И если можно, покажите, как распечатать содержимое компонента TWebBrowser.

aktuba

Дата 26.5.2008, 02:25 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Цитата(wind1 @ 26.5.2008, 01:54

)

Тогда покажите, пожалуйста, пример, как записать текст в две колонки в TWebBrowser.

Код


WebBrowser.Navigate(''about:<table><tr><td>Первая колонка</td><td>Вторая колонка</td></tr></table>'');

Цитата(wind1 @ 26.5.2008, 01:54

)

И если можно, покажите, как распечатать содержимое компонента TWebBrowser.

Код


procedure TForm1.Button2Click(Sender: TObject); 
var 
  vaIn, vaOut: OleVariant; 
begin 
  WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, 
    vaIn, vaOut); 
end;

Подробнее про печать тут и тут.

--------------------

wind1

Дата 26.5.2008, 11:36 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 29.6.2007

Репутация: нет
Всего: нет

Цитата(aktuba @ 26.5.2008, 02:25)

Цитата(wind1 @ 26.5.2008, 01:54

)

Тогда покажите, пожалуйста, пример, как записать текст в две колонки в TWebBrowser.

Код


WebBrowser.Navigate(''about:<table><tr><td>Первая колонка</td><td>Вторая колонка</td></tr></table>'');

Не работает. После вставки этой строки в код компилятор выдает ошибки:

Цитата

[Error] Unit1.pas(29): ')' expected but identifier 'about' found
[Error] Unit1.pas(29): Expression expected but '<' found
[Error] Unit1.pas(29): Illegal character in input file: 'в' ($E2)
[Error] Unit1.pas(29): Expression expected but '<' found
[Error] Unit1.pas(29): Illegal character in input file: 'о' ($EE)
[Error] Unit1.pas(29): Illegal character in input file: 'а' ($E0)
[Error] Unit1.pas(29): Expression expected but '<' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

29 строка - вставленная строка.

Это сообщение отредактировал(а) wind1 - 26.5.2008, 11:37

aktuba

Дата 26.5.2008, 22:39 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

А если лишние кавычки убрать? smile

Неужели просто код уже посмотреть нельзя???

--------------------

wind1

Дата 27.5.2008, 14:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 29.6.2007

Репутация: нет
Всего: нет

Спасибо, лишние кавычки убрал - заработало. Но заработал только вывод первых двух слов:
WebBrowser1.Navigate('about:<table><tr><td>Слово первой колонки 1</td><td>Слово второй колонки 1</td></tr></table>');
Когда я попытался вывести вторые два слова:
WebBrowser1.Navigate('about:<table><tr><td>Слово первой колонки 2</td><td>Слово второй колонки 2</td></tr></table>');
они перезаписали первые два слова.
Покажите, пожалуйста, вывод двух колонок, состоящих из нескольких строк.

aktuba

Дата 27.5.2008, 15:01 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Цитата(wind1 @ 27.5.2008, 15:53

)

Покажите, пожалуйста, вывод двух колонок, состоящих из нескольких строк.

Код


WebBrowser1.Navigate('about:<table><tr><td>Первая строка в первой колонке</td><td>Первая строка во второй колонке</td></tr><tr><td>Вторая строка в первой колонке</td><td>Вторая строка во второй колонке</td></tr></table>');

В кратце, используешь html и можешь творить все что угодно.

--------------------

wind1

Дата 29.5.2008, 19:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 29.6.2007

Репутация: нет
Всего: нет

Цитата(aktuba @ 27.5.2008, 15:01

)

В кратце, используешь html и можешь творить все что угодно.

Заполняю таким образом, как вы показали, таблицу из 3-х столбцов. Но происходит какая-то странная вещь: TWebBowser никак не хочет выводить таблицу, если в ней больше 6-ти строк. Если число строк меньше или равно 6-ти, то нормально выводит. Ничего не могу понять.

aktuba

Дата 29.5.2008, 20:13 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Цитата(wind1 @ 29.5.2008, 20:28

)

Не может такого быть. Я таким образом выводил сотни строк.

--------------------

wind1

Дата 29.5.2008, 22:01 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 29.6.2007

Репутация: нет
Всего: нет

Вот и я думаю, странно это как-то. Пишет "не могу отобразить страницу" и всё.

Poseidon

Дата 30.5.2008, 16:06 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(wind1 @ 29.5.2008, 22:01

)

Вот и я думаю, странно это как-то. Пишет "не могу отобразить страницу" и всё.

Код показывай, каким выводить пытаешься.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »