Discussion :

[vbnet3]

je suis en trin de faire une programme désinstallation avec la personnalisation des pages d'assistant d’installation avec Inno Setup.

le problème que j'ai pas trouvé comment modifié la taille de page assistant d’installation par ce que la taille par Default de page est petite je cherche comment augmenté la taillé
Mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure CreateTheWizardPages;
var
  Page: TWizardPage;
 
  RichEditViewer: TRichEditViewer;
begin
 
    { TRichViewer }
 
  Page := CreateCustomPage(wpWelcome, 'Custom wizard page controls', 'TRichViewer');
 
  RichEditViewer := TRichEditViewer.Create(Page);
  RichEditViewer.Width := Page.SurfaceWidth;
  RichEditViewer.Height := Page.SurfaceHeight;
  RichEditViewer.Parent := Page.Surface;
  RichEditViewer.ScrollBars := ssVertical;
  RichEditViewer.UseRichEdit := True;
  RichEditViewer.RTFText := 'test de sndvfn,kv dfbkgdfg pdfjgdf ';
  RichEditViewer.ReadOnly := True;
 
end;
procedure InitializeWizard();
 
begin
   CreateTheWizardPages;
 
 end;

[philnext]

Et par tes propriétés
Page.SurfaceHeight & Page.SurfaceWidth ?

[vbnet3]

non je peux pas utilisé... par ce que ces options pour la lecture seulement

[ouiouioui]

moi je ne comprend pas ce que tu veux faire, alors voila un exemple le setup est agrandi et le richedit prend toute la form

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
[code]                            
var
  Page: TWizardPage; 
  RichEditViewer: TRichEditViewer;
 
procedure CreateTheWizardPages;
begin    
  Page := CreateCustomPage(wpWelcome, 'Custom wizard page controls', 'TRichViewer');    
  RichEditViewer := TRichEditViewer.Create(wizardform);
  RichEditViewer.Width := wizardform.Width;
  RichEditViewer.Height := wizardform.Height;
  RichEditViewer.Parent := wizardform;
  RichEditViewer.ScrollBars := ssVertical;
  RichEditViewer.UseRichEdit := True;
  RichEditViewer.RTFText := 'test de sndvfn,kv dfbkgdfg pdfjgdf ';
  RichEditViewer.ReadOnly := True;  
end;
 
procedure InitializeWizard();  
begin 
  wizardform.width := 700;
  wizardform.height := 500;
  CreateTheWizardPages;   
 end;