Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.028 c
3-1108986324
Layner
2005-02-21 14:45
2005.03.20
Как "поймать" сообщения при выполнении запросов к MSSQL


1-1110357130
Gek1
2005-03-09 11:32
2005.03.20
Comparing signed and unsigned types


1-1109870167
ТехникПТО
2005-03-03 20:16
2005.03.20
Как работать с TStrings


4-1107341470
alpet
2005-02-02 13:51
2005.03.20
Быстрое снятие задачи.


14-1109812430
default
2005-03-03 04:13
2005.03.20
Работа программистом в Иванове для студента