wwintl.pas

胜天进销存源码,国产优秀的进销存

      FFindButtonHint := 'Find | Finds the specified text';
      FCutButtonHint := 'Cut | Cuts the selection and puts it on the Clipboard';
      FCopyButtonHint := 'Copy | Copies the selection and puts it on the Clipboard';
      FUndoButtonHint := 'Undo | Reverses the last action';
      {$ifdef wwDelphi4Up}
      FRedoButtonHint := 'Redo | Reverses the last undo action';
      {$endif}
      FPasteButtonHint := 'Paste | Inserts Clipboard contents';
      FBoldButtonHint := 'Bold | Makes the selection bold (toggle)';
      FColorButtonHint := 'Color | Formats the selection with a color';
      FUnderlineButtonHint := 'Underline | Formats the selection with a continuous underline (toggle)';
      FItalicButtonHint := 'Italic | Makes the selection italic (toggle)';
      FLeftButtonHint := 'Align Left | Left-justifies paragraph (toggle)';
      FCenterButtonHint := 'Center | Center-justifies paragraph (toggle)';
      FRightButtonHint := 'Align Right | Right-justifies paragraph (toggle)';
      FJustifyButtonHint := 'Justify | Full Justification for paragraph (toggle)';
      FBulletButtonHint := 'Bullets | Inserts a bullet on this line (toggle)';
      FHighlightButtonHint:= 'Highlight Text | Makes the selection highlighted';
      FSaveExitHint := 'Save And Exit | Saves changes and exits editor';
      FPageSetupHint:='Page Setup | Changes page layout settings';
      FExitHint:= 'Exit';

      FClearHint:= 'Erases the Selection';
      FSelectAllHint:= 'Selects all of the text';
      FFindNextHint:= 'Repeats the last find';
      FReplaceHint:='Replaces specific text with different text';
      FInsertObjectHint:='Inserts new embedded object';
      FSpellCheckHint:='Check spelling';

      FToolbarHint:= 'Shows or hides the toolbar';
      FFormatBarHint:= 'Shows or hides the format bar';
      FViewStatusBarHint :='Shows or hides the status bar';
      FOptionsHint:='Sets options';

      FFontHint:='Selects font for current selection';
      FParagraphHint:= 'Formats current or selected paragraph(s)';
      FTabsHint:='Sets tabs';

      FMenuLabels:= TwwRichEditMenuLabels.create;
      MenuLabels.FileCaption := '&File';
      MenuLabels.LoadCaption := '&Load';
      MenuLabels.SaveAsCaption := 'Save &As';
      MenuLabels.SaveExitCaption := '&Save and Exit';
      MenuLabels.PrintCaption := '&Print';
      MenuLabels.PrintPreviewCaption := '&Print Pre&view';      
      MenuLabels.PageSetupCaption := 'Page Set&up';
      MenuLabels.ExitCaption := 'E&xit';

      MenuLabels.EditCaption := '&Edit';
      MenuLabels.UndoCaption := '&Undo';
      MenuLabels.CutCaption := 'Cu&t';
      MenuLabels.CopyCaption := '&Copy';
      MenuLabels.PasteCaption := '&Paste';
      MenuLabels.ClearCaption := 'Cle&ar';
      MenuLabels.SelectallCaption := 'Select A&ll';
      MenuLabels.FindCaption:= '&Find';
      MenuLabels.FindNextCaption:='Find &Next';
      MenuLabels.ReplaceCaption:= 'R&eplace';
      MenuLabels.InsertObjectCaption:= '&Object...';
      MenuLabels.SpellCheckCaption:= 'Check &Spelling';
//      {$ifdef wwdelphi4up}
      MenuLabels.InsertCaption:= '&Insert';
      MenuLabels.RulerCaption:= '&Ruler';
//      {$endif}

      MenuLabels.ViewCaption := '&View';
      MenuLabels.ToolbarCaption:= '&Toolbar';
      MenuLabels.FormatBarCaption:='&Format Bar';
      MenuLabels.ViewStatusBarCaption:='&Status Bar';
      MenuLabels.OptionsCaption:= '&Options';

      MenuLabels.FormatCaption:= 'F&ormat';
      MenuLabels.FontCaption:= '&Font';
      MenuLabels.BulletStyleCaption:='&Bullet Style';
      MenuLabels.ParagraphCaption:='&Paragraph';
      MenuLabels.TabsCaption := '&Tabs';
      MenuLabels.ToolCaption:= '&Tools';

      MenuLabels.HelpCaption := 'Help';

      FPopupMenuLabels:= TwwRichEditPopupMenuLabels.create;
      {PopupMenu Captions for accelerators}
      PopupMenuLabels.EditCaption:= '&Edit';
      PopupMenuLabels.ViewCaption:= '&View';
      PopupMenuLabels.CutCaption:= 'Cu&t';
      PopupMenuLabels.CopyCaption:= '&Copy';
      PopupMenuLabels.PasteCaption:= '&Paste';
      PopupMenuLabels.FontCaption:= '&Font';
      PopupMenuLabels.BulletStyleCaption:= '&Bullet Style';
      PopupMenuLabels.BoldCaption:='B&old';
      PopupMenuLabels.ItalicCaption:='&Italic';
      PopupMenuLabels.UnderlineCaption:='&Underline';
      PopupMenuLabels.ParagraphCaption:='P&aragraph';
      PopupMenuLabels.TabsCaption:= '&Tabs';
      PopupMenuLabels.FindCaption:='Fin&d';
      PopupMenuLabels.ReplaceCaption:='&Replace';
      PopupMenuLabels.InsertObjectCaption:='Insert &Object...';
      PopupMenuLabels.ObjectPropertiesCaption:= 'Object P&roperties';
      PopupMenuLabels.SpellCheckCaption:='Check &Spelling';

      CAPLockCaption := 'CAP';
      NUMLockCaption := 'NUM';

      FParagraphDialog:= TwwRichEditParagraphDlg.create;

      ParagraphDialog.ParagraphDlgCaption:='Paragraph';
      ParagraphDialog.IndentationGroupBoxCaption:='Indentation';

      ParagraphDialog.LeftEditCaption:='Left:';
      ParagraphDialog.RightEditCaption:='Right:';
      ParagraphDialog.FirstLineEditCaption:='First line:';
      ParagraphDialog.AlignmentCaption:='Alignment';

      ParagraphDialog.SpacingGroupCaption:='Spacing';
      ParagraphDialog.BeforeParagraphCaption:='&Before';
      ParagraphDialog.AfterParagraphCaption:='Aft&er';
      ParagraphDialog.WithinParagraphCaption:='Li&ne Spacing';
      ParagraphDialog.WithinParagraphAtCaption:='&At';

      ParagraphDialog.FLeftEditHint:='Left Indentation';
      ParagraphDialog.FRightEditHint:='Right Indentation';
      ParagraphDialog.FFirstLineEditHint:='First Line of Paragraph Indentation';
      ParagraphDialog.FAlignmentHint:='Changes Alignment of Paragraph';

      ParagraphDialog.AlignLeft:= 'Left';
      ParagraphDialog.AlignRight:= 'Right';
      ParagraphDialog.AlignCenter:= 'Center';
      ParagraphDialog.AlignJustify:= 'Justify';

      FTabDialog:= TwwRichEditTabDlg.create;

      TabDialog.TabDlgCaption:='Tab';
      TabDialog.FTabGroupBoxCaption:='&Tab Stop Position';
      TabDialog.FSetTabButtonCaption:='Set';
      TabDialog.FClearTabButtonCaption:='Clear';
      TabDialog.FClearAllButtonCaption:='Clear All';

      TabDialog.FTabPositionEditHint:='Tab Position Edit Box';
      TabDialog.FListBoxHint:='List of tabs and their positions';
      TabDialog.FSetButtonHint:='Set a new tab position';
      TabDialog.FClearButtonHint:='Clear the selected tab position';
      TabDialog.FClearAllButtonHint:= 'Clear all the tabs';
   end;

   FNavigator := TwwDBNavigatorIntl.Create;

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


   FMonthCalendar := TwwMonthCalendarIntl.create;
   with FMonthCalendar do
   begin
      PopupYearLabel := 'Edit Year';
      EnterYearPrompt := 'Enter Valid Year';
   end;


   FSearchDialog:= TwwSearchDialogIntl.create;
   with FSearchDialog do
   begin
      SearchCharLabel:= '&Search Characters';
      SearchCharShortLabel:= '&Search Char';
      SearchByLabel:= 'Search &By';
      StatusRecLabel:= 'Rec #';
      StatusOfLabel := 'of';
      SearchCharHint:= 'Enter characters for incremental search';
      SearchByHint:= 'Incremental searching and sorting order';
   end;
   FLocateDialog:= TwwLocateDialogIntl.create;
   with FLocateDialog do
   begin
      FieldValueLabel:= 'Field &Value';
      SearchTypeLabel:= '&Search Type';
      CaseSensitiveLabel:= '&Case-sensitive';
      MatchExactLabel:= '&Exact Match';
      MatchStartLabel:= '&Partial Match at Beginning';
      MatchAnyLabel:= 'Partial Match &Anywhere';
      FieldsLabel:= '&Fields';
      BtnFirst:= 'Fi&rst';
      BtnNext:= '&Next';
      BtnCancel:= 'Cancel';
      BtnClose:= 'Close';
      FieldValueHint:= 'Enter field''s search value';
      CaseSensitiveHint:= 'Searching is case-sensitive';
      MatchExactHint:= 'Match occurs only if there is an exact match';
      MatchStartHint:= 'Match occurs if the start of the field''s value matches';
      MatchAnyHint:= 'Match occurs if any part of the field matches';
      BtnFirstHint:= 'Find first match';
      BtnNextHint:= 'Find next match from current record';
      FieldNameHint:= 'Select the field to search on';
   end;
   FUserMessages:= TwwUserMessagesIntl.create;
   with FUserMessages do
   begin
      wwDBGridDiscardChanges:= 'Discard changes to this record?';
      PictureValidateError:= 'Invalid characters. Field : ';
      LocateNoMatches:= 'No matches found';
      LocateNoMoreMatches:= 'No more matches found';
      MemoChangesWarning:= 'Changes have been made!  Are you sure you wish to cancel?';
      RichEditExitWarning:= 'Changes have been made!  Do you wish to save your changes?';
      RichEditClearWarning:= 'Clear entire text?';
      RichEditSpellCheckComplete:= 'The spell check is complete.';
      RichEditMSWordNotFound:= 'Unable to start Microsoft Word''s Spell Checker.';
{      RichEditLoadWarning:= 'Replace current contents with Rich Text from a file?';}
      FilterDlgNoCriteria:= 'You have not selected any search criteria';
      RecordViewExitWarning:= 'Changes have been made!  Do you wish to save your changes?';
   end;
   FOKCancelBitmapped:= True;
   FBtnOKCaption:= '&OK';
   FBtnCancelCaption:= 'Cancel';
   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