Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.536 by h677, Sat Nov 19 04:51:51 2005 UTC revision 1.537 by h677, Sat Nov 19 10:14:43 2005 UTC
# Line 930  type Line 930  type
930                  procedure ListDoubleClick(Shift: TShiftState);                  procedure ListDoubleClick(Shift: TShiftState);
931                  function Hook(var Message: TMessage): Boolean;                  function Hook(var Message: TMessage): Boolean;
932                  procedure AddRoundNameMenu(MenuItem: TMenuItem);                  procedure AddRoundNameMenu(MenuItem: TMenuItem);
                 procedure SetSelectItemRound(RoundFlag: Boolean; RoundName: string); overload;  
                 procedure SetSelectItemRound(RoundFlag: Boolean; RoundName: string; ParentName: string); overload;  
                 procedure SetSelectRoundName(Sender: TObject);  
933                  function GetCoolBand(CoolBar: TCoolBar; Control: TWinControl): TCoolBand;                  function GetCoolBand(CoolBar: TCoolBar; Control: TWinControl): TCoolBand;
934                  procedure SetMenuFont;                  procedure SetMenuFont;
935                  procedure CreateFavMenu(Node: TTreeNode; MenuItem: TMenuItem);                  procedure CreateFavMenu(Node: TTreeNode; MenuItem: TMenuItem);
# Line 945  type Line 942  type
942                  procedure MenuBarChevronMenu;                  procedure MenuBarChevronMenu;
943                  procedure LinkBarChevronMenu;                  procedure LinkBarChevronMenu;
944                  procedure ToolBarChevronMenu(ToolBar: TToolBar);                  procedure ToolBarChevronMenu(ToolBar: TToolBar);
                 procedure ModifySelectList;  
945                  procedure LinkToolButtonDragDrop(Sender, Source: TObject; X, Y: Integer);                  procedure LinkToolButtonDragDrop(Sender, Source: TObject; X, Y: Integer);
946                  procedure LinkToolButtonOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);                  procedure LinkToolButtonOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
947                  procedure LinkToolButtonOnMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);                  procedure LinkToolButtonOnMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
# Line 1029  type Line 1025  type
1025                  property ToolBarSettingSender : TToolBarSettingSenderType                  property ToolBarSettingSender : TToolBarSettingSenderType
1026                                                   read FToolBarSettingSender write FToolBarSettingSender;                                                   read FToolBarSettingSender write FToolBarSettingSender;
1027                  property ScreenCursor : TCursor read GetScreenCursor write SetScreenCursor;                  property ScreenCursor : TCursor read GetScreenCursor write SetScreenCursor;
1028                    property SortIndex: Integer read FSortIndex write FSortIndex;
1029                    property SortOrder: Boolean read FSortOrder write FSortOrder;
1030    
1031                  procedure SetContent(inThread: TBrowserRecord);                  procedure SetContent(inThread: TBrowserRecord);
1032                  function GetActiveContent: TThreadItem;                  function GetActiveContent: TThreadItem;
1033                  function GetActiveList: TObject;                  function GetActiveList: TObject;
# Line 1111  type Line 1110  type
1110                  function LoadTabURLs : Boolean;                  function LoadTabURLs : Boolean;
1111                  //指定したレスをコピーする                  //指定したレスをコピーする
1112                  procedure KonoresCopy(Number: Integer; ReplaceTag : Boolean);                  procedure KonoresCopy(Number: Integer; ReplaceTag : Boolean);
1113                    //
1114                    procedure ModifySelectList;
1115                    //
1116                    procedure SetSelectItemRound(RoundFlag: Boolean; RoundName: string); overload;
1117                    //
1118                    procedure SetSelectItemRound(RoundFlag: Boolean; RoundName: string; ParentName: string); overload;
1119            //
1120                    procedure SetSelectRoundName(Sender: TObject);
1121          published          published
1122                  property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton;                  property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton;
1123                  //TActionでGetActiveContentがnil以外で有効になる                  //TActionでGetActiveContentがnil以外で有効になる

Legend:
Removed from v.1.536  
changed lines
  Added in v.1.537

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26