| 928 |
// procedure SetStdToolBar; |
// procedure SetStdToolBar; |
| 929 |
// function GetAction(ActionName: string): TContainedAction; |
// function GetAction(ActionName: string): TContainedAction; |
| 930 |
procedure SetLinkBar; |
procedure SetLinkBar; |
| 931 |
|
procedure ClearLinkBar; |
| 932 |
function GetWidthAllToolButton(ToolBar: TToolBar): Integer; |
function GetWidthAllToolButton(ToolBar: TToolBar): Integer; |
| 933 |
procedure MenuBarChevronMenu; |
procedure MenuBarChevronMenu; |
| 934 |
procedure LinkBarChevronMenu; |
procedure LinkBarChevronMenu; |
| 1684 |
except |
except |
| 1685 |
end; |
end; |
| 1686 |
|
|
| 1687 |
|
try |
| 1688 |
|
ClearLinkBar; |
| 1689 |
|
except |
| 1690 |
|
end; |
| 1691 |
|
|
| 1692 |
// FDownload.Free; |
// FDownload.Free; |
| 1693 |
try |
try |
| 1702 |
TreeView.Items.Clear; |
TreeView.Items.Clear; |
| 1703 |
except |
except |
| 1704 |
end; |
end; |
| 1705 |
|
try |
| 1706 |
|
FavoriteTreeView.Items.Clear; |
| 1707 |
|
except |
| 1708 |
|
end; |
| 1709 |
|
|
| 1710 |
try |
try |
| 1711 |
if FavoriteDM <> nil then |
if FavoriteDM <> nil then |
| 6554 |
|
|
| 6555 |
procedure TGikoForm.WndProc(var Message: TMessage); |
procedure TGikoForm.WndProc(var Message: TMessage); |
| 6556 |
begin |
begin |
| 6557 |
if (Message.Msg = CM_DIALOGCHAR) then |
try |
| 6558 |
if not (ssAlt in KeyDataToShiftState(TWMChar(Message).KeyData)) then |
if (Message.Msg = CM_DIALOGCHAR) then |
| 6559 |
Exit; |
if not (ssAlt in KeyDataToShiftState(TWMChar(Message).KeyData)) then |
| 6560 |
inherited; |
Exit; |
| 6561 |
|
inherited; |
| 6562 |
|
except |
| 6563 |
|
end; |
| 6564 |
end; |
end; |
| 6565 |
|
|
| 6566 |
procedure TGikoForm.FormShortCut(var Msg: TWMKey; var Handled: Boolean); |
procedure TGikoForm.FormShortCut(var Msg: TWMKey; var Handled: Boolean); |
| 7055 |
MainCoolBar.Bands.EndUpdate; |
MainCoolBar.Bands.EndUpdate; |
| 7056 |
end; |
end; |
| 7057 |
end; |
end; |
| 7058 |
|
procedure TGikoForm.ClearLinkBar; |
| 7059 |
|
var |
| 7060 |
|
i: Integer; |
| 7061 |
|
begin |
| 7062 |
|
MainCoolBar.Bands.BeginUpdate; |
| 7063 |
|
try |
| 7064 |
|
LinkBarPopupMenu.Items.Clear; |
| 7065 |
|
for i := LinkToolBar.ButtonCount - 1 downto 0 do |
| 7066 |
|
LinkToolBar.RemoveControl(LinkToolBar.Buttons[i]); |
| 7067 |
|
finally |
| 7068 |
|
MainCoolBar.Bands.EndUpdate; |
| 7069 |
|
end; |
| 7070 |
|
end; |
| 7071 |
procedure TGikoForm.FavoriteDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); |
procedure TGikoForm.FavoriteDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); |
| 7072 |
var |
var |
| 7073 |
Node: TTreeNode; |
Node: TTreeNode; |