ShIvADeSt
Moderator | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
data man
Цитата: В начале любой строки жмем Shift-End, Shift-влево, Del - удаляется вся строка.
То же самое в конце строки с Shift-Home, Shift-вправо, Del |
Молодец, у меня если длина строки 1 - то ничего не рисовалось  )
В общем в процедуре PaintLine перед строкой
for i:=2 to Length(LineText) do begin
добавить след код
Код:
if Length(LineText)=1 then begin
Size:=TextExtent(CurWord);
SetBkMode(Handle, TRANSPARENT);
if LastBck<>Self.Color then begin
Brush.Color:=LastBck;
FillRect(Rect(x,TxtRect.Top,x+Size.cx,TxtRect.Top+Size.cy));
end;
Font:=Self.Font;
Font.Color:=LastFont;
TextOut(x,TxtRect.Top, CurWord);
end;
|
Цитата:| Про свой баг скроллирования умолчу. |
в процедуре procedure TMemo.WMMousewheel(var Message: TWMMouseWheel);
поставь брейкпойты и посмотри будет или нет остановка при скролинге. Я так мельком посмотрел - что то данное сообщение в Висте и Вынь7 коряво работает. В общем пофиксить это возможно только с твоей стороны, у меня вынь7 появится только когда весь софт, который я юзаю будет под ней нормальной работать.
----------
И создал Бог женщину... Существо получилось злобное, но забавное... |
|
