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:
8053df8
)
フォームのリサイズの高速化
author
h677
<h677>
Tue, 19 Oct 2004 12:55:38 +0000
(12:55 +0000)
committer
h677
<h677>
Tue, 19 Oct 2004 12:55:38 +0000
(12:55 +0000)
Giko.dfm
patch
|
blob
|
history
Giko.pas
patch
|
blob
|
history
diff --git
a/Giko.dfm
b/Giko.dfm
index
77834b7
..
4cf8dd0
100644
(file)
--- a/
Giko.dfm
+++ b/
Giko.dfm
@@
-562,7
+562,7
@@
object GikoForm: TGikoForm
BevelOuter = bvNone
UseDockManager = False
TabOrder = 2
BevelOuter = bvNone
UseDockManager = False
TabOrder = 2
- On
Resize = BrowserPanel
Resize
+ On
CanResize = BrowserPanelCan
Resize
object Browser: TWebBrowser
Left = 0
Top = 0
object Browser: TWebBrowser
Left = 0
Top = 0
diff --git
a/Giko.pas
b/Giko.pas
index
2e199a9
..
3f3b0b0
100644
(file)
--- a/
Giko.pas
+++ b/
Giko.pas
@@
-925,10
+925,11
@@
type
procedure JumpToNumOfResActionExecute(Sender: TObject);
procedure JumpToNumOfResActionUpdate(Sender: TObject);
procedure FavoriteTreeViewCollapseActionExecute(Sender: TObject);
procedure JumpToNumOfResActionExecute(Sender: TObject);
procedure JumpToNumOfResActionUpdate(Sender: TObject);
procedure FavoriteTreeViewCollapseActionExecute(Sender: TObject);
- procedure BrowserPanelResize(Sender: TObject);
procedure ListViewCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
procedure FormActivate(Sender: TObject);
procedure ListViewCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
procedure FormActivate(Sender: TObject);
+ procedure BrowserPanelCanResize(Sender: TObject; var NewWidth,
+ NewHeight: Integer; var Resize: Boolean);
private
{ Private
\90
é
\8c
¾ }
//RoundList : TRoundList;
private
{ Private
\90
é
\8c
¾ }
//RoundList : TRoundList;
@@
-3853,7
+3854,6
@@
begin
if (FActiveContent.Browser <> BrowserNullTab.Browser) then
ShowWindow(FActiveContent.Browser.Handle, SW_HIDE);
end;
if (FActiveContent.Browser <> BrowserNullTab.Browser) then
ShowWindow(FActiveContent.Browser.Handle, SW_HIDE);
end;
-
ShowWindow(Thread.FBrowser.Handle, SW_SHOW);
if (not Assigned(Thread.Browser.Document)) then begin
Thread.Browser.Navigate('about:blank');
ShowWindow(Thread.FBrowser.Handle, SW_SHOW);
if (not Assigned(Thread.Browser.Document)) then begin
Thread.Browser.Navigate('about:blank');
@@
-11820,17
+11820,6
@@
begin
StatusBar.Panels[1].Text := '';
end;
StatusBar.Panels[1].Text := '';
end;
-procedure TGikoForm.BrowserPanelResize(Sender: TObject);
-var
- i: Integer;
-begin
- for i := FBrowsers.Count - 1 downto 0 do begin
- if FBrowsers[i] <> nil then
- SetWindowPos(TWebBrowser(FBrowsers[i]).Handle, HWND_NOTOPMOST, 0, 0, BrowserPanel.Width, BrowserPanel.Height, SWP_NOMOVE + SWP_NOZORDER);
- end;
-
-end;
-
procedure TGikoForm.ListViewCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
procedure TGikoForm.ListViewCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
@@
-11860,6
+11849,18
@@
begin
MouseGesture.SetHook(Handle);
end;
MouseGesture.SetHook(Handle);
end;
+procedure TGikoForm.BrowserPanelCanResize(Sender: TObject; var NewWidth,
+ NewHeight: Integer; var Resize: Boolean);
+var
+ i: Integer;
+begin
+ for i := FBrowsers.Count - 1 downto 0 do begin
+ if FBrowsers[i] <> nil then
+ MoveWindow(TWebBrowser(FBrowsers[i]).Handle, 0, 0, NewWidth, NewHeight, false);
+ end;
+
+end;
+
initialization
OleInitialize(nil);
finalization
initialization
OleInitialize(nil);
finalization