Последние записи
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
- Мелодия в Pascal.ABC.Net с помощью System.Console.Beep — задержка воспроизведения звука
16th
Авг
Кликнуть по Flash содержимому в WebBrowser
В WebBrowser’е загружается страница с видео на YouTube. После этого нужно кликнуть (или послать команду) по кнопке Play и убрать звук (Mute). Как это сделать? (читать всё…)
8th
Июл
ActionScript3: Кэширование анимации и ее проигрывание (blitting)
Всем, кто имеет хоть какое– нибудь отношение к игроиндустрии или созданию спецэффектов, хорошо известно, насколько ресурсоемка такая вещь, как отображение векторной анимации и ее расчет в процессе рендеринга. Но к счастью, разработчики оставили нам путь к всеобщему процветанию и дали нам возможность использовать такую великолепную вещь, как вывод на экран предварительно откешированного в растр изображения. Помните, как устроен кинематограф, основанный на смене одной картинки на другую? Вот этим мы сейчас и займемся. (читать всё…)
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;
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;
28th
Авг
Средства по созданию сайтов
Этот раздел создавался, как ознакомление со средствами создания веб-сайта: flash технологией, html, таблицами стилей CSS, CGI сценариями.
Облако меток
реестр регулярные выражения ассемблер timer ShellExecute word SaveToFile советы массив программы random pos SQL MySQL ListView дата компоненты form RichEdit LoadFromFile база данных сеть html php indy строки Win Api tstringlist Image мысли макросы Edit ListBox office C/C++ memo canvas графика StringGrid поиск файл Pascal форма Файлы интернет excel Microsoft Office Excel winapi журнал ПРОграммист Delphi
