| 566 |
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean); |
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean); |
| 567 |
procedure TreeViewExpanded(Sender: TObject; Node: TTreeNode); |
procedure TreeViewExpanded(Sender: TObject; Node: TTreeNode); |
| 568 |
procedure TreeViewDblClick(Sender: TObject); |
procedure TreeViewDblClick(Sender: TObject); |
|
procedure FavoriteTreeViewClick(Sender: TObject); |
|
| 569 |
procedure ListViewCustomDraw(Sender: TCustomListView; |
procedure ListViewCustomDraw(Sender: TCustomListView; |
| 570 |
const ARect: TRect; var DefaultDraw: Boolean); |
const ARect: TRect; var DefaultDraw: Boolean); |
| 571 |
procedure ListViewMouseDown(Sender: TObject; Button: TMouseButton; |
procedure ListViewMouseDown(Sender: TObject; Button: TMouseButton; |
| 845 |
procedure MessagePanelResize(Sender: TObject); |
procedure MessagePanelResize(Sender: TObject); |
| 846 |
procedure OnResized; |
procedure OnResized; |
| 847 |
procedure TreeSelectNameCopyExecute(Sender: TObject); |
procedure TreeSelectNameCopyExecute(Sender: TObject); |
| 848 |
|
procedure FavoriteTreeViewMouseUp(Sender: TObject; |
| 849 |
|
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
| 850 |
private |
private |
| 851 |
{ Private 宣言 } |
{ Private 宣言 } |
| 852 |
//RoundList : TRoundList; |
//RoundList : TRoundList; |
| 907 |
FIsIgnoreResize : Boolean; // リサイズイベントを無視するかどうか |
FIsIgnoreResize : Boolean; // リサイズイベントを無視するかどうか |
| 908 |
FOldFormWidth : Integer; // 直前のウィンドウの幅 |
FOldFormWidth : Integer; // 直前のウィンドウの幅 |
| 909 |
FToolBarSettingSender : TToolBarSettingSenderType; // ツールバー設定をクリックしたクールバー |
FToolBarSettingSender : TToolBarSettingSenderType; // ツールバー設定をクリックしたクールバー |
| 910 |
FBrowserMouseDownPos : TPoint; // ブラウザタブでマウスを押したときの座標 |
FMouseDownPos : TPoint; // ブラウザタブでマウスを押したときの座標 |
| 911 |
procedure SetBoardTreeNode( inBBS : TBBS ); |
procedure SetBoardTreeNode( inBBS : TBBS ); |
| 912 |
function SetCategoryListItem(ABBS2ch: TBBS): Integer; |
function SetCategoryListItem(ABBS2ch: TBBS): Integer; |
| 913 |
function SetBoardListItem(Category: TCategory): Integer; |
function SetBoardListItem(Category: TCategory): Integer; |
| 2929 |
TreeDoubleClick( TreeView.Selected ); |
TreeDoubleClick( TreeView.Selected ); |
| 2930 |
end; |
end; |
| 2931 |
|
|
|
procedure TGikoForm.FavoriteTreeViewClick(Sender: TObject); |
|
|
begin |
|
|
|
|
|
FavoriteClick( TObject( FavoriteTreeView.Selected ) ); |
|
|
|
|
|
end; |
|
|
|
|
| 2932 |
procedure TGikoForm.DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon); |
procedure TGikoForm.DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon); |
| 2933 |
begin |
begin |
| 2934 |
AddMessageList(Msg, nil, Icon); |
AddMessageList(Msg, nil, Icon); |
| 5649 |
} |
} |
| 5650 |
end else if BUtton = mbLeft then begin |
end else if BUtton = mbLeft then begin |
| 5651 |
FDragWFirst := true; |
FDragWFirst := true; |
| 5652 |
FBrowserMouseDownPos.X := X; |
FMouseDownPos.X := X; |
| 5653 |
FBrowserMouseDownPos.Y := Y; |
FMouseDownPos.Y := Y; |
| 5654 |
end; |
end; |
| 5655 |
|
|
| 5656 |
end; |
end; |
| 9012 |
begin |
begin |
| 9013 |
if FDragWFirst <> true then begin |
if FDragWFirst <> true then begin |
| 9014 |
FDragWFirst := false; |
FDragWFirst := false; |
| 9015 |
end else if (X = FBrowserMouseDownPos.X) and (Y = FBrowserMouseDownPos.Y) then begin |
end else if (X = FMouseDownPos.X) and (Y = FMouseDownPos.Y) then begin |
| 9016 |
if GikoSys.Setting.ListOrientation = gloHorizontal then begin |
if GikoSys.Setting.ListOrientation = gloHorizontal then begin |
| 9017 |
if GikoSys.Setting.ListWidthState = glsMin then begin |
if GikoSys.Setting.ListWidthState = glsMin then begin |
| 9018 |
BrowserMaxAction.Execute; |
BrowserMaxAction.Execute; |
| 9537 |
begin |
begin |
| 9538 |
|
|
| 9539 |
case Button of |
case Button of |
| 9540 |
|
mbLeft: |
| 9541 |
|
begin |
| 9542 |
|
FMouseDownPos.X := X; |
| 9543 |
|
FMouseDownPos.Y := Y; |
| 9544 |
|
end; |
| 9545 |
mbMiddle: |
mbMiddle: |
| 9546 |
begin |
begin |
| 9547 |
favItem := FavoriteTreeView.GetNodeAt( X, Y ); |
favItem := FavoriteTreeView.GetNodeAt( X, Y ); |
| 9589 |
Clipboard.AsText := s; |
Clipboard.AsText := s; |
| 9590 |
end; |
end; |
| 9591 |
|
|
| 9592 |
|
procedure TGikoForm.FavoriteTreeViewMouseUp(Sender: TObject; |
| 9593 |
|
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
| 9594 |
|
begin |
| 9595 |
|
|
| 9596 |
|
if (abs( X - FMouseDownPos.X ) < Mouse.DragThreshold) and |
| 9597 |
|
(abs( Y - FMouseDownPos.Y ) < Mouse.DragThreshold) then begin |
| 9598 |
|
FavoriteClick( TObject( FavoriteTreeView.Selected ) ); |
| 9599 |
|
end; |
| 9600 |
|
|
| 9601 |
|
end; |
| 9602 |
|
|
| 9603 |
initialization |
initialization |
| 9604 |
OleInitialize(nil); |
OleInitialize(nil); |
| 9605 |
finalization |
finalization |