Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как быстро добавить картинку в Richedit [D7]


Medoed ©   (2012-12-09 07:59:00) 

Как быстро добавить jрg картинку в Richedit, причем чтобы она приняла размер не вылезающий за рамки Richedit?


KilkennyCat   (2012-12-09 22:22:00) [1]

да. я неправ.

В качестве извинений, я готов правильно ответить, но для этого мне хотелось бы знать: имеет ли в виду автор, что картинку надо добавить в rtf-данные, откуда (файл, буфер, ресурсы, драг и т.д), и что значит быстро?


Игорь Шевченко   (2012-12-09 21:32:00) [2]

KilkennyCat ©   (09.12.12 15:27) [1]

"Грешно смеяться над больными людьми" (из к/ф 'Кавказская пленница')


Medoed   (2012-12-09 18:33:00) [3]

Спасибо сейчас попробуем


kilkennycat   (2012-12-09 15:28:00) [4]

о, забыл: в самом начале bmp создать, в конце - уничтожить.


KilkennyCat   (2012-12-09 15:27:00) [5]

Var
 bmp : tbitmap;
begin
 bmp.loadfromfile(...
 if bmp.width > richedit.clientwidth then
    bmp.width := richedit.clientwidth; //(.clientrect.left + .clientrect.right
 bitblt(richedit.canvas.handle, 0 ,0 , bmp.width, bmp.height, bmp.canvas.handle, 0, 0, srcopy);
end;

быстро. размер не вылазеит по ширине, по высоте сам сделаешь.


Наверх

Титульная страница Поиск, карта сайта Написать письмо