Форум: "Основная";
Текущий архив: 2005.03.20;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.042 c