| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Memo [D7]

SAI ©   (2005-03-03 17:33:00) 

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

---

Fenik   (2005-03-04 21:14:00) [1]

functionGetTextSizeInMemo(Memo: TMemo; constText: string): TSize;
varDC: 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;

procedureTForm1.Memo1Change(Sender: TObject);
varI, MaxIndex, MaxL, N, SS: Integer;
begin
  withMemo1 do begin
   N := Lines.Count;
   SS := SelStart;
    ifN > 0 then begin
     MaxIndex := 0;
     MaxL := Length(Lines[0]);
      forI := 1 toN - 1 do
        ifLength(Lines[I]) > MaxL then begin
         MaxL := Length(Lines[I]);
         MaxIndex := I;
        end;
      withGetTextSizeInMemo(Memo1, Lines[MaxIndex]) do
      ifcY * N > ClientHeight then
        ifcX > ClientWidth then
         ScrollBars := ssBoth
        else
         ScrollBars := ssVertical
      else
        ifcX > ClientWidth then
         ScrollBars := ssHorizontal
        else
         ScrollBars := ssNone;
    end
    else
     ScrollBars := ssNone;
   SelStart := SS;
  end;
end;

procedureTForm1.FormCreate(Sender: TObject);
begin
 Memo1.WordWrap := False;
end;

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

---

SAI   (2005-03-04 16:57:00) [2]

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

---

SAI   (2005-03-04 16:28:00) [3]

Fenikспасиба.

---

Knight   (2005-03-03 22:43:00) [4]

Юзай RichEdit...

---

Fenik   (2005-03-03 22:40:00) [5]

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

---

Наверх