Arc Drawing [Circle]

[Ramiro Cruzo]

Hola bratya....
Will you please tell how to make an arc in Inno Wizrd Form...I tried using the tPie command of FMX Delphi but it doesn't work too...

 

[sergey3695]

Спойлер

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName=My Program
OutputDir=.

[Code]
type
  HDC = LongWord;

function SetBkMode(DC: HDC; BkMode: Integer): Integer; external 'SetBkMode@gdi32.dll stdcall';

procedure WizardFormOnPaint(Sender: TObject);
begin
//  SetBKMode(TWizardForm(Sender).Canvas.Handle, 1);
  with TWizardForm(Sender).Canvas do
  begin
    Pen.Color := clBlack;
    Pen.Width := 1;
    Arc(0,0,ScaleX(200),ScaleY(200),ScaleY(200),0,0,0);
  end;
end;

procedure InitializeWizard();
begin
  WizardForm.OuterNotebook.Hide;
  WizardForm.OnPaint := @WizardFormOnPaint;
end;