wwintl(infopowerv406d7).pas

地址档案管理系统

    FPriorHint: string;
    FNextHint: string;
    FLastHint: string;
    FInsertHint: string;
    FDeleteHint: string;
    FEditHint: string;
    FPostHint: string;
    FCancelHint: string;
    FRefreshHint: string;
    FPriorPageHint: string;
    FNextPageHint: string;
    FSaveBookmarkHint: string;
    FRestoreBookmarkHint: string;
    FRecordViewDialogHint: string;
    FLocateDialogHint: string;
    FFilterDialogHint: string;
    FSearchDialogHint: string;
  public
    constructor Create;
  published
    property FirstHint: string read FFirstHint write FFirstHint;
    property PriorHint: string read FPriorHint write FPriorHint;
    property NextHint: string read FNextHint write FNextHint;
    property LastHint: string read FLastHint write FLastHint;
    property InsertHint: string read FInsertHint write FInsertHint;
    property DeleteHint: string read FDeleteHint write FDeleteHint;
    property EditHint: string read FEditHint write FEditHint;
    property PostHint: string read FPostHint write FPostHint;
    property CancelHint: string read FCancelHint write FCancelHint;
    property RefreshHint: string read FRefreshHint write FRefreshHint;
    property PriorPageHint: string read FPriorPageHint write FPriorPageHint;
    property NextPageHint: string read FNextPageHint write FNextPageHint;
    property SaveBookmarkHint: string read FSaveBookmarkHint write FSaveBookmarkHint;
    property RestoreBookmarkHint: string read FRestoreBookmarkHint write FRestoreBookmarkHint;
    property RecordViewDialogHint: string read FRecordViewDialogHint write FRecordViewDialogHint;
    property LocateDialogHint: string read FLocateDialogHint write FLocateDialogHint;
    property FilterDialogHint: string read FFilterDialogHint write FFilterDialogHint;
    property SearchDialogHint: string read FSearchDialogHint write FSearchDialogHint;
  end;

  TwwADOIntl = class(TPersistent)
  private
    FUseLocateWhenFindingValue: boolean;
  published
    property UseLocateWhenFindingValue: boolean read
             FUseLocateWhenFindingValue write FUseLocateWhenFindingValue default True;
  end;

  TwwDBNavigatorIntl = class(TPersistent)
  private
    FConfirmDeleteMessage: string;
    FHints: TwwDBNavigatorIntlHints;
  public
    constructor Create;
    destructor Destroy; override;
  published
    property ConfirmDeleteMessage: string read FConfirmDeleteMessage write FConfirmDeleteMessage;
    property Hints: TwwDBNavigatorIntlHints read FHints write FHints;
  end;

  TwwCheckBoxInGridStyle = (cbStyleAuto, cbStyleCheckmark, cbStyleXmark,
     cbStyleCheckmarkFlat);
  TwwGridPaintStyle = (gpsBitmapCanvas, gpsDynamicDeviceContext);

  TwwIntl = class(TComponent)
  private
    FADO: TwwADOIntl;
    FNavigator: TwwDBNavigatorIntl;
    FSearchDialog: TwwSearchDialogIntl;
    FLocateDialog: TwwLocateDialogIntl;
    FMonthCalendar: TwwMonthCalendarIntl;
    FOKCancelBitmapped: boolean;
    FDialogFontStyle: TFontStyles;
    FBtnOKCaption: string;
    FBtnCancelCaption: string;
    FConnected: Boolean;
    FUserMessages: TwwUserMessagesIntl;
    FFilterDialog: TwwFilterDialogIntl;
    FRichEdit: TwwDBRichEditIntl;
    FIPVersion: string;
    FIniFileName: string;
    FRegistrationNo: string;
    FFastSQLCancelRange: boolean;
    FCheckBoxInGridStyle: TwwCheckBoxInGridStyle;
    FGridPaintStyle : TwwGridPaintStyle;

    FUseLocateMethodForSearch: boolean;
