В процессе работы есть необходимость форматировать в единый стиль много документов, которые содержать таблицы и текст. (подготовка для HTML)

В макросах не сильна, только начинаю разбираться и читать. Помогите с написанием макроса.

В итоге документы должны иметь такой вид:
Шрифт Verdana 8
Удалить все колонтитулы
Таблицы по середине, по ширине страницы, границы определенные (файл прикрепляю).

Желательно, чтобы внутри таблиц первый столбец по левому краю выравнивание, Шапка — по центру, остальные ячейки по нижнему правому краю.

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

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

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

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

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

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

На форме есть TImage с изображением. Пытаюсь вставить в Excel: копирую изображение из TImage в буфер обмена. Затем вставляю в Excel с помощью команды PasteSpecial. В итоге на PasteSpecial все время возникает исключение EOleException с текстом:
Метод PasteSpecial из класса Worksheet завершен неверно.

procedure TfmMain.TestBtnClick(Sender: TObject);
var Img: TImage;    
    xla: Variant;
    xls: Variant;
begin
  Img:=TImage.Create(nil);

  xla := CreateOleObject('Excel.Application');
  xla.Workbooks.Add;
  xls := xla.Workbooks[1].WorkSheets[1];
  xls.Name := 'Sheet1';
  xla.Visible:=True;

  Clipboard.Assign(Img.Picture);
   
  xla.Cells(5,5).Select;
  xls.PasteSpecial(5,False,False,False,0,EmptyParam,EmptyParam);  

  Img.Free;
end;

Версия Lazarus: 1.6.4
Версия FPC: 3.0.4
Я думаю, что все дело в том, что неправильно передаются параметры в PasteSpecial. Если у кого-нибудь есть рабочий вариант, поделитесь пожалуйста.

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

Есть несколько 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 сек.
(читать всё…)

Выставляется система координат в центре клиентской области рисования. Диапазон по оси Y фиксированный и определяется константой WORLD_HEIGHT. Диапазон по оси X плавающий и зависит от соотношения сторон клиентской области окна. Определяется система координат ортографической матрицей проекции по следующему алгоритму:

    void resizeGL(int w, int h) override {
        glViewport(0, 0, w, h);
        float aspect = (float) w / h;
        float worldWidth = aspect * WORLD_HEIGHT;
        m_projMatrix.setToIdentity();
        m_projMatrix.ortho(-worldWidth / 2.f, worldWidth / 2.f,
                           -WORLD_HEIGHT / 2.f, WORLD_HEIGHT / 2.f, 50.f, -50.f);
    }

Метод resizeGL(int w, int h) вызывается автоматически: первый раз после создания окна, а последующие разы вызвается каждый раз при изменении размера окна.

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

Как написать макрос, чтобы он на листе искал ячейку , которая залита КРАСНЫМ цветом. И в случае если таких ячеек нет, появлялась надпись — «изменений нет», а в случае обнаружения красных ячеек появлялась надпись — «Есть изменения».

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