home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / e_to_l / edsspell / absspell.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-15  |  3.6 KB  |  108 lines
  1. (* ABSSPELL.PAS - Copyright (c) 1995-1996, Eminent Domain Software *)
  2.  
  3. unit AbsSpell;
  4.   {-Abstract Spell Checking Dialog Form}
  5. interface
  6. uses
  7.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  8.   Forms, Dialogs, StdCtrls, Buttons, Menus,
  9.   ExtCtrls, EDSUtil, SpellGbl;
  10.  
  11. const
  12.   {Modal Results for Spell Dialog and CheckWord}
  13.   mrReplace       = 20;
  14.   mrAdd           = 21;
  15.   mrSkipOnce      = 22;
  16.   mrSkipAll       = 23;
  17.   mrReplaceAll    = 24;
  18.   mrSuggest       = 25;
  19.  
  20. type
  21.   TAccents        = (acSpanish);
  22.   TAccentSet      = Set of TAccents;
  23.  
  24.   TAbsSpellDialog = class (TForm)
  25.   private
  26.     { Private declarations }
  27.     FSuggestions:   Byte;         {number of words to suggest}
  28.     FAccents:       TAccentSet;   {set of accents to display on dialog}
  29.     FLanguage:      TLanguages;   {current label language}
  30.     procedure CreateParams (var Params: TCreateParams);  override;
  31.     procedure SetLanguage (ToLanguage: TLanguages);
  32.       {-calls SetLabelLanguage (used for property)}
  33.   public
  34.     { Public declarations }
  35.     SpellDlgResult: Integer;
  36.     constructor Create (AOwner: TComponent);
  37.     destructor  Destroy;  override;
  38.  
  39.     {--- Labels and Prompts ----}
  40.     procedure SetNotFoundPrompt (ToString: String);  dynamic;  abstract;
  41.       {-sets the not found prompt}
  42.     procedure SetNotFoundCaption (ToString: String);  dynamic;  abstract;
  43.       {-sets the not found caption}
  44.     procedure SetEditWord (ToWord: String);  dynamic;  abstract;
  45.       {-sets the edit word string}
  46.     function  GetEditWord: String;  dynamic;  abstract;
  47.       {-gets the edit word}
  48.     procedure SetEditAsActive;  dynamic;  abstract;
  49.       {-sets activecontrol the edit control}
  50.     procedure SetLabelLanguage;  dynamic;
  51.       {-sets labels and buttons to a the language}
  52.  
  53.     {--- Buttons ---}
  54.     procedure EnableSkipButtons;  dynamic;  abstract;
  55.       {-enables the Skip and Skip All buttons}
  56.       {-or          Ignore and Ignore All}
  57.     procedure DisableSkipButtons;  dynamic;  abstract;
  58.       {-disables the Skip and Skip All buttons}
  59.       {-or           Ignore and Ignore All}
  60.  
  61.     {--- Accented Buttons ---}
  62.     procedure SetAccentSet (Accents: TAccentSet);   dynamic;  abstract;
  63.       {-sets the accented buttons to be displayed}
  64.  
  65.     {--- Suggest List ----}
  66.     procedure ClearSuggestList; dynamic;  abstract;
  67.       {-clears the suggest list}
  68.     procedure MakeSuggestions;  dynamic;  abstract;
  69.       {-sets the suggest list}
  70.     property  Suggestions:  Byte read FSuggestions write FSuggestions;
  71.     property  Language: TLanguages read FLanguage write SetLanguage;
  72.   end;  { TAbsSpellDialog }
  73.  
  74. implementation
  75.  
  76. constructor TAbsSpellDialog.Create (AOwner: TComponent);
  77. begin
  78.   inherited Create (AOwner);
  79. end;  { TAbsSpellDialog.Create }
  80.  
  81. procedure TAbsSpellDialog.CreateParams (var Params: TCreateParams);
  82. begin
  83.   inherited CreateParams (Params);
  84.   if Parent {Application.MainForm} <> nil then
  85.     Params.WndParent := Parent{Application.MainForm}.Handle;
  86. end;  { TAbsSpellDialog.CreateParams }
  87.  
  88. procedure TAbsSpellDialog.SetLabelLanguage;
  89.   {-sets labels and buttons to a the language}
  90. begin
  91.   if not (FLanguage in [lgEnglish, lgBritish]) then
  92.     Caption := SpellTitle[FLanguage];
  93. end;  { TAbsSpellDialog.SetLabelLanguage }
  94.  
  95. procedure TAbsSpellDialog.SetLanguage (ToLanguage: TLanguages);
  96.   {-sets labels and buttons to a the language}
  97. begin
  98.   FLanguage := ToLanguage;
  99.   SetLabelLanguage;
  100. end;  { TAbsSpellDialog.SetLanguage }
  101.  
  102. destructor TAbsSpellDialog.Destroy;
  103. begin
  104.   inherited Destroy;
  105. end;  { TAbsSpellDialog.Destroy }
  106.  
  107. end.  { AbsSpell }
  108.