Sergey_Demchuk
Silver Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору [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 OnClick(Sender: TObject); begin Case Sender of WizardForm .TasksList.Checked[6]: if WizardForm .TasksList.Checked[6]=true then WizardForm.TasksList.Checked[11]:=false; WizardForm.TasksList.Checked[11]: if WizardForm.TasksList.Checked[11]=true then WizardForm.TasksList.Checked[6]:=false; end; MsgBox('1', mbInformation, MB_OK); end; procedure InitializeWizard3(); begin WizardForm.TypesCombo.Visible:=False; //WizardForm.TypesCombo.Top:=WizardForm.TypesCombo.Top-30 WizardForm.ComponentsList.Height := ScaleY(181) - WizardForm.TypesCombo.Top; WizardForm.ComponentsList.Top := WizardForm.TypesCombo.Top; WizardForm.ComponentsList.Width := ScaleX(417); InfoPanel := TPanel.Create(WizardForm); InfoPanel.Parent := WizardForm.SelectComponentsPage; InfoPanel.Caption := ''; InfoPanel.Top := ScaleY(190); InfoPanel.Left := ScaleX(0); InfoPanel.Width := ScaleX(417); InfoPanel.Height := ScaleY(58); InfoPanel.BevelInner := bvRaised; InfoPanel.BevelOuter := bvLowered; InfoCaption := TNewStaticText.Create(WizardForm); InfoCaption.Parent := WizardForm.SelectComponentsPage; InfoCaption.Caption := ExpandConstant('{cm:ComponentsInfoPanel1}'); InfoCaption.Left := ScaleX(7); InfoCaption.Top := InfoPanel.Top - ScaleY(6); InfoCaption.Font.Color := clActiveCaption; Info := TNewStaticText.Create(WizardForm); Info.Parent := InfoPanel; Info.AutoSize := False; Info.Left := ScaleX(6); Info.Width := ScaleX(403); Info.Top := ScaleY(12); Info.Height := ScaleY(24); 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};')+ ExpandConstant('{cm:ComponentsDescription22};')+ ExpandConstant('{cm:ComponentsDescription23};') ); end; |