Текущий архив: 2005.03.20;
Скачать: CL | DM;

Вниз

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 спасиба.

---

← →
SAI ©   (2005-03-04 16:57) [4]

Еще вопросик: как в мемо определить длину строки?(я обычно через 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;

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

---

Страницы: 1 вся ветка

Текущий архив: 2005.03.20;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.071 c