Class TGridComponentEditor (unit Aligrid) |
Inherits from
TComponentEditor
@\\\*) (*@/// TGridComponentEditor = class(TComponentEditor)
procedure AlignItem(Sender: TObject);
@\\\*) (*@/// procedure TGridComponentEditor.
procedure ColorItem(Sender: TObject);
@\\\*) (*@/// procedure TGridComponentEditor.
procedure Edit;
@\\\*) (*@/// procedure TGridComponentEditor.
procedure EditItem(Sender: TObject);
@\\\*) (*@/// procedure TGridComponentEditor.
procedure FontItem(Sender: TObject);
@\\\*) (*@/// procedure TGridComponentEditor.
procedure MouseDown(Sender:TObject; Button:TMouseButton; Shift: TSHiftstate; X,Y:Integer);
@\\\*) (*@/// procedure TGridComponentEditor.
Align_Items : array[0..4,0..3] of TMenuItem;
color_Items : array[0..4,0..1] of TMenuItem;
Edit_Items : array[0..2,0..2] of TMenuItem;
font_Items : array[0..4,0..1] of TMenuItem;
Grid : TStringAlignGrid;
PopupCell : TPoint;
popup_menu : TPopupMenu;
ShowCells : TMenuItem;
ShowHints : TMenuItem;
procedure AlignItem(Sender: TObject);
@\\\*) (*@/// procedure TGridComponentEditor.AlignItem(Sender: TObject); // MenuClick align
procedure ColorItem(Sender: TObject);
@\\\*) (*@/// procedure TGridComponentEditor.ColorItem(Sender: TObject); // MenuClick color
procedure Edit;
@\\\*) (*@/// procedure TGridComponentEditor.Edit; // OnCreate
procedure EditItem(Sender: TObject);
@\\\*) (*@/// procedure TGridComponentEditor.EditItem(Sender: TObject); // MenuClick edit
procedure FontItem(Sender: TObject);
@\\\*) (*@/// procedure TGridComponentEditor.FontItem(Sender: TObject); // MenuClick font
procedure MouseDown(Sender:TObject; Button:TMouseButton; Shift: TSHiftstate; X,Y:Integer);
@\\\*) (*@/// procedure TGridComponentEditor.MouseDown(Sender:TObject;..); // OnPopup
Align_Items : array[0..4,0..3] of TMenuItem;
color_Items : array[0..4,0..1] of TMenuItem;
Edit_Items : array[0..2,0..2] of TMenuItem;
font_Items : array[0..4,0..1] of TMenuItem;
Grid : TStringAlignGrid;
PopupCell : TPoint;
popup_menu : TPopupMenu;
ShowCells : TMenuItem;
ShowHints : TMenuItem;