wwintl(infopowerv406d7).pas

地址档案管理系统

      FSpellCheckHint:='拼写检查';

      FToolbarHint:= '显示/隐藏工具条';
      FFormatBarHint:= '显示/隐藏格式工具条';
      FViewStatusBarHint :='显示/隐藏状栏条';
      FOptionsHint:='设置选项';

      FFontHint:='选定部分的字体';
      FParagraphHint:= '格式当前段落';
      FTabsHint:='设置制表';

      FMenuLabels:= TwwRichEditMenuLabels.create;
      MenuLabels.FileCaption := '文件';
      MenuLabels.LoadCaption := '打开';
      MenuLabels.SaveAsCaption := '另存';
      MenuLabels.SaveExitCaption := '保存后退出';
      MenuLabels.PrintCaption := '打印';
      MenuLabels.PageSetupCaption := '页面设置';
      MenuLabels.ExitCaption := '退出';

      MenuLabels.EditCaption := '编辑';
      MenuLabels.UndoCaption := '取消';
      MenuLabels.CutCaption := '剪切';
      MenuLabels.CopyCaption := '复制';
      MenuLabels.PasteCaption := '粘贴';
      MenuLabels.ClearCaption := '清除';
      MenuLabels.SelectallCaption := '全选';
      MenuLabels.FindCaption:= '查找';
      MenuLabels.FindNextCaption:='查找文本';
      MenuLabels.ReplaceCaption:= '替换';
      MenuLabels.InsertObjectCaption:= '对像';
      MenuLabels.SpellCheckCaption:= '拼写检查';
//      {$ifdef wwdelphi4up}
      MenuLabels.InsertCaption:= '插入';
      MenuLabels.RulerCaption:= '尺子';