//    FUseLocateMethodForFind: boolean;
    FDefaultEpochYear: Integer;
    FFilterMemoSize: integer;
    FOnValidationErrorUsingMask: TwwPictureValidationError;

    Procedure SetConnected(val: boolean);
    Procedure SetIPVersion(val: string);
    {$ifdef NEWIPSETUP}
    Procedure SetRegistrationNo(val: string);
    {$endif}

    Procedure SetCheckboxInGridStyle(val: TwwCheckboxInGridStyle);
    Procedure SetGridPaintStyle(val: TwwGridPaintStyle);

  protected
    Procedure Loaded; override;
    Procedure Connect;

  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure ValidationErrorUsingMask(Component: TComponent; Field: TField); virtual;
    property FastSQLCancelRange: boolean read FFastSQLCancelRange write FFastSQLCancelRange;

    {$ifndef wwDelphi3Up}
    property UseLocateMethodForSearch: boolean read FUseLocateMethodForSearch write FUseLocateMethodForSearch default True;
    {$ENDIF}
  published
     property ADO: TwwADOIntl read FADO write FADO;
     property Navigator: TwwDBNavigatorIntl read FNavigator write FNavigator;
     property SearchDialog: TwwSearchDialogIntl read FSearchDialog write FSearchDialog;
     property LocateDialog: TwwLocateDialogIntl read FLocateDialog write FLocateDialog;
     property MonthCalendar: TwwMonthCalendarIntl read FMonthCalendar write FMonthCalendar;
     property FilterDialog: TwwFilterDialogIntl read FFilterDialog write FFilterDialog;
     property RichEdit: TwwDBRichEditIntl read FRichEdit write FRichEdit;
     property UserMessages: TwwUserMessagesIntl read FUserMessages write FUserMessages;
     property OKCancelBitmapped: boolean read FOKCancelBitmapped write FOKCancelBitmapped;
     property BtnOKCaption: string read FBtnOKCaption write FBtnOKCaption;
     property BtnCancelCaption: string read FBtnCancelCaption write FBtnCancelCaption;
     property CheckBoxInGridStyle: TwwCheckBoxInGridStyle read FCheckBoxInGridStyle write SetCheckboxInGridStyle;
     property GridPaintStyle: TwwGridPaintStyle read FGridPaintStyle write SetGridPaintStyle default gpsDynamicDeviceContext;
     property VersionInfoPower: string read FIPVersion write SetIPVersion;
     property FilterMemoSize: integer read FFilterMemoSize write FFilterMemoSize;
     property IniFileName: string read FIniFileName write FIniFileName;
     {$ifdef wwDelphi3Up}
     property UseLocateMethodForSearch: boolean read FUseLocateMethodForSearch write FUseLocateMethodForSearch default True;
     {$ENDIF}
     property DialogFontStyle: TFontStyles read FDialogFontStyle write FDialogFontStyle;
     {$IFDEF WIN32}
     property DefaultEpochYear: integer read FDefaultEpochYear write FDefaultEpochYear default 1950;
     {$ENDIF}
     {$ifdef NEWIPSETUP}
     property RegistrationNo: string read FRegistrationNo write SetRegistrationNo;
     {$endif}
     property OnValidationErrorUsingMask: TwwPictureValidationError read FOnValidationErrorUsingMask write FOnValidationErrorUsingMask;
     property Connected: boolean read FConnected write SetConnected;
  end;

  TwwController = class(TComponent)
  private
    FFrame: TwwEditFrame;
    FButtonEffects: TwwButtonEffects;
    FControlList: TList;
  protected
    procedure Notification(AComponent: TComponent;
      Operation: TOperation); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure ApplyFrame;
    procedure AddControl(Control: TControl);
    procedure RemoveControl(Control: TControl);
  published
    property Frame: TwwEditFrame read FFrame write FFrame;
    property ButtonEffects: TwwButtonEffects read FButtonEffects write FButtonEffects;
    property ControlList: TList read FControlList;
  end;

  Function wwCreateCommonButton(AOwner: TForm;
   ButtonKind: TBitBtnKind): TComponent;


procedure Register;


var wwInternational: TwwIntl;

implementation

uses StdCtrls, wwrcdpnl;

