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;

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

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

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

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