Последние записи
- Перенести программу из Delphi в Lazarus
- Определить текущую ОС
- Автоматическая смена языка (раскладки клавиатуры)
- Сравнение языков на массивах. Часть 2
- wprintf как напечатать кириллицу
- Взаимодействие через командную строку
- Сравнение языков на массивах. Часть 1
- Сравнение языков по скорости
- Чтение огромных xml-файлов
- Как в Python+Selenium webdriver открыть новую вкладку в уже открытом браузере?
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
25th
Июн
Отрисовка текста на Canvas с перекрытием букв друг друга
Имеется задача отрисовывать текст по выбранному шрифту на Image в определенном формате. При этом текст сразу отрисовываться сразу одной строкой не может, т.к. элементы строки содержат разный цвет, поэтому отрисовка текста происходит в цикле со смещением вправо.
Проблема возникает в том, что на выходе текст обрезается, т.к. по каким-то причинам некорректно рассчитывается его ширина. Особенно это проглядывается при выборе курсива — там вообще ширина получается идентичной, что и без курсива почему-то. Но и без курсива проблема имеется.
Упрощенный пример задачи:
procedure TForm2.Button1Click(Sender: TObject);
var
i, WidthShift: Integer;
str, delim: string;
Font: TFont;
Colors: TArray<TColor>;
begin
Font := TFont.Create;
Colors := TArray<TColor>.Create(clRed, clBlack, clGreen);
WidthShift := 10;
if FontDialog1.Execute then
begin
Font.Assign(FontDialog1.Font);
end;
Image1.Canvas.Brush.Color := clWhite;
Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
Image1.Canvas.Font.Assign(Font);
delim := '/';
for i := 0 to 2 do
begin
str := '0';
if i <> 0 then
str := delim + str;
Image1.Canvas.Font.Color := Colors;
Image1.Canvas.TextOut(WidthShift, 100, str);
WidthShift := WidthShift + Image1.Canvas.TextWidth(str);
end;
Font.Free;
end;
В первом случае текст обычный и все равно обрезается. А во втором курсив — там вообще все плохо.
В качестве решения можно было бы рассчитывать какой-то промежуточный запас (относительно высоты шрифта или еще по какой-то зависимости) и добавлять его на каждой итерации, однако по условиям задачи пробелов быть не должно.
Подскажите, пожалуйста, как можно побороть данную проблему?
15th
Авг
Как сделать на Delphi чтобы персонаж обходил препятствия
Как сделать на Delphi чтобы персонаж обходил препятствия?
22nd
Дек
Как сделать буквы на картинке жирными
Как сделать буквы или цифры или всё вместе на изображении толще или пожирнее ?
Изображение уже содержит буквы или цифры нужно как то обрабатывать.
28th
Сен
Как нарисовать две перпендикулярных линии(уголок)?
Вот как на иллюстрации, только без заливке и наклонной линии.
13th
Авг
Движение обьекта на заданный угол
У меня есть картинка, которая должна смещаться относительно координат х и у, в зависимости от угла поворота изображения. Я сделал следующие формулы подсчета передвижения: (читать всё…)
30th
Июн
Соединить 2 edit линией
у меня есть 2 Edit могу ли я их соединить линией ? да так, что бы перемещая любой из них соединение линией не прекращалось. Соединение желательно производить по центру. (читать всё…)
18th
Июн
Объединить 2 первых ячейки по горизонтали в DBgridEh
Как объединить несколько горизонтальных ячеек в одну большую? (читать всё…)
11th
Мар
Как сделать скриншот во время игры?
xRamzeSx
procedure TForm1.Button1Click(Sender: TObject);
var
bmp: TBitmap;
DC: HDC;
begin
bmp:=TBitmap.Create;
bmp.Width:=1024;
bmp.Height:=768;
DC:=GetDC(0);
bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
DC, 0, 0, SRCCOPY);
bmp.SaveToFile(FormatDateTime('dd/mm/yy, hh-nn-ss', Now) + '.bmp');
ReleaseDC(0, DC);
bmp.Free;
end;
Облако меток
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
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)