Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.02.20;
Скачать: [xml.tar.bz2];

Вниз

Размер текста   Найти похожие ветки 

 
Homa_Programer ©   (2005-02-02 23:22) [0]

Как узнать сколько символов например "+" влезет в текстовый редактор (будь то TMemo, TRichEdit, TEdit и т.д.)
помогите...


 
Anatoly Podgoretsky ©   (2005-02-02 23:32) [1]

2 гигабайта, кроме и т.д.


 
SergP ©   (2005-02-03 01:38) [2]


>  Homa_Programer ©   (02.02.05 23:22)
> Как узнать сколько символов например "+" влезет в текстовый
> редактор (будь то TMemo, TRichEdit, TEdit и т.д.)
> помогите...


TMemo - около  50 Кб
TRichEdit - 2 Гб
TEdit - х/з


 
Homa_Programer ©   (2005-02-03 09:27) [3]

а теперь подскажите как узнать количество симлов, которое может влезть в одну строчку?


 
Neznaika ©   (2005-02-03 09:32) [4]

Положи на форму Мемо, нажми на F9, придави чем-нибудь клавишу "+" и пойди покури, а потом примерно посчитаешь...

:o)


 
Александр Иванов ©   (2005-02-03 09:37) [5]

Homa_Programer ©   (03.02.05 9:27) [3]
См. [1].


 
Ega23 ©   (2005-02-03 09:51) [6]

Я кажется понял, что автор имеет ввиду...
TCanvas.TextWidth

This project requires a TPageControl and several TTabPages. To add new pages, right click the TPageControl and select "New Page".
During the form creation the width and height of all tabs on the Page Control becomes double the largest previous value.  So if there are three tabs with captions that are 12, 23 and 19 characters long, the TabWidth would be the number of pixels required to fit 46 characters.

procedure TForm1.FormCreate(Sender: TObject);

var
 i: Integer;
begin
 with PageControl1 do
 begin
   for i := 0 to PageCount - 1 do
   begin
     if (Canvas.TextWidth(Pages[i].Caption) * 2) > TabWidth then
       TabWidth := Canvas.TextWidth(Pages[i].Caption) * 2;
     if (Canvas.TextHeight(Pages[i].Caption) * 2) > TabHeight then
       TabHeight := Canvas.TextHeight(Pages[i].Caption) * 2;
   end;

 end;
end;


 
Ivolg   (2005-02-03 10:14) [7]

Мож автор имеет ввиду это:

label1.Caption:="Символ "+inttostr(memo1.CaretPos.X);
label2.Caption:="Строка "+inttostr(memo1.CaretPos.Y);


 
Homa_Programer ©   (2005-02-04 23:48) [8]

> Ega23 ©
благодарю за понятливость и за решение,
просто я не знал как это еще описать :-(



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

Форум: "Основная";
Текущий архив: 2005.02.20;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.033 c
1-1107497610
Aleks
2005-02-04 09:13
2005.02.20
Есть ли компонент который работает с GIF


1-1107759093
Wood
2005-02-07 09:51
2005.02.20
Индикация процессов


14-1107186515
quickblack
2005-01-31 18:48
2005.02.20
Доступ в инет через Мегафон


3-1106078305
Eraser
2005-01-18 22:58
2005.02.20
Восстановление базы данных mdb (Access)


4-1104775713
Комбинатор
2005-01-03 21:08
2005.02.20
Запрет на удаление процесса по средвам ACL





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский