Unit Aligrid

Classes

TGridComponentEditor - @\\\*) (*@/// TGridComponentEditor = class(TComponentEditor)
TNewInplaceEdit - @/// TNewInplaceEdit = class(TInplaceEdit)
TStringAlignGrid - @\\\*) (*@/// TStringAlignGrid=class(TStringGrid)

Functions

AddIdleProc - @\\\*) (*@/// procedure AddIdleProc(proc:TIdleEvent);
AddShowHintProc - @\\\*) (*@/// The routines to make the applications events use a list of methods

@\\\*) (*@/// Include and remove the Methodpointer from the according lists *) (*@/// procedure AddShowHintProc(proc:TShowHintEvent);
AH_AllocateHWnd - @\\\*) { Creates a new HWnd and link it with the given Method } (*@/// function AH_AllocateHWnd(Method: TWndProc): HWND;
AH_DeallocateHWnd - @\\\*) { Removes the HWnd both in Windows an in the internal lists } (*@/// procedure AH_DeallocateHWnd(Wnd: HWND);
Clipboard2Stream - @\\\*) (*@/// procedure Clipboard2Stream(stream:TStream; format:integer);
Register - @\\\

@\\\*) (*@/// procedure Register; // To display the grid in the IDE
RemoveIdleProc - @\\\*) (*@/// procedure RemoveIdleProc(proc:TIdleEvent);
RemoveShowHintProc - @\\\*) (*@/// procedure RemoveShowHintProc(proc:TShowHintEvent);
Stream2Clipboard - @\\\*) (*@/// Make Stream and Clipboard work together

@\\\*) (*@/// procedure Stream2Clipboard(stream:TStream; format:integer);

Types

TCellEvent
TCompareFunction
TMyAlign
TWndProc
t_lastcell
T_nextcell
t_relation

Constants

cn_edit_cancel
cn_edit_exit
cn_edit_return
cn_edit_show
cn_edit_toshow

Variables


Functions


procedure AddIdleProc(proc:TIdleEvent);

@\\\*) (*@/// procedure AddIdleProc(proc:TIdleEvent);

procedure AddShowHintProc(proc:TShowHintEvent);

@\\\*) (*@/// The routines to make the applications events use a list of methods

@\\\*) (*@/// Include and remove the Methodpointer from the according lists *) (*@/// procedure AddShowHintProc(proc:TShowHintEvent);


function AH_AllocateHWnd(Method: TWndProc): HWND;

@\\\*) { Creates a new HWnd and link it with the given Method } (*@/// function AH_AllocateHWnd(Method: TWndProc): HWND;

procedure AH_DeallocateHWnd(Wnd: HWND);

@\\\*) { Removes the HWnd both in Windows an in the internal lists } (*@/// procedure AH_DeallocateHWnd(Wnd: HWND);

procedure Clipboard2Stream(stream:TStream; format:integer);

@\\\*) (*@/// procedure Clipboard2Stream(stream:TStream; format:integer);

procedure Register;

@\\\

@\\\*) (*@/// procedure Register; // To display the grid in the IDE


procedure RemoveIdleProc(proc:TIdleEvent);

@\\\*) (*@/// procedure RemoveIdleProc(proc:TIdleEvent);

procedure RemoveShowHintProc(proc:TShowHintEvent);

@\\\*) (*@/// procedure RemoveShowHintProc(proc:TShowHintEvent);

procedure Stream2Clipboard(stream:TStream; format:integer);

@\\\*) (*@/// Make Stream and Clipboard work together

@\\\*) (*@/// procedure Stream2Clipboard(stream:TStream; format:integer);


Types


TCellEvent = procedure (Sender:TObject; col,row:integer) of object

TCompareFunction = function(Sender:TObject; colrow,compare1,compare2:longint):t_relation of object

TMyAlign=(alRight,alLeft,alCenter);
internal: show the editor *) (*@\\\000C000101000541
TWndProc = procedure (var Message: TMessage) of object
@\\\*) (*@/// Create a windows HWnd avoiding the stuff from forms
t_lastcell=(lc_newcolrow, lc_stop, lc_first);

T_nextcell=(nc_rightdown, nc_downright, nc_leftdown, nc_downleft,
              nc_leftup,    nc_upleft,    nc_rightup,  nc_upright);

t_relation = (rel_greater, rel_equal, rel_less);

Constants

cn_edit_cancel = wm_user+2000

@/// control messages from and to the inplace edit

cn_edit_exit = wm_user+2002

edit finished with return

cn_edit_return = wm_user+2001

edit finished with ESC

cn_edit_show = wm_user+2003

edit finished otherwise (cursor)

cn_edit_toshow = wm_user+2004

edit is about to be shown

Variables