?? wwintl.pas
字號:
begin
end;
{$endif}
Procedure TwwIntl.SetIPVersion(val: string);
begin
end;
Procedure TwwIntl.SetConnected(val: boolean);
begin
FConnected:= val;
if not val then exit;
Connect;
end;
Procedure TwwIntl.SetCheckboxInGridStyle(val: TwwCheckboxInGridStyle);
begin
FCheckBoxInGridStyle:= val;
if connected and (wwInternational<>self) then
wwInternational.CheckboxInGridStyle:= val;
end;
Procedure TwwIntl.SetGridPaintStyle(val: TwwGridPaintStyle);
begin
FGridPaintStyle:= val;
if connected and (wwInternational<>self) then
wwInternational.GridPaintStyle:= val;
end;
Procedure TwwIntl.Connect;
var wwFilterDialog: TwwFilterDialogIntl;
begin
if self=wwInternational then exit;
wwFilterDialog:= wwInternational.FilterDialog;
with FilterDialog do begin
wwFilterDialog.BtnViewSummary := FBtnViewSummary;
wwFilterDialog.BtnViewSummaryHint := FBtnViewSummaryHint;
wwFilterDialog.BtnNewSearch := FBtnNewSearch;
wwFilterDialog.BtnNewSearchHint := FBtnNewSearchHint;
wwFilterDialog.FieldOrderLabel := FFieldOrderLabel;
wwFilterDialog.FieldOrderHint := FFieldOrderHint;
wwFilterDialog.AlphabeticLabel := FAlphabeticLabel;
wwFilterDialog.LogicalLabel := FLogicalLabel;
wwFilterDialog.AllFieldsLabel := FAllFieldsLabel;
wwFilterDialog.SearchedFieldsLabel := FSearchedFieldsLabel;
wwFilterDialog.StartingRangeLabel := FStartingRangeLabel;
wwFilterDialog.EndingRangeLabel := FEndingRangeLabel;
wwFilterDialog.StartingRangeHint := FStartingRangeHint;
wwFilterDialog.EndingRangeHint := FEndingRangeHint;
wwFilterDialog.BtnClearMin := FBtnClearMin;
wwFilterDialog.BtnClearMax := FBtnClearMax;
wwFilterDialog.BtnClearFilterValue := FBtnClearFilterValue;
wwFilterDialog.BtnClearMinHint := FBtnClearMinHint;
wwFilterDialog.BtnClearMaxHint := FBtnClearMaxHint;
wwFilterDialog.BtnClearFilterValueHint := FBtnClearFilterValueHint;
wwFilterDialog.ByValueLabel := FByValueLabel;
wwFilterDialog.ByRangeLabel := FByRangeLabel;
wwFilterDialog.FieldValueLabel := FFieldValueLabel;
wwFilterDialog.FieldValueHint := FFieldValueHint;
wwFilterDialog.SearchTypeLabel := FSearchTypeLabel;
wwFilterDialog.SearchTypeHint := FSearchTypeHint;
wwFilterDialog.MatchExactLabel := FMatchExactLabel;
wwFilterDialog.MatchStartLabel := FMatchStartLabel;
wwFilterDialog.MatchAnyLabel := FMatchAnyLabel;
wwFilterDialog.CaseSensitiveLabel := FCaseSensitiveLabel;
wwFilterDialog.CaseSensitiveHint := FCaseSensitiveHint;
wwFilterDialog.NonMatchingLabel := NonMatchingLabel;
wwFilterDialog.NonMatchingHint := NonMatchingHint;
wwFilterDialog.SummaryFieldLabel := FSummaryFieldLabel;
wwFilterDialog.SummarySearchLabel := FSummarySearchLabel;
wwFilterDialog.SummaryValueLabel := FSummaryValueLabel;
{$ifdef wwdelphi4up}
wwFilterDialog.SummaryCaption:= FSummaryCaption;
{$endif}
wwFilterDialog.FieldsLabel:= FFieldsLabel;
wwFilterDialog.ValueRangeTabHint:= FValueRangeTabHint;
wwFilterDialog.AllSearchedTabHint:= FAllSearchedTabHint;
wwFilterDialog.ViewSummaryNotText:= FViewSummaryNotText;
end;
with RichEdit do begin
wwInternational.RichEdit.FontNameComboHint := FFontNameComboHint;
wwInternational.RichEdit.FontSizeComboHint := FFontSizeComboHint;
wwInternational.RichEdit.NewButtonHint := FNewButtonHint;
wwInternational.RichEdit.LoadButtonHint:=FLoadButtonHint;
wwInternational.RichEdit.SaveAsButtonHint:=FSaveAsButtonHint;
wwInternational.RichEdit.PrintButtonHint:=FPrintButtonHint;
wwInternational.RichEdit.FindButtonHint:=FFindButtonHint;
wwInternational.RichEdit.CutButtonHint:=FCutButtonHint;
wwInternational.RichEdit.CopyButtonHint:=FCopyButtonHint;
wwInternational.RichEdit.UndoButtonHint:=FUndoButtonHint;
{$ifdef wwDelphi4Up}
wwInternational.RichEdit.RedoButtonHint:=FRedoButtonHint;
{$endif}
wwInternational.RichEdit.PasteButtonHint:=FPasteButtonHint;
wwInternational.RichEdit.BoldButtonHint:=FBoldButtonHint;
wwInternational.RichEdit.ColorButtonHint:=FColorButtonHint;
wwInternational.RichEdit.UnderlineButtonHint:=FUnderlineButtonHint;
wwInternational.RichEdit.ItalicButtonHint:=FItalicButtonHint;
wwInternational.RichEdit.LeftButtonHint:=FLeftButtonHint;
wwInternational.RichEdit.CenterButtonHint:=FCenterButtonHint;
wwInternational.RichEdit.RightButtonHint:=FRightButtonHint;
wwInternational.RichEdit.JustifyButtonHint:=FJustifyButtonHint;
wwInternational.RichEdit.BulletButtonHint:=FBulletButtonHint;
wwInternational.RichEdit.HighlightButtonHint:=FHighlightButtonHint;
wwInternational.RichEdit.SaveExitHint:=FSaveExitHint;
wwInternational.RichEdit.PageSetupHint:=FPageSetupHint;
wwInternational.RichEdit.ExitHint:=FExitHint;
wwInternational.RichEdit.ClearHint:=FClearHint;
wwInternational.RichEdit.SelectAllHint:=FSelectAllHint;
wwInternational.RichEdit.FindNextHint:=FFindNextHint;
wwInternational.RichEdit.ReplaceHint:=FReplaceHint;
wwInternational.RichEdit.InsertObjectHint:=FInsertObjectHint;
wwInternational.RichEdit.SpellCheckHint:=FSpellCheckHint;
wwInternational.RichEdit.ToolbarHint:=FToolbarHint;
wwInternational.RichEdit.FormatBarHint:=FFormatBarHint;
wwInternational.RichEdit.ViewStatusBarHint:=FViewStatusBarHint;
wwInternational.RichEdit.OptionsHint:=FOptionsHint;
wwInternational.RichEdit.FFontHint:=FFontHint;
wwInternational.RichEdit.ParagraphHint:=FParagraphHint;
wwInternational.RichEdit.TabsHint:=FTabsHint;
wwInternational.RichEdit.CAPLockCaption:=FCAPLockCaption;
wwInternational.RichEdit.NUMLockCaption:=FNUMLockCaption;
wwInternational.RichEdit.MenuLabels.FileCaption:=FMenuLabels.FileCaption;
wwInternational.RichEdit.MenuLabels.LoadCaption:=FMenuLabels.LoadCaption;
wwInternational.RichEdit.MenuLabels.SaveAsCaption:=FMenuLabels.SaveAsCaption;
wwInternational.RichEdit.MenuLabels.SaveExitCaption:=FMenuLabels.SaveExitCaption;
wwInternational.RichEdit.MenuLabels.PrintCaption:=FMenuLabels.PrintCaption;
wwInternational.RichEdit.MenuLabels.PageSetupCaption:=FMenuLabels.PageSetupCaption;
wwInternational.RichEdit.MenuLabels.ExitCaption:=FMenuLabels.ExitCaption;
wwInternational.RichEdit.MenuLabels.EditCaption:=FMenuLabels.EditCaption;
wwInternational.RichEdit.MenuLabels.UndoCaption:=FMenuLabels.UndoCaption;
wwInternational.RichEdit.MenuLabels.CutCaption:=FMenuLabels.CutCaption;
wwInternational.RichEdit.MenuLabels.CopyCaption:=FMenuLabels.CopyCaption;
wwInternational.RichEdit.MenuLabels.PasteCaption:=FMenuLabels.PasteCaption;
wwInternational.RichEdit.MenuLabels.ClearCaption:=FMenuLabels.ClearCaption;
wwInternational.RichEdit.MenuLabels.SelectallCaption:=FMenuLabels.SelectallCaption;
wwInternational.RichEdit.MenuLabels.FindCaption:=FMenuLabels.FindCaption;
wwInternational.RichEdit.MenuLabels.FindNextCaption:=FMenuLabels.FindNextCaption;
wwInternational.RichEdit.MenuLabels.ReplaceCaption:=FMenuLabels.ReplaceCaption;
wwInternational.RichEdit.MenuLabels.InsertObjectCaption:=FMenuLabels.InsertObjectCaption;
wwInternational.RichEdit.MenuLabels.ToolCaption:=FMenuLabels.ToolCaption;
wwInternational.RichEdit.MenuLabels.SpellCheckCaption:=FMenuLabels.SpellCheckCaption;
{$ifdef wwdelphi4up}
wwInternational.RichEdit.MenuLabels.InsertCaption:=FMenuLabels.InsertCaption;
wwInternational.RichEdit.MenuLabels.RulerCaption:=FMenuLabels.RulerCaption;
wwInternational.RichEdit.MenuLabels.RedoCaption:=FMenuLabels.RedoCaption;
{$endif}
wwInternational.RichEdit.MenuLabels.ViewCaption:=FMenuLabels.ViewCaption;
wwInternational.RichEdit.MenuLabels.ToolbarCaption:=FMenuLabels.ToolbarCaption;
wwInternational.RichEdit.MenuLabels.FormatBarCaption:=FMenuLabels.FormatBarCaption;
wwInternational.RichEdit.MenuLabels.ViewStatusBarCaption:=FMenuLabels.ViewStatusBarCaption;
wwInternational.RichEdit.MenuLabels.OptionsCaption:=FMenuLabels.OptionsCaption;
wwInternational.RichEdit.MenuLabels.FormatCaption:=FMenuLabels.FormatCaption;
wwInternational.RichEdit.MenuLabels.FontCaption:=FMenuLabels.FontCaption;
wwInternational.RichEdit.MenuLabels.BulletStyleCaption:=FMenuLabels.BulletStyleCaption;
wwInternational.RichEdit.MenuLabels.ParagraphCaption:=FMenuLabels.ParagraphCaption;
wwInternational.RichEdit.MenuLabels.TabsCaption:=FMenuLabels.TabsCaption;
wwInternational.RichEdit.MenuLabels.HelpCaption:=FMenuLabels.HelpCaption;
wwInternational.RichEdit.PopupMenuLabels.EditCaption:=FPopupMenuLabels.EditCaption;
wwInternational.RichEdit.PopupMenuLabels.ViewCaption:=FPopupMenuLabels.ViewCaption;
wwInternational.RichEdit.PopupMenuLabels.CutCaption:=FPopupMenuLabels.CutCaption;
wwInternational.RichEdit.PopupMenuLabels.CopyCaption:=FPopupMenuLabels.CopyCaption;
wwInternational.RichEdit.PopupMenuLabels.PasteCaption:=FPopupMenuLabels.PasteCaption;
wwInternational.RichEdit.PopupMenuLabels.FontCaption:=FPopupMenuLabels.FontCaption;
{ 11/10/97 - Add Bold, Italic, Underline }
wwInternational.RichEdit.PopupMenuLabels.BoldCaption:=FPopupMenuLabels.BoldCaption;
wwInternational.RichEdit.PopupMenuLabels.ItalicCaption:=FPopupMenuLabels.ItalicCaption;
wwInternational.RichEdit.PopupMenuLabels.UnderlineCaption:=FPopupMenuLabels.UnderlineCaption;
wwInternational.RichEdit.PopupMenuLabels.BulletStyleCaption:=FPopupMenuLabels.BulletStyleCaption;
wwInternational.RichEdit.PopupMenuLabels.ParagraphCaption:=FPopupMenuLabels.ParagraphCaption;
wwInternational.RichEdit.PopupMenuLabels.TabsCaption:=FPopupMenuLabels.TabsCaption;
wwInternational.RichEdit.PopupMenuLabels.FindCaption:=FPopupMenuLabels.FindCaption;
wwInternational.RichEdit.PopupMenuLabels.ReplaceCaption:=FPopupMenuLabels.ReplaceCaption;
wwInternational.RichEdit.PopupMenuLabels.InsertObjectCaption:=FPopupMenuLabels.InsertObjectCaption;
wwInternational.RichEdit.PopupMenuLabels.ObjectPropertiesCaption:=FPopupMenuLabels.ObjectPropertiesCaption;
wwInternational.RichEdit.PopupMenuLabels.SpellCheckCaption:=FPopupMenuLabels.SpellCheckCaption;
wwInternational.RichEdit.ParagraphDialog.ParagraphDlgCaption:=FParagraphDialog.ParagraphDlgCaption;
wwInternational.RichEdit.ParagraphDialog.IndentationGroupBoxCaption:=FParagraphDialog.IndentationGroupBoxCaption;
wwInternational.RichEdit.ParagraphDialog.LeftEditCaption:=FParagraphDialog.LeftEditCaption;
wwInternational.RichEdit.ParagraphDialog.RightEditCaption:=FParagraphDialog.RightEditCaption;
wwInternational.RichEdit.ParagraphDialog.FirstLineEditCaption:=FParagraphDialog.FirstLineEditCaption;
wwInternational.RichEdit.ParagraphDialog.AlignmentCaption:=FParagraphDialog.AlignmentCaption;
wwInternational.RichEdit.ParagraphDialog.LeftEditHint:=FParagraphDialog.FLeftEditHint;
wwInternational.RichEdit.ParagraphDialog.RightEditHint:=FParagraphDialog.FRightEditHint;
wwInternational.RichEdit.ParagraphDialog.FirstLineEditHint:=FParagraphDialog.FFirstLineEditHint;
wwInternational.RichEdit.ParagraphDialog.AlignmentHint:=FParagraphDialog.FAlignmentHint;
wwInternational.RichEdit.ParagraphDialog.AlignLeft:= FParagraphDialog.AlignLeft;
wwInternational.RichEdit.ParagraphDialog.AlignRight:= FParagraphDialog.AlignRight;
wwInternational.RichEdit.ParagraphDialog.AlignJustify:= FParagraphDialog.AlignJustify;
wwInternational.RichEdit.ParagraphDialog.AlignCenter:= FParagraphDialog.AlignCenter;
wwInternational.RichEdit.ParagraphDialog.SpacingGroupCaption:= FParagraphDialog.SpacingGroupCaption;
wwInternational.RichEdit.ParagraphDialog.BeforeParagraphCaption:= FParagraphDialog.BeforeParagraphCaption;
wwInternational.RichEdit.ParagraphDialog.AfterParagraphCaption:= FParagraphDialog.AfterParagraphCaption;
wwInternational.RichEdit.ParagraphDialog.WithinParagraphCaption:= FParagraphDialog.WithinParagraphCaption;
wwInternational.RichEdit.ParagraphDialog.WithinParagraphAtCaption:= FParagraphDialog.WithinParagraphAtCaption;
{$ifdef wwdelphi4up}
wwInternational.RichEdit.ParagraphDialog.SpacingSingle:= FParagraphDialog.SpacingSingle;
wwInternational.RichEdit.ParagraphDialog.Spacing1_5:= FParagraphDialog.Spacing1_5;
wwInternational.RichEdit.ParagraphDialog.SpacingDouble:= FParagraphDialog.SpacingDouble;
wwInternational.RichEdit.ParagraphDialog.SpacingAtLeast:= FParagraphDialog.SpacingAtLeast;
wwInternational.RichEdit.ParagraphDialog.SpacingExactly:= FParagraphDialog.SpacingExactly;
wwInternational.RichEdit.ParagraphDialog.SpacingMultiple:= FParagraphDialog.SpacingMultiple;
wwInternational.RichEdit.ParagraphDialog.HelpContext:= FParagraphDialog.HelpContext;
{$endif}
wwInternational.RichEdit.TabDialog.TabDlgCaption:=FTabDialog.TabDlgCaption;
wwInternational.RichEdit.TabDialog.TabGroupBoxCaption:=FTabDialog.FTabGroupBoxCaption;
wwInternational.RichEdit.TabDialog.SetTabButtonCaption:=FTabDialog.FSetTabButtonCaption;
wwInternational.RichEdit.TabDialog.ClearTabButtonCaption:=FTabDialog.FClearTabButtonCaption;
wwInternational.RichEdit.TabDialog.ClearAllButtonCaption:=FTabDialog.FClearAllButtonCaption;
wwInternational.RichEdit.TabDialog.TabPositionEditHint:=FTabDialog.FTabPositionEditHint;
wwInternational.RichEdit.TabDialog.ListBoxHint:=FTabDialog.FListBoxHint;
wwInternational.RichEdit.TabDialog.SetButtonHint:=FTabDialog.FSetButtonHint;
wwInternational.RichEdit.TabDialog.ClearButtonHint:=FTabDialog.FClearButtonHint;
wwInternational.RichEdit.TabDialog.ClearAllButtonHint:= FTabDialog.FClearAllButtonHint;
wwInternational.RichEdit.TabDialog.HelpContext:= FTabDialog.HelpContext;
end;
with SearchDialog do begin
wwInternational.SearchDialog.SearchCharLabel:= FSearchCharLabel;
wwInternational.SearchDialog.SearchCharShortLabel:= FSearchCharShortLabel;
wwInternational.SearchDialog.SearchByLabel:= FSearchByLabel;
wwInternational.SearchDialog.StatusRecLabel:= FStatusRecLabel;
wwInternational.SearchDialog.StatusOfLabel:= FStatusOfLabel;
wwInternational.SearchDialog.SearchCharHint:= FSearchCharHint;
wwInternational.SearchDialog.SearchByHint:= FSearchByHint;
end;
with MonthCalendar do begin
wwInternational.MonthCalendar.PopupYearLabel := FPopupYearLabel;
wwInternational.MonthCalendar.EnterYearPrompt:= FEnterYearPrompt;
end;
with LocateDialog do
begin
wwInternational.LocateDialog.FieldValueLabel:= FFieldValueLabel;
wwInternational.LocateDialog.SearchTypeLabel:= FSearchTypelabel;
wwInternational.LocateDialog.CaseSensitiveLabel:= FCaseSensitiveLabel;
wwInternational.LocateDialog.MatchExactLabel:= FMatchExactLabel;
wwInternational.LocateDialog.MatchStartLabel:= FMatchStartLabel;
wwInternational.LocateDialog.MatchAnyLabel:= FMatchAnyLabel;
wwInternational.LocateDialog.FieldsLabel:= FFieldsLabel;
wwInternational.LocateDialog.BtnFirst:= FButtonFirst;
wwInternational.LocateDialog.BtnNext:= FButtonNext;
wwInternational.LocateDialog.BtnCancel:= FButtonCancel;
wwInternational.LocateDialog.BtnClose:= FButtonClose;
wwInternational.LocateDialog.FieldValueHint:= FFieldValueHint;
wwInternational.LocateDialog.CaseSensitiveHint:= FCaseSensitiveHint;
wwInternational.LocateDialog.MatchExactHint:= FMatchExactHint;
wwInternational.LocateDialog.MatchStartHint:= FMatchStartHint;
wwInternational.LocateDialog.MatchAnyHint:= FMatchAnyHint;
wwInternational.LocateDialog.BtnFirstHint:= FButtonFirstHint;
wwInternational.LocateDialog.BtnNextHint:= FButtonNextHint;
wwInternational.LocateDialog.FieldNameHint:= FFieldNameHint;
end;
with ADO do
begin
wwInternational
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -