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

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

Как добраться до канвы memo ;и richedit? [D6, Win95/98, WinXP]

BOBBY ©   (2002-11-16 16:07:00) 

Надо порисовать на них немного. :)

---

bibby   (2002-11-17 13:41:00) [1]

Или у них отдельная канва?

---

bobby   (2002-11-16 23:21:00) [2]

Жаль, что это не срабатывает на beweledges
Можно это решить?

---

bobby   (2002-11-16 17:40:00) [3]

Спасибо!

---

TTCustomDelphiMaster   (2002-11-16 17:17:00) [4]

procedure TForm1.Button1Click(Sender: TObject);
var
cv: TCanvas;
begin
cv := TCanvas.Create;
cv.Handle := GetDC(Memo1.Handle);
cv.DrawFocusRect(Rect(10, 10, 30, 30));
ReleaseDC(Memo1.Handle, cv.Handle);
cv.Free;
end;

---

Наверх