//      {$endif}

      MenuLabels.ViewCaption := '查看';
      MenuLabels.ToolbarCaption:= '工具条';
      MenuLabels.FormatBarCaption:='格式工具栏';
      MenuLabels.ViewStatusBarCaption:='状态栏';
      MenuLabels.OptionsCaption:= '选项';

      MenuLabels.FormatCaption:= '格式';
      MenuLabels.FontCaption:= '字体';
      MenuLabels.BulletStyleCaption:='标号风格';
      MenuLabels.ParagraphCaption:='段落';
      MenuLabels.TabsCaption := '制表';
      MenuLabels.ToolCaption:= '工具';

      MenuLabels.HelpCaption := '帮助';

      FPopupMenuLabels:= TwwRichEditPopupMenuLabels.create;
      {PopupMenu Captions for accelerators}
      PopupMenuLabels.EditCaption:= '编辑';
      PopupMenuLabels.ViewCaption:= '查看';
      PopupMenuLabels.CutCaption:= '剪切';
      PopupMenuLabels.CopyCaption:= '复制';
      PopupMenuLabels.PasteCaption:= '粘贴';
      PopupMenuLabels.FontCaption:= '字体';
      PopupMenuLabels.BulletStyleCaption:= '标号风格';
      PopupMenuLabels.BoldCaption:='粗体';
      PopupMenuLabels.ItalicCaption:='斜体';
      PopupMenuLabels.UnderlineCaption:='下划线';
      PopupMenuLabels.ParagraphCaption:='段落';
      PopupMenuLabels.TabsCaption:= '制表';
      PopupMenuLabels.FindCaption:='查找';
      PopupMenuLabels.ReplaceCaption:='替换';
      PopupMenuLabels.InsertObjectCaption:='插入对像';
      PopupMenuLabels.ObjectPropertiesCaption:= '对像属性';
      PopupMenuLabels.SpellCheckCaption:='拼写检查';

      CAPLockCaption := '大写';
      NUMLockCaption := '数字';

      FParagraphDialog:= TwwRichEditParagraphDlg.create;

      ParagraphDialog.ParagraphDlgCaption:='段落';
      ParagraphDialog.IndentationGroupBoxCaption:='缩排';

      ParagraphDialog.LeftEditCaption:='左:';
      ParagraphDialog.RightEditCaption:='右:';
      ParagraphDialog.FirstLineEditCaption:='首行:';
      ParagraphDialog.AlignmentCaption:='对齐';

      ParagraphDialog.SpacingGroupCaption:='间距';
      ParagraphDialog.BeforeParagraphCaption:='之前';
      ParagraphDialog.AfterParagraphCaption:='之后';
      ParagraphDialog.WithinParagraphCaption:='行间距';
      ParagraphDialog.WithinParagraphAtCaption:='定位';

      ParagraphDialog.FLeftEditHint:='左缩排';
      ParagraphDialog.FRightEditHint:='右缩排';
      ParagraphDialog.FFirstLineEditHint:='首行缩排';
      ParagraphDialog.FAlignmentHint:='更改段落对齐';

      ParagraphDialog.AlignLeft:= '左';
      ParagraphDialog.AlignRight:= '右';
      ParagraphDialog.AlignCenter:= '中';
      ParagraphDialog.AlignJustify:= '调整';

      FTabDialog:= TwwRichEditTabDlg.create;

      TabDialog.TabDlgCaption:='Tab';
      TabDialog.FTabGroupBoxCaption:='&Tab 停止位置';
      TabDialog.FSetTabButtonCaption:='设置';
      TabDialog.FClearTabButtonCaption:='清除';
      TabDialog.FClearAllButtonCaption:='全部清除';

      TabDialog.FTabPositionEditHint:='Tab 位置编辑';
      TabDialog.FListBoxHint:='tabs 列表';
      TabDialog.FSetButtonHint:='设置tab位置';
      TabDialog.FClearButtonHint:='清除选定的tab位置';
      TabDialog.FClearAllButtonHint:= '清除全部tab';
   end;

   FNavigator := TwwDBNavigatorIntl.Create;

   FADO:= TwwADOIntl.create;
   FADO.UseLocateWhenFindingValue:=true;


   FMonthCalendar := TwwMonthCalendarIntl.create;
   with FMonthCalendar do
   begin
      PopupYearLabel := '编辑年份';
      EnterYearPrompt := '输入有效年份';
   end;


   FSearchDialog:= TwwSearchDialogIntl.create;
   with FSearchDialog do
   begin
      SearchCharLabel:= '搜索字符串';
      SearchCharShortLabel:= '搜索字符';
      SearchByLabel:= '按..搜索';
      StatusRecLabel:= '记录 #';
      StatusOfLabel := 'of';
      SearchCharHint:= '输入增量搜索字符串';
      SearchByHint:= '增量搜索和排序';
   end;
   FLocateDialog:= TwwLocateDialogIntl.create;
   with FLocateDialog do
   begin
      FieldValueLabel:= '字段值';
      SearchTypeLabel:= '搜索值';
      CaseSensitiveLabel:= '大小写敏感';
      MatchExactLabel:= '精确匹配';
      MatchStartLabel:= '头部匹配';
      MatchAnyLabel:= '任意部分匹配';
      FieldsLabel:= '字段';
      BtnFirst:= '首个';
      BtnNext:= '下一个';
      BtnCancel:= '取消';
      BtnClose:= '关闭';
      FieldValueHint:= '输入字段搜索值';
      CaseSensitiveHint:= '大小写敏感';
      MatchExactHint:= '精确匹配';
      MatchStartHint:= '头部开始匹配';
      MatchAnyHint:= '任意部分匹配';
      BtnFirstHint:= '查找第一个匹配';
      BtnNextHint:= '查找下一个匹配项';
      FieldNameHint:= '选择查找的字段';
   end;
   FUserMessages:= TwwUserMessagesIntl.create;
   with FUserMessages do
   begin
      wwDBGridDiscardChanges:= '放弃更改记录?';
      PictureValidateError:= '无效字符. 字段 : ';
      LocateNoMatches:= '无匹配项';
      LocateNoMoreMatches:= '没有更多的匹配项';
      MemoChangesWarning:= '已更改!  你确定要放弃吗?';
      RichEditExitWarning:= '已更改!  要保存更改吗?';
      RichEditClearWarning:= '清除全部文本?';
      RichEditSpellCheckComplete:= '拼写检查完成.';
      RichEditMSWordNotFound:= '不能进行 Microsoft Word 拼写检查器.';
{      RichEditLoadWarning:= 'Replace current contents with Rich Text from a file?';}
      FilterDlgNoCriteria:= '你没有确定搜索方式';
      RecordViewExitWarning:= '已更改!  你要保存吗?';
   end;
   FOKCancelBitmapped:= True;
   FBtnOKCaption:= '确定';
   FBtnCancelCaption:= '取消';
   FIniFileName := '';
   FCheckBoxInGridStyle:= cbStyleAuto;
   FGridPaintStyle:= gpsDynamicDeviceContext;

   {$ifdef win32}
   FDialogFontStyle := [];  // Default is non-bold for 32 bit programs
   {$else}
   FDialogFontStyle := [fsBold];
   {$endif}

