Двойной caption

@Paissettan · Регистрация: 08.01.2015

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

Пытаюсь сделать время вместе с caption
Должно получиться вот так : Menu 00:00:00

Справа название программы а слева часики

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
N1->Caption=Time().FormatString("menu","hh:mm:ss");
Timer1->Interval=1;
}
//---------------------------------------------------------------------------

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

Checking project dependencies...
Compiling Project1.cbproj (Debug, Win32)
bcc32 command line for "Unit1.cpp"
c:\program files (x86)\embarcadero\studio\15.0\bin\bcc32. exe -D_DEBUG -DUSEPACKAGES -n.\Win32\Debug -I"c:\program files
(x86)\embarcadero\studio\15.0\include\wi ndows\vcl";"C:\Program Files (x86)\Embarcadero\Studio\15.0\include\bo ost_1_39\boost\tr1\tr1";"C:\Program
Files (x86)\Embarcadero\Studio\15.0\include\bo ost_1_39";"c:\program files (x86)\embarcadero\studio\15.0\include";" c:\program files
(x86)\embarcadero\studio\15.0\include\di nkumware";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\crtl";"c:\program files
(x86)\embarcadero\studio\15.0\include\wi ndows\sdk";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\rtl";"c:\program files
(x86)\embarcadero\studio\15.0\include\wi ndows\vcl";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\fmx";"C:\Program Files
(x86)\FastReports\LibD21";"C:\Program Files (x86)\Raize\CS5\Lib\RS-XE7\Win32";C:\Users\Public\Documents\Emb arcadero\Studio\15.0\hpp\Win32 -y -Q -k
-r- -c -tR -tM -tU -tW -C8 -o.\Win32\Debug\Unit1.obj -w-par -Od -v -vi- -H=.\Win32\Debug\Project1.pch -H Unit1.cpp
[bcc32 Error] Unit1.cpp(19): E2227 Extra parameter in call to _fastcall TDateTime::FormatString(const UnicodeString &) const
Full parser context
Unit1.cpp(18): parsing: void _fastcall TForm1::Timer1Timer(TObject *)
Failed
Elapsed time: 00:00:01.6

P.S пока что получилось только: либо часы одни либо caption,а нужно и то и другое вместе в одном caption

@volvo · 08.01.2015, 20:24

Так?

C++
1
N1->Caption = String("Menu ") + Time().FormatString("hh:mm:ss");

@Paissettan · 08.01.2015, 21:22 **[ТС]**

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

Так?

C++
1
N1->Caption = String("Menu                                  ") + Time().FormatString("hh:mm:ss");

Все так, только вот пробел большой что время углу было

Добавлено через 41 минуту

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

Так?

C++
1
2
String Caption1;
N1->Caption = Caption1 + Time().FormatString("hh:mm:ss");

Показывает только время это вариант

Приставкой не сделать то есть чтобы не писать caption,время сделать как приставка к тому caption

@volvo · 08.01.2015, 21:53

Если тебе надо, чтобы время было справа - почему бы не так:

C++
1
2
3
4
5
6
7
8
9
#include <StrUtils.hpp>
 
// ...
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    String s = String("Menu") + Time().FormatString("hh:mm:ss");
    int count = (this->ClientWidth - Canvas->TextWidth(s)) / Canvas->TextWidth(" ") - 5;
    N1->Caption = String("Menu") + DupeString(" ", count) + Time().FormatString("hh:mm:ss");
}

@Paissettan · 09.01.2015, 14:50 **[ТС]**

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

Если тебе надо, чтобы время было справа - почему бы не так

Спасибо,думаю как сделать приставкой "часы"

Добавлено через 16 часов 49 минут

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

Если тебе надо, чтобы время было справа - почему бы не так:
Код C++
1
2
3
4
5
6
7
8
9
#include <StrUtils.hpp>
// ...
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
* * String s = String("Menu") + Time().FormatString("hh:mm:ss");
* * int count = (this->ClientWidth - Canvas->TextWidth(s)) / Canvas->TextWidth(" ") - 5;
* * N1->Caption = String("Menu") + DupeString(" ", count) + Time().FormatString("hh:mm:ss");
}

Можете показать как сделать с полной датой ?

C++
1
Form1->Caption =  DateTimeToStr(Now()); //01.01.2015 00:00:00

Рисовать canvasom не приходилось

@volvo · 09.01.2015, 14:52

Так и сделать:

C++
1
2
3
4
    String s = String("Menu") + DateTimeToStr(Now());
    int count = (this->ClientWidth - Canvas->TextWidth(s)) / Canvas->TextWidth
        (" ") - 5;
    N1->Caption = String("Menu") + DupeString(" ", count) + DateTimeToStr(Now());

