| 924 |
|
|
| 925 |
procedure SetActiveList(Obj: TObject); |
procedure SetActiveList(Obj: TObject); |
| 926 |
procedure ListClick; |
procedure ListClick; |
| 927 |
procedure ListDoubleClick; |
procedure ListDoubleClick(Shift: TShiftState); |
| 928 |
procedure BrowserMovement(AName: string); |
procedure BrowserMovement(AName: string); |
| 929 |
procedure SelectListItem(List: TList); |
procedure SelectListItem(List: TList); |
| 930 |
// procedure SetProgressValue(Number: Integer; Value: Integer; Max: Integer = -1); |
// procedure SetProgressValue(Number: Integer; Value: Integer; Max: Integer = -1); |
| 2626 |
if Key = VK_BACK then begin |
if Key = VK_BACK then begin |
| 2627 |
// UpFolderButtonClick(Sender); |
// UpFolderButtonClick(Sender); |
| 2628 |
end else if Key = VK_SPACE then begin |
end else if Key = VK_SPACE then begin |
| 2629 |
ListDoubleClick; |
ListDoubleClick(Shift); |
| 2630 |
end else if Key = VK_RETURN then begin |
end else if Key = VK_RETURN then begin |
| 2631 |
ListClick; |
ListClick; |
| 2632 |
end; |
end; |
| 2636 |
end else if Key = VK_SPACE then begin |
end else if Key = VK_SPACE then begin |
| 2637 |
ListClick; |
ListClick; |
| 2638 |
end else if Key = VK_RETURN then begin |
end else if Key = VK_RETURN then begin |
| 2639 |
ListDoubleClick; |
ListDoubleClick(Shift); |
| 2640 |
end; |
end; |
| 2641 |
end; |
end; |
| 2642 |
end; |
end; |
| 4064 |
end; |
end; |
| 4065 |
end; |
end; |
| 4066 |
|
|
| 4067 |
procedure TGikoForm.ListDoubleClick; |
procedure TGikoForm.ListDoubleClick(Shift: TShiftState); |
| 4068 |
var |
var |
| 4069 |
ThreadItem: TThreadItem; |
ThreadItem: TThreadItem; |
| 4070 |
shiftDown: Boolean; |
shiftDown: Boolean; |
| 4071 |
begin |
begin |
| 4072 |
shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001); |
//shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001); |
| 4073 |
// PostMessage(ListView.Handle, WM_CANCELMODE, 0, 0); |
shiftDown := (ssShift in Shift); |
| 4074 |
|
// PostMessage(ListView.Handle, WM_CANCELMODE, 0, 0); |
| 4075 |
|
|
| 4076 |
if ListView.Selected = nil then Exit; |
if ListView.Selected = nil then Exit; |
| 4077 |
// if TreeView.Selected = nil then Exit; |
// if TreeView.Selected = nil then Exit; |
| 5003 |
end; |
end; |
| 5004 |
|
|
| 5005 |
procedure TGikoForm.ListViewDblClick(Sender: TObject); |
procedure TGikoForm.ListViewDblClick(Sender: TObject); |
| 5006 |
|
var |
| 5007 |
|
shift: TShiftState; |
| 5008 |
begin |
begin |
| 5009 |
ListDoubleClick; |
shift := []; |
| 5010 |
|
if GetAsyncKeyState(VK_SHIFT) = Smallint($8001) then |
| 5011 |
|
Include(shift, ssShift); |
| 5012 |
|
if GetAsyncKeyState(VK_CONTROL) = Smallint($8001) then |
| 5013 |
|
Include(shift, ssCtrl); |
| 5014 |
|
if GetAsyncKeyState(VK_MENU) = Smallint($8001) then |
| 5015 |
|
Include(shift, ssAlt); |
| 5016 |
|
|
| 5017 |
|
ListDoubleClick(shift); |
| 5018 |
end; |
end; |
| 5019 |
|
|
| 5020 |
procedure TGikoForm.LogDeleteActionExecute(Sender: TObject); |
procedure TGikoForm.LogDeleteActionExecute(Sender: TObject); |
| 9321 |
Header := CustomStringReplace(Header, '<b>', '',true); |
Header := CustomStringReplace(Header, '<b>', '',true); |
| 9322 |
end; |
end; |
| 9323 |
|
|
| 9324 |
Body := CustomStringReplace(Res.FBody, '<br> ', #13#10,true); |
//Body := CustomStringReplace(Res.FBody, '<br> ', #13#10,true); |
| 9325 |
|
Body := CustomStringReplace(Res.FBody, '<br>', #13#10,true); |
| 9326 |
Body := CustomStringReplace(Body, '<br>', #13#10,true); |
Body := CustomStringReplace(Body, '<br>', #13#10,true); |
| 9327 |
Body := CustomStringReplace(Body, '</a>', '',true); |
Body := CustomStringReplace(Body, '</a>', '',true); |
| 9328 |
|
|
| 9332 |
Body := CustomStringReplace(Body, '>', '>'); |
Body := CustomStringReplace(Body, '>', '>'); |
| 9333 |
Body := CustomStringReplace(Body, '"', '"'); |
Body := CustomStringReplace(Body, '"', '"'); |
| 9334 |
Body := CustomStringReplace(Body, '&', '&'); |
Body := CustomStringReplace(Body, '&', '&'); |
| 9335 |
Body := CustomStringReplace(Body, ' ', ' '); |
//Body := CustomStringReplace(Body, ' ', ' '); |
| 9336 |
end; |
end; |
| 9337 |
|
|
| 9338 |
Header := Header + Body; |
Header := Header + Body; |