OSDN Git Service
(root)
/
gikonavigoeson
/
gikonavi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
fbfd0e4
)
板情報取得中にレスエディターを終了させると"処理されなかった例外"が出る問題を修正
author
genyakun
<genyakun>
Tue, 11 Oct 2005 12:43:24 +0000
(12:43 +0000)
committer
genyakun
<genyakun>
Tue, 11 Oct 2005 12:43:24 +0000
(12:43 +0000)
Editor.pas
patch
|
blob
|
history
diff --git
a/Editor.pas
b/Editor.pas
index
f9f7cec
..
d7f78d6
100644
(file)
--- a/
Editor.pas
+++ b/
Editor.pas
@@
-1731,6
+1731,10
@@
var
settingBody: TStringList;
tmpBoard: TBoard;
begin
settingBody: TStringList;
tmpBoard: TBoard;
begin
+ if FWork then
+ Exit;
+ FWork := True;
+
InitIdHTTP(Indy);
if FThreadItem = nil then
tmpBoard := FBoard
InitIdHTTP(Indy);
if FThreadItem = nil then
tmpBoard := FBoard
@@
-1779,6
+1783,8
@@
begin
Screen.Cursor := crDefault;
end;
ShowBoardInformation(tmpBoard, BoardInformationMemo);
Screen.Cursor := crDefault;
end;
ShowBoardInformation(tmpBoard, BoardInformationMemo);
+
+ FWork := False;
end;
procedure TEditorForm.ShowBoardInformation(ABoard: TBoard; AMemo: TMemo);
end;
procedure TEditorForm.ShowBoardInformation(ABoard: TBoard; AMemo: TMemo);
@@
-1844,6
+1850,10
@@
var
memStream: TMemoryStream;
tmpBoard: TBoard;
begin
memStream: TMemoryStream;
tmpBoard: TBoard;
begin
+ if FWork then
+ Exit;
+ FWork := True;
+
InitIdHTTP(Indy);
memStream := TMemoryStream.Create;
try
InitIdHTTP(Indy);
memStream := TMemoryStream.Create;
try
@@
-1877,6
+1887,7
@@
begin
memStream.Free;
end;
memStream.Free;
end;
+ FWork := False;
end;
procedure TEditorForm.ShowTitlePicture();
var
end;
procedure TEditorForm.ShowTitlePicture();
var
@@
-1917,6
+1928,10
@@
var
settingBody: TStringList;
tmpBoard: TBoard;
begin
settingBody: TStringList;
tmpBoard: TBoard;
begin
+ if FWork then
+ Exit;
+ FWork := True;
+
InitIdHTTP(Indy);
if FThreadItem = nil then
tmpBoard := FBoard
InitIdHTTP(Indy);
if FThreadItem = nil then
tmpBoard := FBoard
@@
-1975,7
+1990,8
@@
begin
if tmpBoard.IsHEADTXT then begin
ShowBoardHead(tmpboard, LocalEdit);
end;
if tmpBoard.IsHEADTXT then begin
ShowBoardHead(tmpboard, LocalEdit);
end;
-
+
+ FWork := False;
end;
procedure TEditorForm.CalcCapacityActionExecute(Sender: TObject);
end;
procedure TEditorForm.CalcCapacityActionExecute(Sender: TObject);