@Paissettan · 09.01.2015, 15:07 **[ТС]**

Checking project dependencies...
Compiling Project1.cbproj (Debug, Win32)
bcc32 command line for "Unit1.cpp"
c:\program files (x86)\embarcadero\studio\15.0\bin\bcc32. exe -D_DEBUG -DUSEPACKAGES -n.\Win32\Debug -I"c:\program files
(x86)\embarcadero\studio\15.0\include\wi ndows\vcl";"C:\Program Files (x86)\Embarcadero\Studio\15.0\include\bo ost_1_39\boost\tr1\tr1";"C:\Program
Files (x86)\Embarcadero\Studio\15.0\include\bo ost_1_39";"c:\program files (x86)\embarcadero\studio\15.0\include";" c:\program files
(x86)\embarcadero\studio\15.0\include\di nkumware";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\crtl";"c:\program files
(x86)\embarcadero\studio\15.0\include\wi ndows\sdk";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\rtl";"c:\program files
(x86)\embarcadero\studio\15.0\include\wi ndows\vcl";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\fmx";"C:\Program Files
(x86)\FastReports\LibD21";"C:\Program Files (x86)\Raize\CS5\Lib\RS-XE7\Win32";C:\Users\Public\Documents\Emb arcadero\Studio\15.0\hpp\Win32 -y -Q -k
-r- -c -tR -tM -tU -tW -C8 -o.\Win32\Debug\Unit1.obj -w-par -Od -v -vi- -H=.\Win32\Debug\Project1.pch -H Unit1.cpp
[bcc32 Error] Unit1.cpp(178): E2268 Call to undefined function 'DupeString'
Full parser context
Unit1.cpp(174): parsing: void _fastcall TForm1::Timer2Timer(TObject *)
Failed
Elapsed time: 00:00:06.4

Добавлено через 2 минуты
библиотеку не подключил

@volvo · 09.01.2015, 15:09

А про

C++
1
#include <StrUtils.hpp>

я что, должен в каждом сообщении писать? Или ты думаешь это я от скуки добавил, от нечего делать?

@prostoemelya · 09.01.2015, 19:31

Здравствуйте.
У меня похожая проблема.
Надо чтобы правый пункт меню был все время в правом углу, как в total commander - справка.
И при масштабировании формы был все время в правом углу.
Спасибо.

@volvo · 09.01.2015, 19:47

prostoemelya, здесь посмотри: MainMenu - пункт справа

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@Paissettan 0 / 0 / 0 Регистрация: 08.01.2015 Сообщений: 4
	09.01.2015, 15:07 [ТС]
	Checking project dependencies... Compiling Project1.cbproj (Debug, Win32) bcc32 command line for "Unit1.cpp" c:\program files (x86)\embarcadero\studio\15.0\bin\bcc32. exe -D_DEBUG -DUSEPACKAGES -n.\Win32\Debug -I"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\vcl";"C:\Program Files (x86)\Embarcadero\Studio\15.0\include\bo ost_1_39\boost\tr1\tr1";"C:\Program Files (x86)\Embarcadero\Studio\15.0\include\bo ost_1_39";"c:\program files (x86)\embarcadero\studio\15.0\include";" c:\program files (x86)\embarcadero\studio\15.0\include\di nkumware";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\crtl";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\sdk";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\rtl";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\vcl";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\fmx";"C:\Program Files (x86)\FastReports\LibD21";"C:\Program Files (x86)\Raize\CS5\Lib\RS-XE7\Win32";C:\Users\Public\Documents\Emb arcadero\Studio\15.0\hpp\Win32 -y -Q -k -r- -c -tR -tM -tU -tW -C8 -o.\Win32\Debug\Unit1.obj -w-par -Od -v -vi- -H=.\Win32\Debug\Project1.pch -H Unit1.cpp [bcc32 Error] Unit1.cpp(178): E2268 Call to undefined function 'DupeString' Full parser context Unit1.cpp(174): parsing: void _fastcall TForm1::Timer2Timer(TObject ) Failed Elapsed time: 00:00:06.4 Добавлено через 2 минуты* библиотеку не подключил 0

@prostoemelya 3 / 3 / 3 Регистрация: 02.06.2013 Сообщений: 16
	09.01.2015, 19:31
	Здравствуйте. У меня похожая проблема. Надо чтобы правый пункт меню был все время в правом углу, как в total commander - справка. И при масштабировании формы был все время в правом углу. Спасибо. 0

@volvo Супер-модератор 33404 / 21514 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	09.01.2015, 19:47
	prostoemelya, здесь посмотри: MainMenu - пункт справа 1