constructor TwwIntl.Create(AOwner: TComponent);
{$ifdef NEWIPSETUP}
var ipReg: TRegIniFile;
{$endif}
begin
   inherited Create(AOwner);
   FIPVersion:= '4000.0.6';

   {$ifdef NEWIPSETUP}
   if csDesigning in ComponentState then begin
      ipreg := TRegIniFile.create('');
      FRegistrationNo:=
         ipreg.ReadString('\Software\Woll2Woll\InfoPower', 'Reg. No.', '');
      ipreg.free;
   end;
   {$endif}
   FFastSQLCancelRange:= True;
   FUseLocateMethodForSearch:= True;
   FDefaultEpochYear := 1950;
   FFilterMemoSize:= $10000; { 64k }

   FFilterDialog:= TwwFilterDialogIntl.create;
   with FFilterDialog do
   begin
      FBtnViewSummary := '查看概要';
      FBtnViewSummaryHint  := '查看当前搜索概要';
      FBtnNewSearch  := '新搜索';
      FBtnNewSearchHint  := '开始新搜索';
      FFieldOrderLabel  := '字段顺序';
      FFieldOrderHint := '按字母顺序或自然逻辑顺序将字段排序';
      FAlphabeticLabel := '字母';
      FLogicalLabel := '逻辑';
      FAllFieldsLabel := '全部';
      FSearchedFieldsLabel := '已搜索';
      FStartingRangeLabel := '起始范围';
      FEndingRangeLabel := '结束范围';
      FBtnClearMin := '清除';
      FBtnClearMax := '清除';
      FBtnClearFilterValue := '清除';
      FStartingRangeHint := '输入字段起始范围';
      FEndingRangeHint := '输入字段结束范围';
      FBtnClearMinHint := '清除字段起始范围';
      FBtnClearMaxHint := '清除字段结束范围';
      FBtnClearFilterValueHint:= '清除当前字段的搜索值';
      FByValueLabel  := '按值';
      FByRangeLabel  := '按范围';
      FFieldValueLabel  := '字段值';
      FFieldValueHint:= '输入字段搜索值';
      FSearchTypeLabel  := '搜索类型';
      FSearchTypeHint:= '指定字段比较方式';
      FMatchExactLabel  := '精确匹配';
      FMatchStartLabel  := '部分或头部匹配';
      FMatchAnyLabel  := '任何部会匹配';
      FCaseSensitiveLabel  := '大小写敏感';
      FCaseSensitiveHint  := '大小写不敏戌';
      FNonMatchingLabel := '没有符合的记录';
      FNonMatchingHint := '显示不符合的记录';
      FSummaryFieldLabel:= '字段';
      FSummarySearchLabel:= '搜索类型';
      FSummaryValueLabel := '值';
      {$ifdef wwdelphi4up}
      FSummaryCaption:= ''; { Use default }
      {$endif}
      FFieldsLabel:= '字段';
      FValueRangeTabHint := '按值或范围搜索';
      FAllSearchedTabHint := '显示全部字段或搜索的字段';
      FViewSummaryNotText := '否';
   end;

   FRichEdit := TwwDBRichEditIntl.create;
   with FRichEdit do
   begin
      FFontNameComboHint := '字体 | 改变所选部分的字体';
      FFontSizeComboHint := '字体尺寸 | 改变所选部分的字体';

      FNewButtonHint := '新建 | 创建新文档';
      FLoadButtonHint := '打开 | 打开文件';
      FSaveAsButtonHint := '另存 | 保存到文件';
      FPrintButtonHint := '打印 | 打印活动文档';
      FFindButtonHint := '查找 | 查找指定文本';
      FCutButtonHint := '剪切 | 剪切选定部分，放到剪贴板上';
      FCopyButtonHint := '复制 | 复制选定部分，放到剪贴板上';
      FUndoButtonHint := '取消 | 取消最后的操作';
      {$ifdef wwDelphi4Up}
      FRedoButtonHint := '再做 | 重做最后的操作';
      {$endif}
      FPasteButtonHint := '粘贴 | 插入剪贴板上的内容';
      FBoldButtonHint := '粗体 | 切换选中部分的粗体显示';
      FColorButtonHint := '颜色 | 更改选中部分的颜色';
      FUnderlineButtonHint := '下划线 | 切换选中部分的下划线显示';
      FItalicButtonHint := '斜体 | 切换选中部分的斜体显示';
      FLeftButtonHint := '左对齐 | 切换段落的左对齐状态';
      FCenterButtonHint := '居中 | 切换段落的居中状态';
      FRightButtonHint := '右对齐 | 切换段落的右对齐状态';
      FJustifyButtonHint := '间距 | 段落间距';
      FBulletButtonHint := '标号 | 切换行的标号';
      FHighlightButtonHint:= '高亮 | 让选定部分高亮显示';
      FSaveExitHint := '保存后退出 | 保存更改，退出编辑器';
      FPageSetupHint:='页面设置 | 改变页面输入设置';
      FExitHint:= '退出';

      FClearHint:= '擦除选定部分';
      FSelectAllHint:= '选择全部文本';
      FFindNextHint:= '重复搜索';
      FReplaceHint:='替换特定的文本';
      FInsertObjectHint:='插入新的对像';