RichEdit

@Garic_ · Регистрация: 03.11.2009

Студворк — интернет-сервис помощи студентам

\\Надо получить в одной строке два значения (№счёт и через пробел значение переменой х)
При нажатии Button2

C++
1
2
3
int i++;
int x = 100;
RichEdit1->Lines->Add(i.x);//Add(i.x) не знаю как правильно.

@gorin · 18.11.2009, 21:53

Пацаны як можна настроъты PopupMenu и кнопку SpeedButton, так чтоби при нажатии кнопки Правой кнопкой мыши выскакивало PopupMenu?

@gorin · 19.11.2009, 19:02

Сообщение от gorin

Пацаны як можна настроъты PopupMenu и кнопку SpeedButton, так чтоби при нажатии кнопки Правой кнопкой мыши выскакивало PopupMenu?

Прива всем, кто знает как так можно настроить?

Добавлено через 1 час 18 минут
Пацаны уже я доделал остался последний штрих!!!!!!!!!

Добавлено через 2 минуты
Подскажите как можно зделать так чтобы моя прога подписовалась за принцепом как у блокнота "Беземенный - Текстовый редактор"!!!!

@gorin · 20.11.2009, 16:41

Прива всем, Пацаны подскажите последнюю деталь, и я выложу это прогу на форум этот!!!!!!!!!!!!!!!!

sh4d°_°ff · 20.11.2009, 17:19

что за деталь?

@gorin · 20.11.2009, 17:22

sh4d°_°ff, Мне нужна чтобы форма подписовалась кака типа у Блокнота "Беземенный-Блокнот"!!!!

sh4d°_°ff · 20.11.2009, 18:37

On Form Create
Form1->Caption="Беземенный-Блокнот";
когда создаешь новый документ тоже самое, а вообще у тебя уже был весь этот код

@gorin · 20.11.2009, 18:41

sh4d°_°ff, Ты открой C:\Program Files\Borland\CBuilder6\Examples\Apps\Ri chEdit там на подобе блокнота зделано и там такой код

C++
1
2
3
4
5
__fastcall TMainForm::TMainForm(TComponent *Owner)
  : TForm(Owner)
{
  SetFileName(Reconst_SUntitled);
}

sh4d°_°ff · 20.11.2009, 18:46

думаю это имя файла задается по умолчанию для сохранения, я не знаю как у тебя сделано, наверное по другому, ты спрашивал как задать заголовок формы - я ответил

@gorin · 20.11.2009, 19:33

sh4d°_°ff, Давай я тебе свой проєкт полностю кину!!!!!!

Добавлено через 4 минуты
sh4d°_°ff, http://p23a.at.ua/OOP/00121.rar

Добавлено через 29 минут
sh4d°_°ff, Ну как?

sh4d°_°ff · 20.11.2009, 19:38

что как?
что тебе непонятно?
я ведь уже ответил на поставленный вопрос. Зачем проект кидал?

@gorin · 20.11.2009, 19:40

sh4d°_°ff, А куда этот код вставлять?

Добавлено через 12 секунд
В форму?

sh4d°_°ff · 20.11.2009, 19:52

я же написал, чтобы при запуске был "новый документ", вставляешь в обработчик события FormCreate формы, а также в тот момент когда у тебя пользователь создает новый документ.

@Maestro · 20.11.2009, 20:59

Сообщение от gorin

SetFileName(Reconst_SUntitled);

Значение SUntitled берётся из reconst.pas

Сообщение от sh4d°_°ff

думаю это имя файла задается по умолчанию для сохранения, я не знаю как у тебя сделано, наверное по другому, ты спрашивал как задать заголовок формы - я ответил

Это в файле reconst.pas

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
unit ReConst;
 
interface
 
uses Windows;
 
const
  ENGLISH = (SUBLANG_ENGLISH_US shl 10) or LANG_ENGLISH;
  GERMAN  = (SUBLANG_GERMAN shl 10) or LANG_GERMAN;
  FRENCH  = (SUBLANG_FRENCH shl 10) or LANG_FRENCH;
 
resourcestring
  [COLOR="Green"][B]SUntitled = 'Untitled';[/B][/COLOR]
  SPercent_s = '%s - %s';
  SSaveChanges = 'Save Changes?';
  SConfirmation = 'Confirmation';
  SNumberbetween = 'The number must be between 1 and 1638.';
  SLcid = '1033'; { US = 1033; DE = 1031; FR = 1036 }
 
implementation
 
end.

Добавлено через 7 минут
gorin, В Form1 есть событие onCreate, туда вставляешь

C++
1
2
3
4
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   Form1->Caption="Безымянный-Блокнот"; // сюда
}

И в функцию нового документа

C++
1
2
3
4
5
6
7
void __fastcall TForm1::FileNewClick(TObject *Sender)
{
  Proverka();   //Створення нового документа
  RichEdit1->Lines->Clear();
  RichEdit1->Modified = False;
  Form1->Caption="Безымянный-Блокнот"; // сюда
}

@gorin · 21.11.2009, 11:53

