Memo

← →
SAI © (2005-03-03 17:33) [0]

Можно ли стандартными методами сделать появление ScrollBars автоматическим? Если можно, то как? Если же нельзя, то подскажите как можно определьть, что текст не помещается в Memo(чтобы в этот момент включить ScrollBars).

← →
Fenik (2005-03-03 22:40) [1]

Обрабатывай событие OnChange. Если суммарная высота строк больше высоты мемо, или ширина самой длинной строки больше ширины мемо, устанавливай/снимай соответствующие атрибуты.

← →
Knight © (2005-03-03 22:43) [2]

Юзай RichEdit...

← →
SAI © (2005-03-04 16:28) [3]

Fenik спасиба.

Еще вопросик: как в мемо определить длину строки?(я обычно через Canvas.TextHeight и Canvas.TextWidth, но у мемо ее ненашел)

← →
Fenik (2005-03-04 21:14) [5]

function GetTextSizeInMemo(Memo: TMemo; const Text: string): TSize; var DC: HDC; begin DC := GetDC(Memo.Handle); try SelectObject(DC, Memo.Font.Handle); GetTextExtentPoint32(DC, PChar(Text), Length(Text), Result); finally ReleaseDC(Memo.Handle, DC); end; end; procedure TForm1.Memo1Change(Sender: TObject); var I, MaxIndex, MaxL, N, SS: Integer; begin with Memo1 do begin N := Lines.Count; SS := SelStart; if N > 0 then begin MaxIndex := 0; MaxL := Length(Lines[0]); for I := 1 to N - 1 do if Length(Lines[I]) > MaxL then begin MaxL := Length(Lines[I]); MaxIndex := I; end; with GetTextSizeInMemo(Memo1, Lines[MaxIndex]) do if cY * N > ClientHeight then if cX > ClientWidth then ScrollBars := ssBoth else ScrollBars := ssVertical else if cX > ClientWidth then ScrollBars := ssHorizontal else ScrollBars := ssNone; end else ScrollBars := ssNone; SelStart := SS; end; end; procedure TForm1.FormCreate(Sender: TObject); begin Memo1.WordWrap := False; end;

Примерно так. Но я автоперенос слов оставил бы, а динамически менял показывал/скрывал только вертикальную полосу прокрутки.

Memo Найти похожие ветки