Последние записи

made in programmersforum 6

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

16th
Авг

Кликнуть по Flash содержимому в WebBrowser

В WebBrowser’е загружается страница с видео на YouTube. После этого нужно кликнуть (или послать команду) по кнопке Play и убрать звук (Mute). Как это сделать? (читать всё…)

Добавлено в JavaScript. Дата Август 16th, 2012

8th
Июл

ActionScript3: Кэширование анимации и ее проигрывание (blitting)

Всем, кто имеет хоть какое– нибудь отношение к игроиндустрии или созданию спецэффектов, хорошо известно, насколько ресурсоемка такая вещь, как отображение векторной анимации и ее расчет в процессе рендеринга. Но к счастью, разработчики оставили нам путь к всеобщему процветанию и дали нам возможность использовать такую великолепную вещь, как вывод на экран предварительно откешированного в растр изображения. Помните, как устроен кинематограф, основанный на смене одной картинки на другую? Вот этим мы сейчас и займемся. (читать всё…)

Добавлено в Пост-обзор, Статьи. Дата Июль 8th, 2011

23rd
Авг

Как развернуть flash-приложение во весь экран?

Kotofff:
Компонент которым показываешь (проигрываешь) флеш-ролик в программе выравнивай на всю форму, а с самой формой можно так :

код:

procedure TForm1.FormCreate(Sender: TObject);
var
   HTaskbar: HWND;
   OldVal: LongInt;
begin
   try
     HTaskBar := FindWindow(’Shell_TrayWnd’, nil);
     SystemParametersInfo(97, Word(True), @OldVal, 0);
     EnableWindow(HTaskBar, False);
     ShowWindow(HTaskbar, SW_HIDE);
   finally
     with Form1 do
     begin
       BorderStyle := bsNone;
       FormStyle := fsStayOnTop;
       Left := 0;
       Top := 0;
       Height := Screen.Height;
       Width := Screen.Width;
     end;
   end
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
   HTaskbar: HWND;
   OldVal: LongInt;
begin
   HTaskBar := FindWindow(’Shell_TrayWnd’, nil);
   SystemParametersInfo(97, Word(False), @OldVal, 0);
   EnableWindow(HTaskBar, True);
   ShowWindow(HTaskbar, SW_SHOW);
end;