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

memo с канвой   Найти похожие ветки 

← →
максим   (2008-03-01 21:36) [0]

делаю компонент мемо наследник от мемо.
рисую на канве, мне нужно чтобы фонт у канвы был такой же как выставленно у самой мемо в свойствах,
 DC := Message.DC;
 if DC = 0 then DC := BeginPaint(Handle, PS);
 Canvas := TCanvas.Create;
 try
   OldColor         := Font.Color;
   Canvas.Handle    := DC;
   Canvas.Font.Name := Font.Name;
   Canvas.Font.Size := Font.Size;
при таком раскладе, текст черный как и полагается, но в объект инспекторе я выставляю св-ва фонта другие, и для канвы они не меняются
как поправить?

---

← →
Kolan ©   (2008-03-01 21:41) [1]

> для канвы они не меняются

Как узнал?

---

← →
максим   (2008-03-01 22:05) [2]

мда, лохонулся я, забыл что потом еще раз фонт меняю :)

---

← →
максим   (2008-03-01 22:17) [3]

вот еще трабл нашелся,когда выделяю текст в мемо. т.е. нажал и начинаю курсор например вверх вести и текст выделяется,в этом случае wmpaint не срабатывает, думаю сделать проверку в onmousemove, типа если  моус один зажато то memo1.invalidate;

как сделать такую проверку на зажатость клавишы мышки?

---

← →
Германн ©   (2008-03-02 00:54) [4]

> как сделать такую проверку на зажатость клавишы мышки?

TMouseMoveEvent = procedure(Sender: TObject; Shift: TShiftState; X, Y: Integer) of object;

---

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

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



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