Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Текст на форме 
:(
    Опции темы
santilaas
Дата 6.5.2007, 17:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 322
Регистрация: 28.8.2005
Где: Блага

Репутация: нет
Всего: нет



Привет всем!
Вопрос такой - имеется MDI-приложение, - так вот хотелось бы на главной форме написать (нарисовать) краткое название проги как бы вдавленными буквами.
Как такое сделать?
Заранее спасибо!


--------------------
[
PM MAIL   Вверх
maniaks1
Дата 6.5.2007, 17:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 55
Регистрация: 16.12.2006

Репутация: нет
Всего: нет



Самый простой способ, взять label, свойство Enable в false

Тока цвет нельзя поменять...
PM MAIL ICQ   Вверх
santilaas
Дата 13.5.2007, 12:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 322
Регистрация: 28.8.2005
Где: Блага

Репутация: нет
Всего: нет



Label - это конечно хорошо, но когда сама форма - fsMDIForm и по верху формы растянут Toolbar, то текст label-а по вертикали (хоть Layout установлен в tlCenter) находится не по середине, а ниже на величину высоты Tollbr-a - а (притом, что Toolbar - выровнен по высоте, Label - как alClient).
А надо посередине - как быть?


--------------------
[
PM MAIL   Вверх
Guedda
Дата 13.5.2007, 12:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78



Поройся в сторону TextOut()


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Yanis
Дата 13.5.2007, 13:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111



santilaas
Ты имеешь ввиду на фоне нарисовать?
Ну по моему рисовать там ничего не надо. Просто картинку там располагать.


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
santilaas
Дата 14.5.2007, 17:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 322
Регистрация: 28.8.2005
Где: Блага

Репутация: нет
Всего: нет



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


--------------------
[
PM MAIL   Вверх
Sunvas
Дата 14.5.2007, 17:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89



Цитата(santilaas @  14.5.2007,  17:00 Найти цитируемый пост)
т.е. получается через Label никак то, что мне нужно не сделать?!

Чем дальше в лес, тем больше дров.. Можно еще раз более понятно объяснить что надо, а лучше нарисовать?


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Yanis
Дата 14.5.2007, 19:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111



А лучше скриншот программы из которой взята идея.


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
santilaas
Дата 16.5.2007, 16:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 322
Регистрация: 28.8.2005
Где: Блага

Репутация: нет
Всего: нет



более подробно:
- я взял на форму кинул обычный Label (Align=alClient), сделал для него выравнивание текста по вертикали (Layout = tlCenter) и горизонтали (Alignment = taCenter), и у самого Label-а поставил Enabled в False, таким образом получив вдавленный текст. - это то, что мне нужно, но работает реально это только для Normal-форм. А у меня форма fsMDIForm и в случае, если на форме есть Toolbar (растянутый по верху), то по вертикали текст Label-а не центрируется, а расположен ниже примерно на величину высоты Toolbar-а. А надо по центру.
Как быть? 


--------------------
[
PM MAIL   Вверх
Snowy
Дата 16.5.2007, 16:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484



Код

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TLabel.Create(Self) do
  begin
    Parent := Self;
    Left := 0; Top := 0; AutoSize := false;
    Width := Self.ClientWidth; Height := Self.ClientHeight;
    Anchors := [akLeft,akTop,akRight,akBottom];
    Font.Size := 96; Font.Name := 'Tahoma'; Font.Charset := RUSSIAN_CHARSET;
    Enabled := False; Caption := 'ЭТО ТЕКСТ!!!';
    Alignment := taCenter; Layout := tlCenter;
  end;
end;

PM MAIL   Вверх
santilaas
Дата 18.5.2007, 16:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 322
Регистрация: 28.8.2005
Где: Блага

Репутация: нет
Всего: нет



Snowy,спасибо за пример, но текст все равно не центрируется по высоте при наличии на MDI-форме ControlBar-a или Toolbar-a!?


--------------------
[
PM MAIL   Вверх
Snowy
Дата 18.5.2007, 16:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484



Правильно - маленькие буквы же меньше по высоте.
А данный пример центрирует независимо от наличия тулбаров.
Хочешь поднять повыше - укажи Top = -50 например...
PM MAIL   Вверх
pseud
Дата 18.5.2007, 16:58 (ссылка) |  (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40



Киньна форму Label так, чтоб тебе казалось что он по центру лежит.

по умолчанию
Anchors := [akLeft,akTop];
сделай 
Anchors := [akLeft];

никаких Layout := tlCenter


теперь потягай форму за нижний бордэр и понаслаждайся

надеюсь я правильно понял вопрос и не хуже дал ответ

PM MAIL   Вверх
santilaas
Дата 25.5.2007, 17:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 322
Регистрация: 28.8.2005
Где: Блага

Репутация: нет
Всего: нет



Не, все это не то - если не верите - проверьте свои примеры и увидите, что не все так хорошо.
да и еще: надо, чтобы текст был по центру области формы, не включающей области Toolbar-а.



--------------------
[
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0577 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.