Да, есть такое дело. Но у меня сейчас нет времени, чтобы это исправлять.
-
Уважаемые гости и пользователи форума.
Администрация настоятельно рекомендует не регистрировать несколько аккаунтов для одного пользователя. При выявлении наличия мультиаккаунтов будут заблокированы все учетные записи данного пользователя.
Аккаунты, зарегистрированные на временную почту, будут также заблокированы.
Модуль ReDrawText 1.5f
- Автор темы Shegorat
- Дата начала
-
- Теги
- bbcode inno setup redrawtext
Увы, стандартными средствами никак. Нужно перехватывать оконную процедуру компонент листа и вручную отрисовывать элементы.
Ммм, ну наверно потому что версию 1.5e4 делал не я.Почему в этой версии отсутствует тень на тексте?
В этой тень есть.
Shift85
Старожил
Shegorat, Добавьте тень пожалуйста.
Как будет время. На настоящий момент я занят другими вещами.
Нет. Вообще по хорошему, там бы всё переписать, чтобы избавиться от ненужного хлама.
В общем на тест. Переписал код. Добавил два новых бб-кода
[url=link]description[/url], [url=link][/url]
[shadow=color, diffx, diffy]text[/shadow], [shadow=color, diff]text[/shadow], [shadow=color]text[/shadow]
Функции несколько изменились, внимательно смотрите модуль. Если всё будет нормально, потом добавлю примеры и оформлю как ресурс.
Обо всех недоработках и багах сообшайте в теме. Надеюсь ничего не упустил..
[url=link]description[/url], [url=link][/url]
[shadow=color, diffx, diffy]text[/shadow], [shadow=color, diff]text[/shadow], [shadow=color]text[/shadow]
Функции несколько изменились, внимательно смотрите модуль. Если всё будет нормально, потом добавлю примеры и оформлю как ресурс.
Обо всех недоработках и багах сообшайте в теме. Надеюсь ничего не упустил..
Shegorat, link не смотрел. Что увидел и подправил
и
Код:
procedure SetRWAlignment(var RWLbl: TRedrawedLabel; const Align: TAlignment);
var
i, k, c, w, d: Integer;
begin
c:= 0;
for i:= 0 to (RWLbl.RowCount - 1) do begin
w:= RWlbl.Rows[i].RowWidth;
case Align of
taLeftJustify : d:= RWLbl.Left+0;
taCenter : d:= RWLbl.Left+(RWLbl.Width div 2) - (w div 2);
taRightJustify: d:= RWLbl.Left+RwLbl.Width - w;
end;
for k:= c to (c + RWLbl.Rows[i].RowItems - 1) do begin
RWLbl.Parts[k].Main.Left:= d;
if (RWLbl.Parts[k].Shadow <> nil) then
RWLbl.Parts[k].Shadow.Left:= d + RWLbl.Parts[k].DiffX;
d:= d + RWLbl.Parts[k].Main.Width;
end;
c:= c + RWLbl.Rows[i].RowItems;
end;
end;
Код:
procedure ShowRWLabel(var RWLbl: TRedrawedLabel);
var
i: Integer;
begin
for i:= 0 to RWLbl.TotalItems - 1 do begin
if (RWLbl.Parts[i].Shadow <> nil) then
RWLbl.Parts[i].Shadow.Show();
RWLbl.Parts[i].Main.Show();
end;
end;
// ... поднял выше, а то Shadow лейбл перекрывал главный
if (tFlags and FS_SHADOW <> 0) then begin
Result.Parts[d].Shadow:= TLabel.Create(pParent);
Result.Parts[d].Shadow.Autosize:= false;
Result.Parts[d].Shadow.Font:= tmpFont;
Result.Parts[d].Shadow.Font.Color:= ShadowColor;
Result.Parts[d].Shadow.SetBounds(tLeft + sdDiffX, tTop + sdDiffY, tWidth, tHeight);
Result.Parts[d].Shadow.Transparent:= true;
Result.Parts[d].Shadow.Caption:= tText2;
Result.Parts[d].Shadow.Parent:= pParent;
Result.Parts[d].DiffX:= sdDiffX;
Result.Parts[d].DiffY:= sdDiffY;
end;
Result.Parts[d].Main:= Tlabel.Create(pParent);
Result.Parts[d].Main.Autosize:= false;
Result.Parts[d].Main.Font:= tmpFont;
Result.Parts[d].Main.SetBounds(tLeft, tTop, tWidth, tHeight);
Result.Parts[d].Main.Transparent:= true;
Result.Parts[d].Main.Caption:= tText2;
//...
Последнее редактирование:
да ) p.s. т.е. ждём.
Вложения
Последнее редактирование:
Ок, West4it, договорились. Как будет время - обновлю. А шо таки надо?
Можно сразу сэмпл для ленивых? Чтобы воспроизвести у себя на машине.
Багрепорты - сюда https://gitlab.com/Shegorat/redrawtext