ReSQL.ru
     
powered by simpleCommunicator - 2.0.49     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Поменять шрифт в RTE
11 сообщений из 11, страница 1 из 1
Поменять шрифт в RTE
    #33404895
Фотография Ivan195
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ivan195
Участник
Хелп ми, народ!!

Подскажите как из скрипта можно поменять шрифт и размер шрифта в тексте RichTextEdit. С помощью его тулбара поменять можно, а вот из скрипта.... Функции чета такой я не нашел у него.....
Например нужно поменять шрифт на 11 размер Courier New
...
Рейтинг: 0 / 0
29.11.2005, 09:39
| Ответить | Цитировать | Написать  
Поменять шрифт в RTE
    #33406769
Фотография Филипп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Филипп
Участник
Change the RTF font and font size
...
Рейтинг: 0 / 0
29.11.2005, 18:13
| Ответить | Цитировать | Написать  
Поменять шрифт в RTE
    #33407857
Фотография Ivan195
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ivan195
Участник
Спасибо!
а есть возможность куда-нибудь этот архив положить в другое место, чтоб я смог скачать. а то там надо регистрироваться, а прокся моя https не пропускает.

Заранее благодарен
...
Рейтинг: 0 / 0
30.11.2005, 11:25
| Ответить | Цитировать | Написать  
Поменять шрифт в RTE
    #33409747
Фотография Филипп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Филипп
Участник
Вот
...
Рейтинг: 0 / 0
30.11.2005, 20:30
| Ответить | Цитировать | Написать  
Поменять шрифт в RTE
    #33410896
Фотография Ivan195
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ivan195
Участник
Огромное спасибо!
...
Рейтинг: 0 / 0
01.12.2005, 13:15
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Поменять шрифт в RTE
    #35692173
AIS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AIS
Участник
ФилиппВот
Скачал пример. Вариант для Р10 мигрировал в Р10.5. Не работает. В чем может быть причина?
...
Рейтинг: 0 / 0
04.12.2008, 03:57
| Ответить | Цитировать | Написать  
Поменять шрифт в RTE
    #35692193
Фотография Филипп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Филипп
Участник
В 10.5 ДРУГОЙ RTEControl (TxTextControl)
По моему на Sybase Code Exchange есть подобные примеры для нового...
...
Рейтинг: 0 / 0
04.12.2008, 05:47
| Ответить | Цитировать | Написать  
Поменять шрифт в RTE
    #35699373
AIS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AIS
Участник
ФилиппВ 10.5 ДРУГОЙ RTEControl (TxTextControl)
По моему на Sybase Code Exchange есть подобные примеры для нового...
К сожалению не нашёл под РВ10.5. Поэтому пробую редактировать пример.
В примере поменял:
Код: plaintext
constant	string	classname =  "PBTxTextControl"//"PB100RichTextEdit"
Вроде всё работает кроме основных функции:
Код: plaintext
1.
2.
3.
4.
function integer GETCOLORLOGFONT( ulong hwnd, ulong msg, ulong wparm, &
	ref s_colorlogfont clf ) library 'user32.dll' alias for "SendMessageW"
function integer SETCOLORLOGFONT( ulong hwnd, ulong msg, ulong wparm, &
	s_colorlogfont clf ) library 'user32.dll' alias for "SendMessageW"
Может что-то подскажите?
...
Рейтинг: 0 / 0
08.12.2008, 10:58
| Ответить | Цитировать | Написать  
Поменять шрифт в RTE
    #35701915
AIS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AIS
Участник
ФилиппВ 10.5 ДРУГОЙ RTEControl (TxTextControl)
По моему на Sybase Code Exchange есть подобные примеры для нового...
Нашёл это:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
long  WM_USER =  1024 
long  TX_ZOOM = WM_USER +  1006 
ulong       hWin

rte_1.SetRedraw( FALSE )
hWin = Handle ( this )
hWin = FindWindowEx ( hWin,  0 , "PBTxTextControl",  0  )
hWin = FindWindowEx ( hWin,  0 , "AfxOleControl42u",  0  )
hWin = FindWindowEx ( hWin,  0 , "TX11P",  0  )
SendMessage ( hWin, TX_ZOOM,  200 ,  0  )        // Where  200  is the zoom factor
rte_1.SetRedraw( TRUE )
ZOOM работает.
А вот шрифт поменять значений для SendMessage не нашёл.
Точнее есть значения:
Код: plaintext
WM_GETFONT =  49 , WM_SETFONT =  48
но что-то не получается.
Как всё-таки программно поменять шрифт?
...
Рейтинг: 0 / 0
09.12.2008, 11:01
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Поменять шрифт в RTE
    #38896499
Механик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Механик
Участник
Хотелось бы поднять тему. 10.5 для Win8, как поменять шрифт?
...
Рейтинг: 0 / 0
05.03.2015, 19:05
| Ответить | Цитировать | Написать  
Поменять шрифт в RTE
    #38909748
Механик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Механик
Участник
Отработал идею тулбара с ограниченным списком шрифтов. Идея вставлять через PasteRTF идентификатор нового шрифта. Например:

integer li_size = 8, li_fontindex=0
string ls_font_description

ls_font_description = '{\f'+string(li_fontindex)+'\fswiss\fcharset204\fprq2 Arial;}'

ls_past_scr = "{\rtf1\ansi\ansicpg1251\uc1\deff0{\fonttbl"+ls_font_description+&
"}\deftab1134\paperw12240\paperh15840\margl0\margt0\margr0\margb0\pard\itap0\plain\f"+string(li_fontindex)+"\fs"+string(li_size)+"}"
irte_control.PasteRTF(ls_past_scr,Detail!)

Кажется, что по горбатому...
...
Рейтинг: 0 / 0
19.03.2015, 13:11
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Поменять шрифт в RTE
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=15&fpage=9&tid=1335280]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 84ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 2ms
others: 234ms
total:  417ms
созд. / загр.: 417ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]