firefly2005
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
AlexDJ666 Я не гуру, но всё же попытаюсь ответить.
Цитата:| Сейчас вот пытаюсь разобраться как изменить оформление Panel, а вернее, бордюра. Есть панель, в которой описывается компонент и мне бы хотелось сделать бордюр другого цвета и другой толщины. Какими переменными можно это задать? |
Цвет бордюра видимо привязан к цвету основной формы, т.е. я как заметил он меняется вместе с ним.
Могу посоветовать поиграться с комбинацией 2-х бордюров (внутр и внешнего)-bvNone, bvLowered, bvRaised,bvSpace и
стиля бордюров BorderStyle-bsSingle, bsNone, bsDialog, bsVertical, bsHorizontal, bsSizeable, bsToolWindow, bsSizeToolWin.
вот примерно в такой комбинации
Panel.BevelInner := bvLowered;
Panel.BevelOuter:= bvRaised;
Panel.BorderStyle := bsSingle;
PS: по цвету, особенный Color писать в форме $000000
Я подбор цвета фона и шрифтов делаю пользуясь http://designa.pisem.net
а переводом цвета в код программой http://www.nattyware.com/pixie.html
там навести курсором и он покажет, например, HEX 0xFAFFC6- вот и надо писать
Text.Font.Color := $FAFFC6;
Цитата:| 1. На новой странице создаю ListBox, в котором CheckBox и Label. И почему-то текст обрезается в листбоксе. Ставлю "Label.Autosize:=True", но это не помогает. Как можно исправить? |
У меня при подобных срабатывает
Text.AutoSize := False
Text.WordWrap := True
может быть у тебя проблема в том что ширина большая, уходит за границы формы- Width?
Если не получается, то принудительно перенеси сам. Вроде вот так:
Text.Caption := 'В игре отсутствует- фоновая музыка и возможность прохождения '+ #10#13 + 'стандартных кампаний. Присутствует русская озвучка ';
#10#13 здесь перейти на след строку,
#10#13#10 через одну строку, соединяется через + (знак плюс), содержание берется в одинарные кавыки
Цитата:| С дополнительными страницами и скриншотами я разобрался, но пока не могу понять одну вещь - как связать фактически существующие компоненты (типы и файлы из соответствующих секций) с теми списками, которые рисую сам? У меня просто между моих нарисованных страниц вклинивается страница с выбором компонентов, а мои страницы вроде как сами по себе. |
Так это, я так понимаю под твои новые странички, надо по другому. Я так понял, вызывая секцию [components] ты вызываешь мастер-WizardForm-wpSelectComponents. Потому и получается всё отдельно. Ты исключи (удали) совсем эту секцию.
Посмотри примеры в Program Files\Inno Setup 5\Examples CodeClasses.iss и CodeDlg.iss.
А привязку к свой форме делай, например, через подобное (у меня работает)
Цитата: [Files]
Source: C:\NoMusic\*; DestDir: {app}; Check: NoMusic; Flags: ignoreversion overwritereadonly external
[Code]
procedure CreateTheWizardPages;
var Page: TWizardPage;
begin
Page:=CreateCustomPage(wpWelcome, 'Выберите вариант установки ', ' Компакт-диск не требуется';
NoMusicBtn:=TRadioButton.Create(Page);
..................
NoMusicBtn.Checked:=GetPreviousData('NoMusic', '1') = '1';
...................
end;
procedure RegisterPreviousData(PreviousDataKey: Integer);
begin
SetPreviousData(PreviousDataKey, 'NoMusic', IntToStr(Ord(NoMusicBtn.Checked)));
........................
end;
function NoMusic: Boolean;
begin
Result:=NoMusicBtn.Checked;
end;
...... |
|
