Автоматический переход на новую строку в Мемо

[Utkin]

Это актуально, я сейчас борюсь с этой ерундовиной. И там еще кое-что - если много много сделать энтеров (ввести пустых строк) и потом вызвать мою менюшку, то данные из списка не всегда отображаются (хотя если выделять, то они там есть ).

[raxp]

это тоже видел, менюшка появляется, только где-то за областью... и еще, снять-бы пунктирное выделение в mets, но тогда или перерисовку для listbox-а свою нужно по типу "if odFocused in State then DrawFocusRect((Control as TlistBox).Canvas.Handle, Rect)" или какой-нить api (ща не вспомню) запретить...

ооо, прочитал комментарий насчет хитрого листбох-а

upd
-------
проверил, сама caretpos правильно считает, если текст по вертикали выходит за границы и движком прокрутить вниз...

[Utkin]

У меня не такой уровень - мне еще пару левелаппов надо, ну и новые способности прокачать, а из артефактов только DRKB и гугл .

ооо, прочитал комментарий насчет хитрого листбох-а

Там вообще много занимательного (и для меня тоже, потому что я не с нуля писал). Даже затрудняюсь определить какими путями протекает ход моих мыслей...

[raxp]

думаю текущую позицию по -x- нужно узнавать по фактической ширине текста до каретки (курсора), т.к. ширина символов разная, поэтому умножение каретки по -x- на ширину шрифта и дает погрешность... или использовать шрифт с одинаковой шириной символов, что конечно-же неприемлемо...

...по пунктиру в mets, добавил в-лоб...

protected
 procedure to_draw(Control: TWinControl; Index: Integer;Rect: TRect; State: TOwnerDrawState);
...

procedure THMemo.to_draw(Control: TWinControl; Index: Integer;Rect: TRect; State: TOwnerDrawState);
begin
 with (Control as TListBox).Canvas do begin
  Font.Color := clblack;
  font.Style:= [fsbold];
  FillRect(Rect);
  textout(Rect.left+1, Rect.Top+1,(Control as TListBox).Items[Index])
 end;
 if odFocused in State then DrawFocusRect((Control as TListBox).Canvas.Handle, Rect) 
end;
...

constructor THMemo.Create(AOwner: TComponent);
begin
...
 Mets.Style:= lbOwnerDrawFixed;
 Mets.OnDrawItem:= to_draw;
 Mets.ItemHeight:=14;
 METS.BevelOuter:= bvRaised;
 Mets.BevelKind:= bksoft;
...

хотя, что это я отвлекся на третьестепенное ...

upd
-------
при использовании шрифта 'Fixedsys' смещение на длинных строках ушло, зафункциклировало... значит мысля имеет право на жизнь

[Utkin]

Ну и как? Зафунциклировало? Просто я сейчас ковыряюсь немного в другом направлении...

Это понятно, Ваш код не сработал.

[raxp]

почему не... теперь с любым шрифтом появление listbox верно... осталось побороть "хитрость" листбокса

procedure THMemo.ShowMetods();
var   x, y: Integer;
begin
    pX:= CaretPos.x;
    pY:= CaretPos.y;

    //form1.Caption:= copy(lines[py],1,px);
    x:= ww + 5;
    y:= hh*py + 3;
...

procedure THMemo.WMPaint(var Message: TWMPaint);
...
 Canvas.Font.Size := Font.Size;

 pX:= CaretPos.x;
 pY:= CaretPos.y;
 s:= copy(lines[py],1,px);
 ww:= canvas.TextWidth(s); // определяем ширину текста до текущей каретки на текущей строке
 hh:= Canvas.TextHeight('1');
 s:='';
...

и обновляем есственно..

procedure THMemo.KeyDown(var Key: Word; Shift: TShiftState);
begin
 InValidate;
    if (key = Ord('M')) and (ssCtrl in Shift) then
    begin

upd
-------
из менюшки текст теперь вставляет некорректно... смотрю дальше...

[Utkin]

Последняя версия, у меня все вставляет правильно.