Sergey_Demchuk
Silver Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
[CustomMessages]
RUS.ComponentsInfoPanel1=Описание
RUS.ComponentsInfoPanel2=Наведите курсор мыши на компонент, чтобы прочитать его описание.
RUS.ComponentsDescription1=Устанавливается обязательно
RUS.ComponentsDescription2=1
RUS.ComponentsDescription3=1
RUS.ComponentsDescription4=1
RUS.ComponentsDescription5=1
RUS.ComponentsDescription6=1
RUS.ComponentsDescription7=1
RUS.ComponentsDescription8=1
RUS.ComponentsDescription9=1
RUS.ComponentsDescription10=1
RUS.ComponentsDescription11=1
RUS.ComponentsDescription12=1
RUS.ComponentsDescription13=1
RUS.ComponentsDescription14=1
RUS.ComponentsDescription15=1
RUS.ComponentsDescription16=1
RUS.ComponentsDescription17=1
RUS.ComponentsDescription18=1
RUS.ComponentsDescription19=1
RUS.ComponentsDescription20=1
RUS.ComponentsDescription21=1
[Files]
Source: "compiler:dll pack\descctrl.dll"; Flags: dontcopy solidbreak noencryption
[Messages]
ComponentsDiskSpaceMBLabel=
[Code]
var
Check: array [0..12] of TCheckBox;
function enabledesc(ComponentsListHandle: HWND; DescLabelHandle: HWND; DescStrings: PChar): BOOL; external 'enabledesc@files:descctrl.dll stdcall';
function disabledesc(): BOOL; external 'disabledesc@files:descctrl.dll stdcall';
var
Info: TNewStaticText;
InfoCaption: TNewStaticText;
InfoPanel: TPanel;
procedure DeinitializeSetup2();
begin
disabledesc();
end;
procedure ClickCheck(Sender: TObject);
begin
if TNewCheckListBox(Sender).ItemIndex = 5 then
WizardForm.ComponentsList.Checked[10]:=false;
if TNewCheckListBox(Sender).ItemIndex = 10 then
WizardForm.ComponentsList.Checked[5]:=false;
end;
//procedure OnClickCheck(Sender: TObject);
//begin
//Case Sender of
//WizardForm.ComponentsList.Checked[6]:
//if WizardForm.ComponentsList.Checked[5]=true then WizardForm.ComponentsList.Checked[10]:=false;
//WizardForm.ComponentsList.Checked[11]:
//if WizardForm.ComponentsList.Checked[11]=true then WizardForm.ComponentsList.Checked[6]:=false;
//end;
//MsgBox('1', mbInformation, MB_OK);
//end;
procedure InitializeWizard3();
begin
WizardForm.TYPESCOMBO.Visible:= false;
WizardForm.ComponentsList.Height := WizardForm.ComponentsList.Height + WizardForm.ComponentsList.Top - WizardForm.TYPESCOMBO.Top;;
WizardForm.ComponentsList.Top := WizardForm.TYPESCOMBO.Top+20;
WizardForm.ComponentsList.Width := ScaleX(200);
InfoPanel := TPanel.Create(WizardForm);
InfoPanel.Parent := WizardForm.SelectComponentsPage;
InfoPanel.Caption := '';
InfoPanel.Top := WizardForm.ComponentsList.Top;
InfoPanel.Left := WizardForm.ComponentsList.Top + ScaleX(156);
InfoPanel.Width := ScaleX(200);
InfoPanel.Height := WizardForm.ComponentsList.Height;
InfoPanel.BevelInner := bvRaised;
InfoPanel.BevelOuter := bvLowered;
InfoCaption := TNewStaticText.Create(WizardForm);
InfoCaption.Parent := WizardForm.SelectComponentsPage;
InfoCaption.Caption := 'Информация:';
InfoCaption.Left := WizardForm.ComponentsList.Top + ScaleX(224);
InfoCaption.Top := InfoPanel.Top - ScaleY(5);
InfoCaption.Font.Color := clActiveCaption;
Info := TNewStaticText.Create(WizardForm);
Info.Parent := InfoPanel;
Info.AutoSize := False;
Info.Left := ScaleX(6);
Info.Width := ScaleX(188);
Info.Top := ScaleY(12);
Info.Height := WizardForm.ComponentsList.Height - ScaleY(18);
Info.WordWrap := true;
Info.Caption := ExpandConstant('{cm:ComponentsInfoPanel2}');
Info.WordWrap := true;
enabledesc(WizardForm.ComponentsList.Handle,Info.Handle,
ExpandConstant('{cm:ComponentsDescription1};')+
ExpandConstant('{cm:ComponentsDescription2};')+
ExpandConstant('{cm:ComponentsDescription3};')+
ExpandConstant('{cm:ComponentsDescription4};')+
ExpandConstant('{cm:ComponentsDescription5};')+
ExpandConstant('{cm:ComponentsDescription6};')+
ExpandConstant('{cm:ComponentsDescription7};')+
ExpandConstant('{cm:ComponentsDescription8};')+
ExpandConstant('{cm:ComponentsDescription9};')+
ExpandConstant('{cm:ComponentsDescription10};')+
ExpandConstant('{cm:ComponentsDescription11};')+
ExpandConstant('{cm:ComponentsDescription12};')+
ExpandConstant('{cm:ComponentsDescription13};')+
ExpandConstant('{cm:ComponentsDescription14};')+
ExpandConstant('{cm:ComponentsDescription15};')+
ExpandConstant('{cm:ComponentsDescription16};')+
ExpandConstant('{cm:ComponentsDescription17};')+
ExpandConstant('{cm:ComponentsDescription18};')+
ExpandConstant('{cm:ComponentsDescription19};')+
ExpandConstant('{cm:ComponentsDescription20};')+
ExpandConstant('{cm:ComponentsDescription21};')
);
WizardForm.ComponentsList.OnClickCheck:=@ClickCheck;
end;
|
