Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

memo с канвой

максим © (2008-03-01 21:36:00)
делаю компонент мемо наследник от мемо.
рисую на канве, мне нужно чтобы фонт у канвы был такой же как выставленно у самой мемо в свойствах,
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;
при таком раскладе, текст черный как и полагается, но в объект инспекторе я выставляю св-ва фонта другие, и для канвы они не меняются
как поправить?

Германн (2008-03-02 00:54:00) [1]

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

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

максим (2008-03-01 22:17:00) [2]
вот еще трабл нашелся,когда выделяю текст в мемо. т.е. нажал и начинаю курсор например вверх вести и текст выделяется,в этом случае wmpaint не срабатывает, думаю сделать проверку в onmousemove, типа если моус один зажато то memo1.invalidate;

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

максим (2008-03-01 22:05:00) [3]
мда, лохонулся я, забыл что потом еще раз фонт меняю :)

Kolan (2008-03-01 21:41:00) [4]
> для канвы они не меняются

Как узнал?

Наверх

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