end;

constructor TwwController.Create(AOwner: TComponent);
begin
   inherited Create(AOwner);
   FFrame:= TwwEditFrame.create(self);
   FButtonEffects:= TwwButtonEffects.create(self, nil);
   FControlList:= TList.create;
end;

destructor TwwController.Destroy;
begin
  FControlList.Free;
  FFrame.Free;
  FButtonEffects.Free;
  inherited Destroy;
end;

procedure TwwController.Notification(AComponent: TComponent;
  Operation: TOperation);
var i: integer;
    curControl: TWinControl;
begin
  inherited Notification(AComponent, Operation);
  if (Operation = opRemove) and not (csDestroying in ComponentState) then // 10/5/00 - Fix design-time delete problem
  begin
     for i:= FControlList.count-1 downto 0 do begin
        curControl:= TWinControl(FControlList[i]);
        if curControl = AComponent then
        begin
           FControlList.Delete(i);
           exit;
        end
     end
  end
end;

procedure TwwController.AddControl(Control: TControl);
begin
   FControlList.Add(Control);
end;

procedure TwwController.RemoveControl(Control: TControl);
begin
   FControlList.Remove(Control);
end;

procedure TwwController.ApplyFrame;
var i: integer;
    curControl: TComponent;//WinControl;
    tempFrame: TwwEditFrame;
    tempButtonEffects: TwwButtonEffects;
begin
   for i:= 0 to FControlList.count-1 do begin
      curControl:= TWinControl(FControlList[i]);
      if curControl<>nil then
      begin
         tempFrame:= TwwEditFrame.Get(curControl);
         tempFrame.Assign(Frame);
         if CurControl is TwwRecordViewPanel then
            TwwRecordViewPanel(curControl).RecreateControls;

         tempButtonEffects:= TwwButtonEffects.Get(curControl);
         if TempButtonEffects<>nil then
            tempButtonEffects.Assign(ButtonEffects);
         if curControl is TWinControl then
            if TWinControl(curControl).HandleAllocated then
               SendMessage(TWinControl(curControl).Handle, cm_recreateWnd, 0, 0);
      end
   end
end;

destructor TwwDBRichEditIntl.Destroy;
begin
  MenuLabels.Free;
  PopupMenuLabels.Free;
  ParagraphDialog.Free;
  TabDialog.Free;
  inherited destroy;
end;

destructor TwwIntl.Destroy;
begin
  FSearchDialog.Free;
  FLocateDialog.Free;
  FFilterDialog.Free;
  FMonthCalendar.Free;
  FUserMessages.Free;
  FNavigator.Free;
  FRichEdit.Free;
  FADO.Free;