Форум: "Начинающим";
Текущий архив: 2008.03.30;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.03.30;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.038 c