TSynBaseCompletionForm

type TSynBaseCompletionForm = class(TForm)

  procedure SDKeyDown();

  procedure SDKeyPress();

  procedure SDUtf8KeyPress();

protected

  FCurrentString: string;

  FOnKeyPress: TKeyPressEvent;

  FOnKeyDelete: TNotifyEvent;

  FOnPaintItem: TSynBaseCompletionPaintItem;

  FItemList: TStrings;

  FPosition: Integer;

  FNbLinesInWindow: Integer;

  FFontHeight: Integer;

  FResizeLock: Integer;

  Scroll: TScrollBar;

  SizeDrag: TSynBaseCompletionFormSizeDrag;

  FOnValidate: TValidateEvent;

  FOnCancel: TNotifyEvent;

  FClSelect: TColor;

  FCaseSensitive: Boolean;

  FBackgroundColor: TColor;

  FDrawBorderColor: TColor;

  FOnSearchPosition: TSynBaseCompletionSearchPosition;

  FOnKeyCompletePrefix: TNotifyEvent;

  FOnKeyNextChar: TNotifyEvent;

  FOnKeyPrevChar: TNotifyEvent;

  FTextColor: TColor;

  FTextSelectedColor: TColor;

  FHint: TSynBaseCompletionHint;

  FHintTimer: TTimer;

  FLongLineHintTime: Integer;

  FLongLineHintType: TSynCompletionLongHintType;

  FMouseWheelAccumulator: Integer;

  procedure DoEditorKeyDown();

  procedure DoEditorKeyPress();

  procedure DoEditorUtf8KeyPress();

  procedure UTF8KeyPress(); override;

  procedure SetCurrentString();

  procedure KeyDown(); override;

  procedure KeyPress(); override;

  procedure AddCharAtCursor(); virtual;

  procedure DeleteCharAfterCursor; virtual;

  procedure DeleteCharBeforeCursor; virtual;

  procedure Paint; override;

  procedure AppDeactivated();

  procedure Deactivate; override;

  procedure SelectPrec;

  procedure SelectNext;

  procedure ScrollChange();

  procedure ScrollGetFocus();

  procedure ScrollScroll();

  procedure SetItemList();

  procedure SetPosition();

  procedure SetNbLinesInWindow();

  procedure HintWindowMouseDown();

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure StringListChange();

  procedure DoOnResize; override;

  procedure SetBackgroundColor();

  procedure FontChanged(); override;

  procedure WMMouseWheel(); message;

  procedure RegisterHandlers();

  procedure UnRegisterHandlers();

  procedure SetVisible(); override;

  procedure IncHintLock;

  procedure DecHintLock;

  procedure DoOnDragResize();

  procedure ClearCurrentString;

public

  constructor Create(); override;

  destructor Destroy; override;

  function Focused; override;

  procedure ShowItemHint();

  procedure OnHintTimer();

  property CurrentEditor: TCustomSynEdit; [r]

published

  property CurrentString: string; [rw]

  property OnKeyPress: TKeyPressEvent; [rw]

  property OnKeyDelete: TNotifyEvent; [rw]

  property OnPaintItem: TSynBaseCompletionPaintItem; [rw]

  property OnMeasureItem: TSynBaseCompletionMeasureItem; [rw]

  property OnValidate: TValidateEvent; [rw]

  property OnCancel: TNotifyEvent; [rw]

  property ItemList: TStrings; [rw]

  property Position: Integer; [rw]

  property NbLinesInWindow: Integer; [rw]

  property ClSelect: TColor; [rw]

  property CaseSensitive: Boolean; [rw]

  property FontHeight: Integer; [r]

  property OnSearchPosition: TSynBaseCompletionSearchPosition; [rw]

  property OnKeyCompletePrefix: TNotifyEvent; [rw]

  property OnKeyNextChar: TNotifyEvent; [rw]

  property OnKeyPrevChar: TNotifyEvent; [rw]

  property OnPositionChanged: TNotifyEvent; [rw]

  property BackgroundColor: TColor; [rw]

  property DrawBorderColor: TColor; [rw]

  property DrawBorderWidth: Integer; [rw]

  property TextColor: TColor; [rw]

  property TextSelectedColor: TColor; [rw]

  property LongLineHintTime: Integer; [rw]

  property LongLineHintType: TSynCompletionLongHintType; [rw]

  property DoubleClickSelects: Boolean; [rw]

  property ShowSizeDrag: Boolean; [rw]

  property OnDragResized: TNotifyEvent; [rw]

end;

TSynBaseCompletionForm

TObject