spacingrvfrm.pas

来自「richviewaction 1.58 需要richview 1.9.46」· PAS 代码 · 共 55 行

{*******************************************************}
{                                                       }
{       RichViewActions                                 }
{       Cell-spacing dialog                             }
{                                                       }
{       Copyright (c) Sergey Tkachenko                  }
{       [e-mail]                               }
{       http://www.trichview.com                        }
{                                                       }
{*******************************************************}

unit SpacingRVFrm;

interface

{$I RichViewActions.inc}

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, BaseRVFrm, FourSidesRVFrm, ExtCtrls, StdCtrls, RVSpinEdit, RVALocalize;

type
  TfrmRVSpacing = class(TfrmRVFourSides)
    Label5: TLabel;
    Label6: TLabel;
    Bevel1: TBevel;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Localize; override;
  end;

implementation

{$R *.dfm}

{ TfrmRVSpacing }

procedure TfrmRVSpacing.Localize;
begin
  inherited;
  Caption := {$IFDEF USERVTNT}_GetWideString{$ENDIF}(RVA_GetS(rvam_cs_Title));
  gb.Caption := RVA_GetSH(rvam_cs_GB);
  Label5.Caption := RVA_GetS(rvam_cs_BetweenCells);
  Label6.Caption := RVA_GetS(rvam_cs_FromTableToCell);
  lblTop.Caption := RVA_GetS(rvam_cs_Horz1);
  lblBottom.Caption := RVA_GetS(rvam_cs_Vert1);
  lblLeft.Caption := RVA_GetS(rvam_cs_Horz2);
  lblRight.Caption := RVA_GetS(rvam_cs_Vert2);
end;

end.