Отправляет email-рассылки с помощью сервиса Sendsay

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Октябрь 2003   →
 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
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHIMASTER.ru

Выпуск от 19.10.03 09:04

Кое-что из нашей кладовки   |x|
  • HTML Label lordtime_v2 lt@lordtime.com   (17.10.03 21:26)
    поддерживает:
     текст wrapping,
    <FONT color size face>, <b> , <i>, <strong>, <u>, <em>, <br>    

    не работает автосайз так что размеры для текста надо задавать на форме.
    »»» Скачать: исходные тексты (40кб)
Лучшее из нашего FAQ   |x|
Заставка для программы
Сведения о программе, авторские права и т.д., лучше оформить в виде отдельной формы и показывать ее при запуске программы (как это сделано в Word).
Сделать это не сложно:
1. Создаете форму (например SplashForm).
2. Объявляете ее свободной (availableForms).
3. В Progect Source вставляете следующее (например):




    program Splashin;
    uses
        Forms,
        Main in 'MAIN.PAS',
        Splash in 'SPLASH.PAS'
    {$R *.RES}
    begin
        try
        SplashForm := TSplashForm.Create(Application);
        SplashForm.Show;
        SplashForm.Update;
        Application.CreateForm(TMainForm, MainForm);
        SplashForm.Hide;
        finally
        SplashForm.Free;
        end;
        Application.Run;
    end.



И форма SplashForm держится на экране пока выполняется Create в главной форме. Но иногда она появляется и пропадает очень быстро, поэтому нужно сделать задержку:
1. Добавляете на форму таймер с событием:


    procedure TSplashForm.Timer1Timer(Sender: TObject);
    begin
      Timer1.Enabled := False;
    end;



2. Событие onCloseQuery для формы:




    procedure TSplashForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    begin
      CanClose := Not Timer1.Enabled;
    end;

3. И перед SplashForm.Hide; ставите цикл:



    repeat
      Application.ProcessMessages;
    until SplashForm.CloseQuery;


4. Все! Осталось установить на таймере период задержки 3-4 секунды.
5. На последок, у такой формы желательно убрать Caption:
SetWindowLong (Main.Handle,GWL_STYLE, GetWindowLong(Main.Handle, GWL_STYLE) AND NOT WS_CAPTION OR WS_SIZEBOX);



Коментарий от "Sevastyanov Andrey" (mystic2000@newmail.ru)
Работает это, если честно, коряво. Если прога грузиться долго, то наступив  на эту заставку другим приложением, а потом убрав ее вы получите серое  пятно до конца загрузки приложения. А если оно грузиться как Delphi 6...
По-моему, лучше создавать splash-форму в отдельном потоке.

Коментарий от "digimaster" (digimaster@mail.ru)
Лучше сделать так:

procedure TForm1.FormCreate(Sender: TObject);
var
  t:integer;
begin
  SplashForm:=TSplashForm.Create(nil);
  SplashForm.Show;
  t:=GetTickCount;
  while (GetTickCount-t)<5000
do begin //пока не прошло 5000 милливек
   sleep(0);
   Application.ProcessMessages;
   if not SplashForm.Visible then break;
  end;
  //Application Init Code here...
  
  SplashForm.Free;
end;

Не забудьте добавить SplashForm unit в список USES главной формы.

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
  • Проблема с CoolBar
    У меня на форме один coolbar в нем 3 toolbarа, нужно сделать так чтобы при выходе сохранялись все параметры этих ...
  • Считывание из файла при запуске программы
    Как сделать, чтобы при щелчке по иконке файла, зарегистрированного на свою программу, загружалась программа и считывала ...





У нас большой выбор статей   |x|
ФЕНЕЧКИ. Немного об пользовательских интерфейсах.
Когда я возвращаюсь с работы домой, то почти каждый день, недовольно бурчу, по поводу того, что жена моя, всегда отключает мой любимый скин в winamp. Дескать, очень уж неудобный он для неё - кнопки мелкие, почти не различимые, мышкой с первого раза не попадешь.
Новинки книжного рынка   |x|
OpenGL. Программирование компьютерной графики
Эта книга — введение в мир программирования компьютерной графики. Графические системы становятся лучше, быстрее и дешевле. Каждый год изобретается множество новых технических приемов, однако основные принципы и подходы к программированию по-прежнему остаются неизменными. Автор написал в высшей степени практичный и доступный для восприятия текст, отличающийся основательным и интегрированным подходом. Понятия тщательно определены; их математические основы разъяснены, доказана важность каждого рассмотренного понятия. Книга показывает читателю, как переводить математические представления в программный код, и демонстрирует результат. Предлагаемое новое издание предоставляет самую современную информацию в области компьютерной графики.
Автор: Хилл Ф.
Другие сайты о DELPHI   |x|
Delphi Basics
На этом сайте можно найти краткое описание основ языка Дельфи для начинающих. Для большинства процедур и функций дан пример использования.
» Оценка сайта: 4
Опрос населения :)
Как вы нашли наш сайт?
»»» Поисковая система
»»» Рассылка
»»» Ссылка с другого сайта
»»» Через каталог сайтов
»»» Друг посоветовал
»»» Случайно
Для души

Хокку дня
Всем хороши самурайские жены:
Прекрасны, как Аматэраcу
Жарят и парят, но скалкой дерутся изрядно...

Афоризмы
Включая компьютер, ты даешь ему жизнь, выключая же его, ты его убиваешь! Подумай об этом...

Фраза дня
"По белому, белому полю я шел, проклиная весь свет. И думал: скорей бы на волю, в наш офис, где есть интернет!" //Рома Воронежский

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В провинции в Альберта в Канаде особым законом запрещено красить бревна на лесозаготовках. В городе Торонто, между тем, запрещается таскать по улицам дохлых лошадей. Запрет, однако, действует только в воскресенье.
В Дании все машины должны ездить с включенными фарами, чтобы можно было отличить двигающуюся машину от запаркованной.

И на закуску коротенький анекдот
- Алло! Это психиатрия? Тут с человеком вдруг стало очень хорошо!

Фотоприколы.
Начните день с хорошего настроения!
http://www.delphimaster.ru/cgi-bin/prikol.pl?id=7008

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (merlin@delphimaster.ru)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное