ссылка на форум

vampik: Вот я нарисовал доску, загрузил изображения.
Помогите расставить их на доску ,я вообще без понятия, единственное, что мне приходит в голову это рисовать по отдельности квадратики то есть 64 штуки без цикла и на них по отдельности налаживать текстуры. Покажите как это можно сделать по легче ,если можно кодом.

Скачать

Сапёр на Delphi 2010

Скачать

Проводил исследования скорости записи файлов, с целью установления зависимости времени записи от количество файлов. Для работы с файлами использовал чистый WinAPI. Исследование проводилось на файлах разных размеров, типов и расширений. Хочу поделиться на мой взгляд интересными результатами исследования на примере одного файла (с другими файлами результаты идентичны в физическом смысле): (читать всё…)

Jene4ka

Подскажите, можно ли как-то форму в Делфи сделать не обычной квадратной, а другой? Не просто обрезать часть формы и закруглить края, а вообще сделать форму, например, в виде автобуса? (читать всё…)

Подскажите, как сделать перебор строк из memo и сравнивать со строкой в Edit? (читать всё…)

Компоненты и очень много различных примеров их использования.

скачать

ссылка на форум

Максимально возможный размер файла XLSX,

некоторые из ограничений указаны в этой книге:

Скачать книгу — Excel 2007

ссылка на форум

Саундтрек из игры Шерлок Холмс «Загадка серебряной сережки»

скачать

ссылка на форум

Есть массив данных, который считывается из бинарного файла с помощью TBinaryReader.

Вот полный код

скачать

ради примера выкладываю 2 файла типовых данных (структура с отметками времени и без цвета). Файл With_thinpoints — содержит сдвоенные данные (кусок), файл Without_thinpoints — каждая точка уникальная.

Скачать 1 файл

Скачать 2 файл

ссылка на форум

Проблема решена следующим образом:

procedure TFormMain.StartWME;
var
h, h2: HWND;
begin
  h:=findwindow(nil, 'Кодировщик Windows Media');
  SendMessage(h, WM_SYSCOMMAND, SC_HOTKEY, h);
  SendMessage(h, WM_SYSCOMMAND, SC_RESTORE, h);
  h2:=findwindowex(h, 0, 'TEdit' ,nil);
  caption:=format('%d - %d', [h,h2]);
  SetForegroundWindow(h);
  Windows.SetFocus(h2);
  keybd_event(VK_CONTROL, 0, 0, 0);
  keybd_event(VK_SHIFT, 0, 0, 0);
  keybd_event(ord('E'), 0, 0, 0);
  keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
  keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
  keybd_event(ord('E'), 0, KEYEVENTF_KEYUP, 0);
sleep(250);
if (IsWindowVisible(h) and (GetWindow (h, GW_OWNER) = 0) and (GetParent(h) = 0))
then PostMessage(h, WM_SYSCOMMAND, SC_MINIMIZE, 0);
end;

ссылка на форум

Скачать