Raf_SE
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору [Setup] AppName=My Program AppVerName=My Program 1.5 DefaultDirName={pf}\My Program DefaultGroupName=My Program ComponentsListTVStyle=true [Languages] Name: russian; MessagesFile: compiler:Languages\Russian.isl [CustomMessages] russian.ComponentsName1=Моя программа™ russian.ComponentsName2=Помощь russian.ComponentsName2_1=Документация russian.ComponentsName2_2=Руководство пользователя russian.ComponentsInfoPanel1=Описание russian.ComponentsInfoPanel2=Наведите курсор мыши на компонент, чтобы прочитать его описание. russian.ComponentsDescription1=Устанавливается обязательно russian.ComponentsDescription2=Помощь russian.ComponentsDescription3=Прочитать документацию russian.ComponentsDescription4=Прочитать руководство пользователя [Components] Name: readme; Description: Справка; Types: full custom; Name: readme\en; Description: "Английская "; Types: full custom; Flags: fixed Name: readme\ru; Description: Русская; Types: full ;************************************************************************* Name: plugs; Description: Плагины; Types: full ; Flags: collapsed Name: plugs\wlx; Description: Внутреннего просмотра; Types: full Name: plugs\wcx; Description: Архиваторные; Types: full Name: plugs\wfx; Description: Системные; Types: full Name: plugs\wfx\CanonCam; Description: CanonCam; Types: full Name: plugs\wfx\PluginManager; Description: PluginManager; Types: full Name: plugs\wfx\Registry; Description: Registry; Types: full Name: plugs\wfx\Services; Description: Services; Types: full Name: plugs\wfx\StartupGuard; Description: StartupGuard; Types: full Name: plugs\wdx; Description: Другие; Types: full [Code] { RedesignWizardFormBegin } // Не удалять эту строку! // Не изменять эту секцию. Она создана автоматически. var DRTF: TRichEditViewer; procedure RedesignWizardForm; begin with WizardForm.ComponentsList do begin Width := ScaleX(201); end; { DRTF } DRTF := TRichEditViewer.Create(WizardForm); with DRTF do begin Name := 'DRTF'; Parent := WizardForm.SelectComponentsPage; Left := ScaleX(208); Top := ScaleY(74); Width := ScaleX(209); Height := ScaleY(131); Color := clMenu; ReadOnly := True; ScrollBars := ssVertical; RTFText := '{\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset204 Tahoma;}{\f1\fnil\fcharset134 Tahoma;}}' + #13#10 + '\viewkind4\uc1\pard\lang1049\f0\fs16\''cd\''e0\''e2\''e5\''e4\''e8\''f2\''e5 \''ea\''f3\''f0\''f1\''ee\''f0 \''ec\''fb\''f8\''e8 \''ed\''e0 \''ea\''ee\''ec\''ef\''ee\''ed\''e5\''ed\''f2, \''f7\''f2\''ee\''e1\''fb \''ef\''f0\''ee\''f7\''e8\''f2\''e0\''f2\''fc \''e5\''e3\''ee \''ee\''ef\''e8\''f1\''e0\''ed\''e8\''e5.\f1\par' + #13#10 + '}' + #13#10 + ''; end; DRTF.TabOrder := 4; { ReservationBegin } // Вы можете добавить ваш код здесь. { ReservationEnd } end; // Не изменять эту секцию. Она создана автоматически. { RedesignWizardFormEnd } // Не удалять эту строку! type TComponentDesc = record Description: String; Index: Integer; end; var Descs: array of TComponentDesc; Indx: Integer; procedure ShowDescription(Sender: TObject; X, Y, Index: Integer; Area: TItemArea); var i: Integer; begin Indx:=-1; for i:= 0 to GetArrayLength(Descs)-1 do begin if (Descs[i].Index=Index) then begin Indx:=i; Break end; end; if (Indx >=0)and(Area=iaItem) then DRTF.Text:= Descs[Indx].Description else DRTF.Text:= ExpandConstant('{cm:ComponentsInfoPanel2}'); end; procedure AddDescription(AIndex: Integer; ADescription: String); var i, k: Integer; begin i:= GetArrayLength(Descs); SetArrayLength(Descs, i+1); Descs[i].Description:= ADescription; Descs[i].Index:= AIndex-1 end; procedure InitializeWizard(); begin RedesignWizardForm; WizardForm.ComponentsList.OnItemMouseMove:= @ShowDescription AddDescription(1, 'Справка'); //первый параметр - это номер компонента, идет последовательно от начала записи компонентов AddDescription(2, 'Эта сказка возникла в устных рассказах, пока не стала историей Великой Войны Кольца, включая множество эскурсов в более древние времена. Она начала создаваться после того, как был написан "Хоббит", и по его первой публикации в 1937 году: но я не торопился с продолжением, потому что хотел прежде собрать и привести в порядок мифологию и легенды древних дней, а для этого потребовалось несколько лет. Я делал это для собственного удовольствия и мало надеялся, что другие люди заинтересуются моей работой, особенно потому что она была преимущественно лингвистической по побуждениям и возникла из необходимости привести в порядок мои отрывочные сведения о языках эльфов.'); //Второй параметр - это собственно описание компонента AddDescription(3, 'Русская справка'); AddDescription(4, 'Плагины'); AddDescription(5, 'Внутреннего просмотра'); AddDescription(6, 'Архиваторные'); AddDescription(7, 'Системные'); AddDescription(8, 'CanonCam'); AddDescription(9, 'PluginManager'); AddDescription(10, 'Registry'); AddDescription(11, 'Services'); AddDescription(12, 'StartupGuard'); AddDescription(13, 'Другие'); end; [ISFormDesigner] WizardFormя0A005457495A415244464F524D0030103804000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F1010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680301020E4578706C69636974486569676874038E010D506978656C73506572496E636802600A54657874486569676874020D00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C696369744865696768740339010000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B4C6963656E7365506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403ED000000F110544E65774E6F7465626F6F6B506167651453656C656374436F6D706F6E656E7473506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403ED0000F11 | Всего записей: 1143 | Зарегистр. 06-08-2006 | Отправлено: 17:09 04-04-2012 | Исправлено: Raf_SE, 17:10 04-04-2012 |
|