Пацаны у меня чегото не работает кнопка "Сохранить"
ВОт крод кнопки сохранит:

C++
1
2
3
4
5
6
7
8
9
10
void __fastcall TForm1::FileSaveClick(TObject *Sender)
{
  if(Caption == DefaultFileName){
    FileSaveClick(Sender);
  }
  else{
    RichEdit1->Lines->SaveToFile(Text);
    RichEdit1->Modified = false;
  }
}

А вот кнопки "Сохранить как...":

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::FileSaveAsClick(TObject *Sender)
{
  SaveFileDialog->FileName = Text;
  if (SaveFileDialog->Execute() ){
    Text= SaveFileDialog->FileName;
    Caption = ExtractFileName(Text);
    FileSaveClick(Sender);
  }
}

Диалогический объект "Сохранить" - SaveFileDialog
У меня кнопка "Сохранить как..." только работает!!!!!
Подскажите почему кнопка "Сохранить не работает"

Добавлено через 8 минут
Еще это я вставил код:

C++
1
2
3
4
5
6
const AnsiString DefaultFileName = AnsiString("Untitled");
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}

Добавлено через 28 минут
Пацаны вы мне тупо подскажите код чистый кнопки "Сохранить" и "Сохранить как..."!!!!!!!
Чистый код этих 2 кнопок!!!!!

sh4d°_°ff · 22.11.2009, 11:53

RichEdit

@gorin · 22.11.2009, 17:05

sh4d°_°ff, Прива у меня не видет CanClose

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
void __fastcall TForm1::FileSaveClick(TObject *Sender)
{
int r;
  if ( RichEdit1->Modified)
  {
         r=MessageDlg("Текст изменен. Сохранить изменения?",
                                         mtWarning,
                                         TMsgDlgButtons() << mbYes << mbNo << mbCancel, 0);
 
         switch (r) {
 
                case mrYes:    // записать текст в файл
                                if ( OpenDialog1->FileName != "")
                                        // имя файла задано (редактируется загруженный файл)
                                        RichEdit1->Lines->SaveToFile(OpenDialog1->FileName);
                                else
                                {
                                  // имя файла не задано, отобразить SaveDialog
                                  if ( SaveDialog1->Execute() )
                                                // пользователь задал имя файла
                                                RichEdit1->Lines->SaveToFile(SaveDialog1->FileName);
                                  else
                                           // не задано имя файла,
                                           // продолжить работу с программой
                                           CanClose = false;
                                }
                                break;
           case mrCancel: // продолжить работу с программой
                                 CanClose = false;
                                 break;
         }
   }

@gorin · 23.11.2009, 18:19

Пацаны спасибо всем что помогли зделать проэкт!!!!!!!!!
Вот прямая ссылка на этот проект http://p23a.at.ua/OOP/TextRichEdit.rar !!!!!!!!!!!!

Привет, пацаны этот вопрос не потеме, Я создал секундомер он у меня работает но немножко не верно, помогите исправить ошибку!!!!

@gorin · 25.11.2009, 18:55

У меня секундомер 2 в одном
1 Секундомер обчный (он у меня работпает нормально) "Timer1"
А 2 Секундомер, и там нужно в Edit1 - минуты, а Edit2 - секунди нужно указывать, и должно отшитовать назад до самого нкля. Вот и з 2 и проблема не так как нужно работает "Timer2"

//======================================== ========== =====================
Timer2(2 Секундомер) код:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
Label10->Visible=!Label10->Visible;
if (!Label10->Visible)
        return;
     //------------
if(s>0)
s--;
else
{
s=60;
m--;
return;
Label9->Caption=IntToStr(m);
}
if(s<10)
Label11->Caption="0"+IntToStr(s);
else
Label11->Caption=IntToStr(s);
if ((s == 0) || (m == 0)){
        ShowMessage("Час закінчився!");
        exit(1); }
 
}

Кнопка "Старт" код:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
void __fastcall TForm1::Button3Click(TObject *Sender)
{
m=StrToInt(Edit1->Text);
s=StrToInt(Edit2->Text);
if((m>59)||(s>59)){
        ShowMessage("Невірно заданий час!");
        return;
        }
if(!Timer2->Enabled){
        Timer2->Enabled=true;
        Label10->Visible=true;
}
else
{
        Timer2->Enabled=true;
}
}

//======================================== ========== ==============
Timer1(1 Секундомер) код:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if(ms<59)
ms++;
else
{
ms=0;
if(ss<59)
ss++;
else
{
ss=0;
mm++;
Label1->Caption=IntToStr(mm);
}
if(ss<=9)
Label2->Caption="0"+IntToStr(ss);
else
Label2->Caption=IntToStr(ss);
Label4->Visible=!Label4->Visible;
}
if(ms<=9)
Label3->Caption="0"+IntToStr(ms);
else
Label3->Caption=IntToStr(ms);
Label5->Visible=!Label5->Visible;
}

Кнопка "Старт" код:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(!Timer1->Enabled)
{
Timer1->Enabled=true;
Button1->Caption="Стоп";
Button2->Enabled=false;
}
else
{
Timer1->Enabled=false;
Button1->Caption="Старт";
Button2->Enabled=true;
}
}

