Вопрос How to add a simple line border to page that shows rtf file?

[nizcoz]

On inno 5.5.1 ee2 I see this: (i want to see this on inno 5.5.9)

And with inno 5.5.9 i see this:

 

[Nemko]

Maybe:

LicenseMemo.UseRichEdit:=True;
LicenseMemo.ThemeBorder:False;

 

[nizcoz]

Thanks @Nemko but do not work on inno 5.5.9, ¨unknown identifier `theme border´

 

[Nemko]

Now I know, I just do not quite understand a foreign language. This will help: LicenseMemo.BorderStyle:=bsNone or LicenseMemo.BorderStyle:=bsSingle

 

[nizcoz]

@Nemko

with LicenseMemo.BorderStyle:=bsSingle : second image that i upload (do not work)

With LicenseMemo.BorderStyle:=bsNone : do not see any lines around : is it possible to create a panel to replace simple line border?

 

[Nemko]

Is it possible to create a panel to replace simple line border

Maybe this:

Спойлер: Example

[Setup]
AppName=License
AppVerName=License
DefaultDirName={sd}\License

[Files]
Source: MyLicense.rtf; Flags: dontcopy

[Code]

var
  ReadPanel: TPanel;
  ReadmeME : AnsiString;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm:=False;
end;

procedure CancelProc(Sender: TObject);
begin
  WizardForm.CancelButton.OnClick(WizardForm.CancelButton);
end;

procedure InitializeWizard;
begin

  ExtractTemporaryFile('MyLicense.rtf');
  LoadStringFromFile(ExpandConstant('{tmp}')+'\MyLicense.rtf', ReadmeME);

with WizardForm do begin
  InnerNotebook.Hide; OuterNotebook.Hide; Bevel.Hide;
  BackButton.Width:=0; NextButton.Width:=0;
  CancelButton.Width:=0; GroupBrowseButton.Width:=0;
end;

ReadPanel:=TPanel.Create(wizardForm);
with ReadPanel do begin
  Parent:=WizardForm;
  SetBounds(10, 10, WizardForm.Width - 25, WizardForm.Height - 100);
  BorderStyle:=bsSingle;
end;

with WizardForm.LicenseMemo do begin
  Parent:=ReadPanel;
  SetBounds(0, 0, ReadPanel.Width - 4, ReadPanel.Height - 4);
  BorderStyle:=bsNone;
  RTFText:= ReadmeME;
end;

with TButton.Create(WizardForm) do begin
  Parent:=WizardForm;
  SetBounds(390,320,100,24);
  Caption:='Close Example';
  OnClick:=@CancelProc;
end;
end;

 

[nizcoz]

@Nemko , do not work on inno 5.5.9 and inno 5.5.1 ee2. I see this in both:

 

[Nemko]

This:

Спойлер: Example

[Setup]
AppName=License
AppVerName=License
DefaultDirName={sd}\License

[Files]
Source: MyLicense.rtf; Flags: dontcopy

[Code]

var
  ReadPanel: TPanel;
  ReadmeME : AnsiString;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm:=False;
end;

procedure CancelProc(Sender: TObject);
begin
  WizardForm.CancelButton.OnClick(WizardForm.CancelButton);
end;

procedure InitializeWizard;
begin

  ExtractTemporaryFile('MyLicense.rtf');
  LoadStringFromFile(ExpandConstant('{tmp}')+'\MyLicense.rtf', ReadmeME);

with WizardForm do begin
  InnerNotebook.Hide; OuterNotebook.Hide; Bevel.Hide;
  BackButton.Width:=0; NextButton.Width:=0;
  CancelButton.Width:=0; GroupBrowseButton.Width:=0;
end;

ReadPanel:=TPanel.Create(wizardForm);
with ReadPanel do begin
  Parent:=WizardForm;
  SetBounds(10, 10, WizardForm.Width - 25, WizardForm.Height - 100);
  BorderStyle:=bsNone;
  BevelOuter:=bvRaised;
  BevelInner:=bvLowered;
end;

with WizardForm.LicenseMemo do begin
  Parent:=ReadPanel;
  SetBounds(2, 2, ReadPanel.Width - 3, ReadPanel.Height - 3);
  BorderStyle:=bsNone;
  RTFText:= ReadmeME;
end;

with TButton.Create(WizardForm) do begin
  Parent:=WizardForm;
  SetBounds(390,320,100,24);
  Caption:='Close Example';
  OnClick:=@CancelProc;
end;
end;

 

[nizcoz]

Thanks @Nemko !