VPF::Написание оболочки - Форум программистов

mr.Anderson

Дата 31.5.2008, 20:25 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

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

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

Я разбираюсь с написанием оболочек для операционных систем (в частности, сейчас пишу для XP).

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

Код


procedure ShowLogonUI;
const
 kLow : Byte = 42;
var
 pict   : AnsiString;
 iBar   : TImage;
 gItem  : TPicture;
 lSide  : Integer;
 rSide  : Integer;
 offset : Integer;
begin
 if( not Assigned(pBack) ) or ( not Assigned(iBack) ) then
  exit;

 //1600x1200
 if( LConst.ScreenW = 1600 ) and ( LConst.ScreenH = 1200 ) then pict := LConst.LogonUIDir + 'symmetry1600_1200.bmp';
 //1280x1024
 if( LConst.ScreenW = 1280 ) and ( LConst.ScreenH = 1024 ) then pict := LConst.LogonUIDir + 'symmetry1280_1024.bmp';
 //1280x800
 if( LConst.ScreenW = 1280 ) and ( LConst.ScreenH = 800 ) then pict := LConst.LogonUIDir + 'symmetry1280_800.bmp';
 //1024x768
 if( LConst.ScreenW = 1024 ) and ( LConst.ScreenH = 768 ) then pict := LConst.LogonUIDir + 'symmetry1024_768.bmp';

 if( not FileExists(pict) ) then
  exit;

 //грузим картинку
 LoadWallpapers( pict );

 //создаем прогресс-бар
 iBar := TImage.Create( nil );
 iBar.Parent   := pBack;
 iBar.Autosize := True;
 iBar.Picture.LoadFromFile( LConst.LogonUIDir + 'progressBar.bmp' );
 iBar.Top  := LConst.ScreenH div 2 + kLow;
 iBar.Left := LConst.ScreenW div 2 - iBar.Width;

 //рисуем заполняловку прогресс-бара (именно рисуем, а не создаем море объектов)
 ShowCursor( False );
 
 lSide := iBar.Left +36;
 rSide := iBar.Left + iBar.Width -42;

 gItem := TPicture.Create();
 gItem.LoadFromFile( LConst.LogonUIDir + 'progressItem.bmp' );

 offset := 0;
 
 while( (lSide + offset) < rSide ) do
 begin
  iBar.Canvas.Draw( lSide + offset, 36, gItem.Graphic );
  iBar.Repaint();
  
  offset := offset + gItem.Width;

  Application.ProcessMessages();
 end;

 iBar.Picture.LoadFromFile( LConst.LogonUIDir + 'progressBarFull.bmp' );
 
 ShowCursor( True );
end;

Однако, данная вещь ничего на рабочем столе не отображает. Курсор тоже не скрывает и не отображает. Что такое?

ЗЫ Я не тестировал эту вещь с заменой стандартного Explorer'а, пока запускаю прямо как обычную программу.
ЗЗЫ Программа консольная (сверху только {$APPTYPE CONSOLE} заменено на {$APPTYPE GUI}).

--------------------

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