Кнопка "Скинуты" код:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
void __fastcall TForm1::Button2Click(TObject *Sender)
{
mm=00;
ss=00;
ms=00;
Label1->Caption="00";
Label2->Caption="00";
Label3->Caption="00";
}
void __fastcall TForm1::Button3Click(TObject *Sender)
{
m=StrToInt(Edit1->Text);
s=StrToInt(Edit2->Text);
if((m>59)||(s>59)){
        ShowMessage("Невірно заданий час!");
        return;
        }
if(!Timer2->Enabled){
        Timer2->Enabled=true;
        Label10->Visible=true;
}
else
{
        Timer2->Enabled=true;
}
}

// Крнец пкрвого секундомера

Скриншот:

@gorin · 01.12.2009, 22:14

Привет все, пацаны помогите Разработать диаграму классов модели программы, Разработать алгоритм работы програмы ту что мы свами разрабатывали TextRichEdit!!!! Помогите плиз

@gorin · 03.12.2009, 16:30

Пацаны ну так што поможете?

Новые блоги и статьи Все статьи Все блоги /
Море в объективе kumehtar 06.07.2026 Хотел написать много проникновенных слов, но передумал. Оно само - говорит. Кто слышит тот слышит.	Оказывается, Unreal Engine позволяет качество на порядки выше, чем было в Lineedge Etyuhibosecyu 05.07.2026 Жаль, конечно, что я не узнал об этом, пока Lineedge существовала, а то бы Noname2331 написал, что волки превращаются в пиксельную кашу, а я бы его попросил скачать какую-нибудь бриллиантовую или Pro. . .	Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii. dcc0 05.07.2026 Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .	Установка статуса документа по условию Maks 05.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .
Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .	В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	18.11.2009, 21:53
	Пацаны як можна настроъты PopupMenu и кнопку SpeedButton, так чтоби при нажатии кнопки Правой кнопкой мыши выскакивало PopupMenu? 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	20.11.2009, 16:41
	Прива всем, Пацаны подскажите последнюю деталь, и я выложу это прогу на форум этот!!!!!!!!!!!!!!!! 0

sh4d°_°ff говнокодер 1273 / 297 / 35 Регистрация: 31.10.2009 Сообщений: 1,432
	20.11.2009, 17:19
	что за деталь? 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	20.11.2009, 17:22
	sh4d°_°ff, Мне нужна чтобы форма подписовалась кака типа у Блокнота "Беземенный-Блокнот"!!!! 0

sh4d°_°ff говнокодер 1273 / 297 / 35 Регистрация: 31.10.2009 Сообщений: 1,432
	20.11.2009, 18:37
	On Form Create Form1->Caption="Беземенный-Блокнот"; когда создаешь новый документ тоже самое, а вообще у тебя уже был весь этот код 0

sh4d°_°ff говнокодер 1273 / 297 / 35 Регистрация: 31.10.2009 Сообщений: 1,432
	20.11.2009, 18:46
	думаю это имя файла задается по умолчанию для сохранения, я не знаю как у тебя сделано, наверное по другому, ты спрашивал как задать заголовок формы - я ответил 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	20.11.2009, 19:33
	sh4d°_°ff, Давай я тебе свой проєкт полностю кину!!!!!! Добавлено через 4 минуты sh4d°_°ff, http://p23a.at.ua/OOP/00121.rar Добавлено через 29 минут sh4d°_°ff, Ну как? 0

sh4d°_°ff говнокодер 1273 / 297 / 35 Регистрация: 31.10.2009 Сообщений: 1,432
	20.11.2009, 19:38
	что как? что тебе непонятно? я ведь уже ответил на поставленный вопрос. Зачем проект кидал? 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	20.11.2009, 19:40
	sh4d°_°ff, А куда этот код вставлять? Добавлено через 12 секунд В форму? 0

sh4d°_°ff говнокодер 1273 / 297 / 35 Регистрация: 31.10.2009 Сообщений: 1,432
	20.11.2009, 19:52
	я же написал, чтобы при запуске был "новый документ", вставляешь в обработчик события FormCreate формы, а также в тот момент когда у тебя пользователь создает новый документ. 0

sh4d°_°ff говнокодер 1273 / 297 / 35 Регистрация: 31.10.2009 Сообщений: 1,432
	22.11.2009, 11:53
	RichEdit 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	23.11.2009, 18:19
	Пацаны спасибо всем что помогли зделать проэкт!!!!!!!!! Вот прямая ссылка на этот проект http://p23a.at.ua/OOP/TextRichEdit.rar !!!!!!!!!!!! Привет, пацаны этот вопрос не потеме, Я создал секундомер он у меня работает но немножко не верно, помогите исправить ошибку!!!! 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	01.12.2009, 22:14
	Привет все, пацаны помогите Разработать диаграму классов модели программы, Разработать алгоритм работы програмы ту что мы свами разрабатывали TextRichEdit!!!! Помогите плиз 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	03.12.2009, 16:30
	Пацаны ну так што поможете? 0