Скачать: CL | DM;

Экспортировать таблицу из Grid (DBGrid) в RichEdit   Найти похожие ветки 

← →
STANT ©   (2002-11-07 17:45) [0]

Задача такая. Нужно распечатать содержимое Grid на принтере в виде накладной (и т.п.), т.е. помимо таблицы должен присутствовать еще и некоторый тескт выше и ниже таблицы. Пробывал распечатывать, рисуя все на канве, но возникли проблемы с масштабированием. Идеально подходит RichEdit (пробывал вставлять таблицу из буфера, вырезанную в Word"е - получалось). Подскажите, pls, как сделать это в рантайме с Grid-ом.

---

← →
STANT ©   (2002-11-07 18:45) [1]

В чем проблема? Никто не понял, никто не знает или просто никто не хочет помочь?

---

← →
Alex4444444444   (2002-11-07 19:52) [2]

Strogo govorya, richedit ploho obrabatyvaet tablitsy (ya tozhe proboval: esli text dlinnyj, to poluchaetsya polnejshaya erunda).
No eto ne po teme. Po teme: vozmite wordpad, sdelajte tam tablitsu (skazhem, s polyami
11 12 13 ...
21 22 23
), spasite, otkrojte v textovom redactore: vot Vam i shablon.

---

← →
STANT ©   (2002-11-07 20:01) [3]

>ya tozhe proboval: esli text dlinnyj, to poluchaetsya erunda
Да вряд ли у меня текст будет длинный.

>vot Vam i shablon
А для чего мне шаблон?

Из clipboard"a RichEdit может получать таблицы и при чем совершенно правильно их отображать. Знать бы в каком формате таблица хранится в clipboard"е...

---

← →
Alex4444444444   (2002-11-07 20:10) [4]

> А для чего мне шаблон?
A vstav"te v nego Vash text (vmesto 11, 12, etc) i
MyRichEdit.PlainText := False;
MyRichEdit.Lines.Text := edited_template

V prochem, poslednee, kazhetsya, ne rabotaet. Nuzhno libo cherez stream, libo porobovat" SetTextStr ili SetText... (V obshem, derzajte!) Vot eto tochno srabotaet, no nemnogo krivovato:


var SS: TStringStream;
SS := TStringStream.Create(edited_template);
try
MyRichEdit.Lines.LoadFromStream(SS);
finally
SS.Free;
end;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c