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

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

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

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

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

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

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

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

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

Alar

Нужно понимать, что границы между чаями и технологиями производств размыты и таблица является примерной для потребителя, и совсем не обязательной для производителя.

тема на форуме

В процессе работы есть необходимость форматировать в единый стиль много документов, которые содержать таблицы и текст. (подготовка для 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) — это относительно самой формы — или клиентской области?

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