{******************************************}
{                                          }
{             FastReport VCL               }
{            Designer options              }
{                                          }
{         Copyright (c) 1998-2021          }
{            by Fast Reports Inc.          }
{                                          }
{******************************************}

unit frxEditOptions;

interface

{$I frx.inc}

uses
  {$IFNDEF FPC}
  Windows, Messages,
  {$ENDIF}
  SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, frxBaseForm
  {$IFDEF FPC}
  , LCLType
  {$ELSE}
  , frxCtrls
  {$ENDIF}
{$IFDEF Delphi6}
, Variants
{$ENDIF};
  

type
  TfrxOptionsEditor = class(TfrxBaseForm)
    OkB: TButton;
    CancelB: TButton;
    ColorDialog: TColorDialog;
    RestoreDefaultsB: TButton;
    Label1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    CMRB: TRadioButton;
    InchesRB: TRadioButton;
    PixelsRB: TRadioButton;
    CME: TEdit;
    InchesE: TEdit;
    PixelsE: TEdit;
    DialogFormE: TEdit;
    ShowGridCB: TCheckBox;
    AlignGridCB: TCheckBox;
    Label6: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    CodeWindowFontCB: TComboBox;
    CodeWindowSizeCB: TComboBox;
    MemoEditorFontCB: TComboBox;
    MemoEditorSizeCB: TComboBox;
    ObjectFontCB: TCheckBox;
    Label11: TGroupBox;
    WorkspacePB: TPaintBox;
    ToolPB: TPaintBox;
    WorkspaceB: TButton;
    ToolB: TButton;
    LCDCB: TCheckBox;
    Label5: TGroupBox;
    Label12: TLabel;
    Label17: TLabel;
    EditAfterInsCB: TCheckBox;
    FreeBandsCB: TCheckBox;
    GapE: TEdit;
    BandsCaptionsCB: TCheckBox;
    StartupCB: TCheckBox;
    GuidesStickCB: TCheckBox;
    GuidesAsAnchorCB: TCheckBox;
    CCGB: TGroupBox;
    ShowScriptVARCB: TCheckBox;
    ShowADDVARCB: TCheckBox;
    ShowRttiVARCB: TCheckBox;
    TBE: TEdit;
    Label18: TLabel;
    MultiBCB: TCheckBox;
    LGuidAcc: TLabel;
    EGuidAcc: TEdit;
    Label20: TLabel;
    IntersectionsPB: TPaintBox;
    IntersectionsB: TButton;
    EnableCodeWindowHint: TCheckBox;
    EnableWorkspaceHints: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure WorkspacePBPaint(Sender: TObject);
    procedure ToolPBPaint(Sender: TObject);
    procedure IntersectionsPBPaint(Sender: TObject);
    procedure WorkspaceBClick(Sender: TObject);
    procedure ToolBClick(Sender: TObject);
    procedure IntersectionsBClick(Sender: TObject);
    procedure RestoreDefaultsBClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormHide(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    FWColor: TColor;
    FTColor: TColor;
    FIColor: TColor;
    FPBHeight: integer;
    FPBWidth: integer;
  public
    procedure UpdateFormPPI(aNewPPI: Integer); override;
    procedure UpdateResouces; override;
    { Public declarations }
  end;


implementation

{$IFDEF FPC}
{$R *.lfm}
{$ELSE}
{$R *.DFM}
{$ENDIF}

uses frxClass, frxDesgn, frxDesgnWorkspace, frxSynMemo, frxUtils, frxRes, frxDPIAwareInt;


{ TfrxPreferencesEditor }

procedure TfrxOptionsEditor.FormShow(Sender: TObject);

  procedure SetEnabledEx(cAr: Array of TControl; Enabled: Boolean);
  var
    i: Integer;
  begin
    for i := 0 to High(cAr) do
      cAr[i].Enabled := Enabled;
  end;

begin
  ColorDialog.CustomColors.Add('ColorA=' + IntToHex(ColorToRGB(clBtnFace), 6));

  with TfrxDesignerForm(Owner) do
  begin
    CodeWindowFontCB.Items.Assign(Screen.Fonts);
    MemoEditorFontCB.Items.Assign(Screen.Fonts);

    SetEnabledEx([CMRB, InchesRB, PixelsRB, CME, InchesE, PixelsE],
      (Workspace.GridType <> gtDialog) and (Workspace.GridType <> gtChar));

    CMRB.Checked := Units = duCM;
    InchesRB.Checked := Units = duInches;
    PixelsRB.Checked := Units = duPixels;

    CME.Text := FloatToStr(GridSize1);
    InchesE.Text := FloatToStr(GridSize2);
    PixelsE.Text := FloatToStr(GridSize3);
    DialogFormE.Text := FloatToStr(GridSize4);

    ShowGridCB.Checked := ShowGrid;
    AlignGridCB.Checked := GridAlign;
    EditAfterInsCB.Checked := EditAfterInsert;
    BandsCaptionsCB.Checked := Workspace.ShowBandCaptions;
    StartupCB.Checked := ShowStartup;
    StartupCB.Visible := ConnectionsMI.Visible;
    EnableWorkspaceHints.Checked := Workspace.EnableHint;
    FreeBandsCB.Checked := Workspace.FreeBandsPlacement;
    GapE.Text := IntToStr(Workspace.GapBetweenBands);
    EGuidAcc.Text := FloatToStr(StickAccuracy);

    CodeWindowFontCB.Text := CodeWindow.Font.Name;
    CodeWindowSizeCB.Text := IntToStr(CodeWindow.Font.Size);
    MultiBCB.Checked := CodeWindow.MultiByteLang;
    MemoEditorFontCB.Text := MemoFontName;
    MemoEditorSizeCB.Text := IntToStr(MemoFontSize);
    ObjectFontCB.Checked := UseObjectFont;
    GuidesStickCB.Checked := StickToGuides;
    GuidesAsAnchorCB.Checked := GuidesAsAnchor;

    ShowScriptVARCB.Checked := (cltScript in CodeWindow.ShowInCodeComplition);
    ShowADDVARCB.Checked := (cltAddon in CodeWindow.ShowInCodeComplition);
    ShowRttiVARCB.Checked := (cltRtti in CodeWindow.ShowInCodeComplition);
    EnableCodeWindowHint.Checked := CodeWindow.EnableHint;
    TBE.Text := IntToStr(CodeWindow.TabStops);
    FWColor := WorkspaceColor;
    FTColor := ToolsColor;
    FIColor := IntersectionsColor;
    LCDCB.Checked := Workspace.GridLCD;
  end;
end;

procedure TfrxOptionsEditor.FormHide(Sender: TObject);
begin
  if ModalResult = mrOk then
    with TfrxDesignerForm(Owner) do
    begin
      GridSize4 := frxStrToFloat(DialogFormE.Text);

      if CMRB.Enabled then
      begin
        GridSize1 := frxStrToFloat(CME.Text);
        GridSize2 := frxStrToFloat(InchesE.Text);
        GridSize3 := frxStrToFloat(PixelsE.Text);

        if CMRB.Checked then
          Units := duCM
        else if InchesRB.Checked then
          Units := duInches else
          Units := duPixels;
      end;

      ShowGrid := ShowGridCB.Checked;
      GridAlign := AlignGridCB.Checked;
      EditAfterInsert := EditAfterInsCB.Checked;
      Workspace.ShowBandCaptions := BandsCaptionsCB.Checked;
      ShowStartup := StartupCB.Checked;
      Workspace.EnableHint := EnableWorkspaceHints.Checked;
      Workspace.FreeBandsPlacement := FreeBandsCB.Checked;
      Workspace.GapBetweenBands := StrToInt(GapE.Text);
      StickAccuracy := StrToFloat(EGuidAcc.Text);

      CodeWindow.Font.Name := CodeWindowFontCB.Text;
      CodeWindow.Font.Size := StrToInt(CodeWindowSizeCB.Text);
      CodeWindow.MultiByteLang := MultiBCB.Checked;
      MemoFontName := MemoEditorFontCB.Text;
      MemoFontSize := StrToInt(MemoEditorSizeCB.Text);
      UseObjectFont := ObjectFontCB.Checked;
      StickToGuides := GuidesStickCB.Checked;
      GuidesAsAnchor := GuidesAsAnchorCB.Checked;
      CodeWindow.ShowInCodeComplition := [];
      if ShowScriptVARCB.Checked then
        CodeWindow.ShowInCodeComplition := CodeWindow.ShowInCodeComplition + [cltScript];
      if ShowADDVARCB.Checked then
        CodeWindow.ShowInCodeComplition := CodeWindow.ShowInCodeComplition + [cltAddon];
      if ShowRttiVARCB.Checked then
        CodeWindow.ShowInCodeComplition := CodeWindow.ShowInCodeComplition + [cltRtti];
      CodeWindow.EnableHint := EnableCodeWindowHint.Checked;
      CodeWindow.TabStops := StrToInt(TBE.Text);
     
      WorkspaceColor := FWColor;
      ToolsColor := FTColor;
      IntersectionsColor := FIColor;
      Workspace.GridLCD := LCDCB.Checked;
    end;
end;

procedure TfrxOptionsEditor.WorkspacePBPaint(Sender: TObject);
begin
  with WorkspacePB.Canvas do
  begin
    Pen.Color := clGray;
    Brush.Color := FWColor;
    Rectangle(0, 0, FPBWidth, FPBHeight);
  end;
end;

procedure TfrxOptionsEditor.ToolPBPaint(Sender: TObject);
begin
  with ToolPB.Canvas do
  begin
    Pen.Color := clGray;
    Brush.Color := FTColor;
    Rectangle(0, 0, FPBWidth, FPBHeight);
  end;
end;

procedure TfrxOptionsEditor.IntersectionsPBPaint(Sender: TObject);
begin
  with IntersectionsPB.Canvas do
  begin
    Pen.Color := clGray;
    Brush.Color := FIColor;
    Rectangle(0, 0, FPBWidth, FPBHeight);
  end;
end;

procedure TfrxOptionsEditor.UpdateResouces;
begin
  inherited;
  Caption := frxGet(3000);
  Label1.Caption := frxGet(3001);
  Label2.Caption := frxGet(3002);
  Label3.Caption := frxGet(3003);
  Label4.Caption := frxGet(3004);
  Label5.Caption := frxGet(3005);
  Label6.Caption := frxGet(3006);
  Label7.Caption := frxGet(3007);
  Label8.Caption := frxGet(3008);
  Label9.Caption := frxGet(3009);
  Label10.Caption := frxGet(3010);
  Label11.Caption := frxGet(3011);
  Label12.Caption := frxGet(3012);
  Label13.Caption := frxGet(3013);
  Label14.Caption := frxGet(3014);
  Label15.Caption := frxGet(3015);
  Label16.Caption := frxGet(3016);
  Label17.Caption := frxGet(3017);
  OkB.Caption := frxGet(1);
  CancelB.Caption := frxGet(2);
  CMRB.Caption := frxGet(3018);
  InchesRB.Caption := frxGet(3019);
  PixelsRB.Caption := frxGet(3020);
  ShowGridCB.Caption := frxGet(3021);
  AlignGridCB.Caption := frxGet(3022);
  EditAfterInsCB.Caption := frxGet(3023);
  ObjectFontCB.Caption := frxGet(3024);
  WorkspaceB.Caption := frxGet(3025);
  ToolB.Caption := frxGet(3026);
  IntersectionsB.Caption := frxGet(3107);
  LCDCB.Caption := frxGet(3027);
  FreeBandsCB.Caption := frxGet(3028);
  StartupCB.Caption := frxGet(3030);
  EnableWorkspaceHints.Caption := frxGet(6610);
  RestoreDefaultsB.Caption := frxGet(3031);
  BandsCaptionsCB.Caption := frxGet(3032);

  CCGB.Caption := frxGet(6593);
  ShowScriptVARCB.Caption := frxGet(6594);
  ShowADDVARCB.Caption := frxGet(6595);
  ShowRttiVARCB.Caption := frxGet(6596);
  EnableCodeWindowHint.Caption := frxGet(6609);
  Label18.Caption := frxGet(6597);
  GuidesStickCB.Caption := frxGet(6598);
  GuidesAsAnchorCB.Caption := frxGet(6599);
  LGuidAcc.Caption := frxGet(6710)
end;

procedure TfrxOptionsEditor.WorkspaceBClick(Sender: TObject);
var
  ctx: FRX_DPI_AWARENESS_CONTEXT;
begin
  ColorDialog.Color := FWColor;
  { awoid common Dialogs bug with HiDPi Per monitor v2 }
  ctx := frxGetThreadDpiAwarenessContext;
  frxSetThreadDpiAwarenessContext(FRX_DPI_AWARENESS_CONTEXT_UNAWARE_GDISCALED);
  try
    if ColorDialog.Execute then
      FWColor := ColorDialog.Color;
  finally
    frxSetThreadDpiAwarenessContext(ctx);
  end;
  WorkspacePB.Repaint;
end;

procedure TfrxOptionsEditor.ToolBClick(Sender: TObject);
begin
  ColorDialog.Color := FTColor;
  if ColorDialog.Execute then
    FTColor := ColorDialog.Color;
  ToolPB.Repaint;
end;

procedure TfrxOptionsEditor.IntersectionsBClick(Sender: TObject);
begin
  ColorDialog.Color := FIColor;
  if ColorDialog.Execute then
    FIColor := ColorDialog.Color;
  IntersectionsPB.Repaint;
end;

procedure TfrxOptionsEditor.RestoreDefaultsBClick(Sender: TObject);
begin
  TfrxDesignerForm(Owner).RestoreState(True);
  FTColor := TfrxDesignerForm(Owner).ToolsColor;
  FWColor := TfrxDesignerForm(Owner).WorkspaceColor;
  FIColor := TfrxDesignerForm(Owner).IntersectionsColor;
  ModalResult := mrCancel;
end;

procedure TfrxOptionsEditor.FormCreate(Sender: TObject);
begin
  if UseRightToLeftAlignment then
    FlipChildren(True);
end;

procedure TfrxOptionsEditor.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F1 then
    frxResources.Help(Self);
end;

procedure TfrxOptionsEditor.UpdateFormPPI(aNewPPI: Integer);
begin
  inherited;
  FPBHeight := Round(21 * aNewPPI / frx_DefaultPPI);
  FPBWidth := Round(161 * aNewPPI / frx_DefaultPPI);
end;

end.