Почему-то при копировании русского текста в буффер, текст превращается в набор левых символов

Использую

Clipboard.SetTextBuf(PChar(Edit9.Te xt));

(читать всё…)

Есть изображение каких-то там размеров. Нужно уменьшить его вдвое по всем параметрам, потому что занимает уж слишком много места, очень долго загружается, а такая четкость не нужна.

(читать всё…)

1. Как получить атрибут дата/время изменения файла
2. Что еще важнее: как отредактировать этот самый атрибут

Собственно, задача такая:
1. Запомнить дату изменения файла
2. Провести над файлом действия
3. Вернуть ему изначальную дату изменения

Ну и пунктами 1 и 3 вопросы как это сделать

(читать всё…)

Если строка в столбце Wallet и строка в столбце Hash с теми же значениями встречается далее, то строки с этими же значениями нужно удалить.
не могу понять как можно удалить эти строки, оставив лишь одну из них.
(читать всё…)

Как обрезать изображение по какой-то линии?

(читать всё…)

Подскажите пожалуйста, как Image вывести текст?
Собственно, задача, которую мне нужно выполнить — есть огромное число фотографий, на которых нужно в углу написать название файла.

И второй вопрос — как потом сохранить фото как jpg ?

(читать всё…)

можно ли как-то в delphi сделать так чтобы звук повторялся постоянно. то есть , если закончилась музыка то она снова включается и так пока сам ее не выключишь.

(читать всё…)

Есть несколько Edit’ов. Вопрос: можно ли (и как?), имея на всех один обработчик OnClick, узнать — в какой из них попал курсор — по TabOrder или по координатам относительно формы или ещё как?
Про массив Edit’ов, создаваемых динамически, я в курсе, там это не сложно. А если они статические ?
Ведь цикл в .dfm не предусмотрен, насколько знаю.
Есть GetCursorPos — оно даёт абсолютные координаты курсора. Если брать их — Form1.Top (Left) — это относительно самой формы — или клиентской области?

(читать всё…)

Есть ли способ регулировки по отдельности левого и правого каналов звука?

интересует примерно следующее но так не работает видимо для midi

Samples:= BASS_SampleLoad(false, Pchar(OpenDialog1.filename),0,0,10, BASS_SAMPLE_LOOP);
Channel:= BASS_SampleGetChannel(Samples, false);
BASS_ChannelSetAttribute(Chanel, BASS_ATTRIB_MUSIC_VOL_CHAN + 1, 0.1);
BASS_ChannelSetAttribute(Chanel, BASS_ATTRIB_MUSIC_VOL_CHAN + 2, 0.1);
BASS_ChannelPlay(Channel, FALSE);

Так работает но это балансировка каналов, а мне нужно каждому из каналов задать свой уровень.

Samples:= BASS_SampleLoad(false, Pchar(OpenDialog1.filename),0,0,10, BASS_SAMPLE_LOOP);
Channel:= BASS_SampleGetChannel(Samples, false);
//установка громкости звука
BASS_ChannelSetAttribute(Channel,BASS_ATTRIB_VOL, vol);
//установка баланса
BASS_ChannelSetAttribute(Channel,BASS_ATTRIB_PAN,Ball);
BASS_ChannelPlay(Channel, FALSE);

Есть ли еще способы регулировки по отдельности каждый из каналов?

(читать всё…)

имеется MEMO в который грузится TXT файл в котором имеется 1000 строк (точно не знаю сколько, примерно наверное так и есть), так вот

так же имеется 2 Edit-а
EDIT1 — Указываем что заменить (если будет понятнее, то искать что менять)
EDIT1 — Указываем на что заменить найденный текст

КАК УСКОРИТЬ ЗАМЕНУ В МЕМО??? а то происходит я так понимаю построчно что ли и замена происходит ОЧЕНЬ ДОЛГО

если эту же самую операцию произвести в простом блокноте то там это занимает 1 сек.
(читать всё…)