![](/logo_grey.gif)
Последние записи
- Сравнение языков на массивах. Часть 2
- wprintf как напечатать кириллицу
- Взаимодействие через командную строку
- Сравнение языков на массивах. Часть 1
- Сравнение языков по скорости
- Чтение огромных xml-файлов
- Как в Python+Selenium webdriver открыть новую вкладку в уже открытом браузере?
- Lazarus, проверка существования строки таблице
- BASM и record, обращение к полям записи
- Web PHP Framework Symfony
![](http://programmersclub.ru/slurm3.jpg)
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
![](http://programmersclub.ru/katajpg.jpg)
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
7th
Янв
Как ускорить замену текста в MEMO?
имеется MEMO в который грузится TXT файл в котором имеется 1000 строк (точно не знаю сколько, примерно наверное так и есть), так вот
так же имеется 2 Edit-а
EDIT1 — Указываем что заменить (если будет понятнее, то искать что менять)
EDIT1 — Указываем на что заменить найденный текст
КАК УСКОРИТЬ ЗАМЕНУ В МЕМО??? а то происходит я так понимаю построчно что ли и замена происходит ОЧЕНЬ ДОЛГО
если эту же самую операцию произвести в простом блокноте то там это занимает 1 сек.
(читать всё…)
10th
Дек
Конвертирование кодов в символы (URLDecode в Delphi)
имеем строку:
%7B%22data%22%3A%5B%7B%22%D0%A0%D0%B0%D0%B7%D0%BC%D0%B5%D1%80%20%D0%B1%D1%83%D1%84%D0%B5%D1%80%D0%BE%D0%B2%22%3A%2210%22%7D%5D%7D
необходимо преобразовать в:
{"data":[{"Размер буферов":"10"}]}
и наоборот. Как это сделать?
И как называется такое преобразование?
25th
Ноя
Самый быстрый способ прорисовки на компоненте Image
Подскажите каким методом можно максимально уменьшить нагрузку на компьютер при прорисовке изображений на компоненте Image 1?
Я пробовал рисовать через Canvas.Draw — но если нужно рисовать много изображений и хорошей частотой кадров — начинаются лаги (даже если ограничить прорисовку только видимой частью изображения)
Так же пробовал рисовать через bitblt, но нагрузка тоже сильно не уменьшилась.
Пробовал через движок Andorra2d, но там, если я правильно понял — прорисовка идет только в само окно формы, на компонентах рисовать нельзя (по крайней мере такой информации я не нашел).
Можно ли средствами DirectX, OpenGL или еще какими-то сделать прорисовку изображений максимально быстрой на одном из визуальных компонентах (Image, PaintBox и т.д.)? И есть ли существенная разница в скорости прорисовки Bmp и Jpeg с учетом разницы размера файлов одинакового разрешения? Рисую на канве через компонент Timer.
25th
Авг
Индикатор громкости
В плейер нужно встроить индикатор громкости, какой функцией это можно сделать в Delphi. И есть ли возможность разграничить звук по частотам?
18th
Авг
Как управлять звуком правой и левой колонок с помощью TrackBar?
Как можно управлять звуком правой и левой колонок с помощью TrackBar? Ну чтобы можно было увеличить звук определённого динамика перетаскиванием указателя.
Левый Динамики Правый
|- -| |- -|
|- -| |- -|
|- -| |- -|
|- -| |- -|
|- -| |- -|
|- -| |- -|
|- -| |- -|
|-0-| |-0-|
14th
Июл
Событие по изменению Edit.Text
Как сделать так, чтобы выполнялась определённая процедура при изменении значения Edit.Text, но только в том случае если значение отличается от бывшего там ранее текста?
30th
Янв
Прозрачность тайлсета в TPNGImage
Не могу разобраться, почему нет прозрачности при отрисовке на канве.
Загружаю тайлсет tileset.png, в котором есть прозрачность в PNGImage с именем Tileset. Далее рисую на канве компонента PNGImage с именем Surface этой процедурой:
procedure TForm1.DrawTile(const X, Y, Index: Integer);
begin
Surface.Canvas.CopyRect(Bounds(X * TileSize, Y * TileSize, TileSize,
TileSize), Tileset.Canvas, Bounds((Index mod TilesetWidth) * TileSize,
(Index div TilesetWidth) * TileSize, TileSize, TileSize));
end;
…вот так:
procedure TForm1.FormPaint(Sender: TObject);
var
X, Y: Integer;
begin
for Y := 0 to MapHeight - 1 do
for X := 0 to MapWidth - 1 do
begin
DrawTile(X, Y, Map[lrGround][X][Y]);
DrawTile(X, Y, Map[lrObject][X][Y]);
end;
Canvas.Draw(0, 0, Surface);
end;
Ожидается правильная отрисовка с альфа-каналом, но не тут то было. Вобщем не могу понять, что провтыкал
20th
Янв
Как с помощью Direct2D рисовать в Icon’ке (HIcon)
Допустим я создал ID2D1Bitmap *bitmap, и иконку.
А вот как нарисовать ту же линию или фигуру?
18th
Янв
Мерцание при движении Image delphi 7 clx
Как убрать мерцание при движении Image в Delphi 7 CLX
Именно CLX а не VCL
17th
Янв
Перевод байтов в килобайты и мегабайты в Делфи
Как вывести размер файла не в байтах, а в Кб или Мб?
Облако меток
css реестр ассемблер timer SaveToFile ShellExecute программы массив советы word MySQL SQL ListView pos random компоненты дата LoadFromFile form база данных сеть html php RichEdit indy строки Win Api tstringlist Image мысли макросы Edit ListBox office C/C++ memo графика StringGrid canvas поиск файл Pascal форма Файлы интернет excel Microsoft Office Excel winapi журнал ПРОграммист DelphiКупить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
![пеллетные котлы](http://programmersclub.ru/respective.jpg)
пеллетные котлы
![пеллетный котел](http://programmersclub.ru/emtas.jpg)
Пеллетный котел Emtas
![форум программистов](http://programmersclub.ru/banf336х280.gif)
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)