• R/O
  • HTTP
  • SSH
  • HTTPS

Commit

Tags
No Tags

Frequently used words (click to add to your profile)

javaandroidc++linuxc#objective-ccocoa誰得qtrubypythongamewindowsbathyscaphephpguic翻訳omegattwitterframeworktestbtronarduinovb.net計画中(planning stage)directxpreviewerゲームエンジンdom

ギコナビ


Commit MetaInfo

Revision4bd577fbe4cab35acb635ca6b70348cf58bb77cf (tree)
Time2007-03-11 21:03:30
Authorh677 <h677>
Commiterh677

Log Message

タブの追加位置に、現在タブの右/左を追加

Change Summary

Incremental Difference

--- a/Giko.pas
+++ b/Giko.pas
@@ -2545,6 +2545,7 @@ var
25452545 i, j, idx : Integer;
25462546 favItem : TFavoriteThreadItem;
25472547 newBrowser : TBrowserRecord;
2548+ ins : Integer;
25482549 begin
25492550
25502551 Result := nil;
@@ -2584,17 +2585,15 @@ begin
25842585 end;
25852586 end;
25862587 idx := BrowserTab.TabIndex;
2587- if GikoSys.Setting.BrowserTabAppend = gtaFirst then begin
2588- newBrowser := TBrowserRecord.Create;
2589- // ˆê”Ԍ¢ƒuƒ‰ƒEƒU‚ðŠJ•ú‚·‚é
2590- ReleaseOldestBrowser;
2591- newBrowser.Browser := TWebBrowser(FBrowsers[BROWSER_COUNT - 1]);
2592- FBrowsers.Move(BROWSER_COUNT - 1, 0);
2593- //newBrowser.Browser.Navigate(BLANK_HTML);
2594- newBrowser.thread := ThreadItem;
2595- newBrowser.Repaint := true;
2596-// newBrowser.OnlyHundred := GikoSys.OnlyAHundredRes;
2588+ newBrowser := TBrowserRecord.Create;
2589+ // ˆê”Ԍ¢ƒuƒ‰ƒEƒU‚ðŠJ•ú‚·‚é
2590+ ReleaseOldestBrowser;
2591+ newBrowser.Browser := TWebBrowser(FBrowsers[BROWSER_COUNT - 1]);
2592+ FBrowsers.Move(BROWSER_COUNT - 1, 0);
2593+ newBrowser.thread := ThreadItem;
2594+ newBrowser.Repaint := true;
25972595
2596+ if GikoSys.Setting.BrowserTabAppend = gtaFirst then begin
25982597 BrowserTab.Tabs.InsertObject(0, GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser);
25992598 if (not GikoSys.Setting.BrowserTabVisible) and (BrowserTab.Tabs.Count > 1) then begin
26002599 DeleteTab( TBrowserRecord( BrowserTab.Tabs.Objects[ 1 ] ) );
@@ -2604,18 +2603,7 @@ begin
26042603 if ActiveTab then begin
26052604 BrowserTab.TabIndex := 0;
26062605 end;
2607-
2608- end else begin
2609- newBrowser := TBrowserRecord.Create;
2610- // ˆê”Ԍ¢ƒuƒ‰ƒEƒU‚ðŠJ•ú‚·‚é
2611- ReleaseOldestBrowser;
2612- newBrowser.Browser := TWebBrowser(FBrowsers[BROWSER_COUNT - 1]);
2613- FBrowsers.Move(BROWSER_COUNT - 1, 0);
2614- //newBrowser.Browser.Navigate(BLANK_HTML);
2615- newBrowser.thread := ThreadItem;
2616-// newBrowser.OnlyHundred := GikoSys.OnlyAHundredRes;
2617- newBrowser.Repaint := true;
2618-
2606+ end else if GikoSys.Setting.BrowserTabAppend = gtaLast then begin
26192607 i := BrowserTab.Tabs.AddObject(GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser);
26202608 if (not GikoSys.Setting.BrowserTabVisible) and (BrowserTab.Tabs.Count > 1) then begin
26212609 DeleteTab( TBrowserRecord( BrowserTab.Tabs.Objects[ 0 ] ) );
@@ -2628,7 +2616,40 @@ begin
26282616 else
26292617 BrowserTab.TabIndex := i;
26302618 end;
2631- end;
2619+ end else begin
2620+ // ƒ^ƒuˆÊ’u‚ðŽæ“¾
2621+ ins := -1;
2622+ for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
2623+ if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser =
2624+ TWebBrowser(FBrowsers[1]) then begin
2625+ ins := i;
2626+ break;
2627+ end;
2628+ end;
2629+ if GikoSys.Setting.BrowserTabAppend = gtaRight then begin
2630+ Inc(ins);
2631+ end;
2632+ // ƒ^ƒu‚ª–³‚¢‚Æ‚«‚ȂǑ΍ô
2633+ if (ins < 0) then begin
2634+ ins := 0;
2635+ end;
2636+ BrowserTab.Tabs.InsertObject(ins, GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser);
2637+ if (not GikoSys.Setting.BrowserTabVisible) and (BrowserTab.Tabs.Count > 1) then begin
2638+ if GikoSys.Setting.BrowserTabAppend = gtaRight then begin
2639+ DeleteTab( TBrowserRecord( BrowserTab.Tabs.Objects[ 0 ] ) );
2640+ end else begin
2641+ DeleteTab( TBrowserRecord( BrowserTab.Tabs.Objects[ 1 ] ) );
2642+ end;
2643+ end;
2644+ //end;
2645+ BrowserTab.Repaint;
2646+ if ActiveTab then begin
2647+ if (not GikoSys.Setting.BrowserTabVisible) and (BrowserTab.Tabs.Count > 0) then
2648+ BrowserTab.TabIndex := 0
2649+ else
2650+ BrowserTab.TabIndex := ins;
2651+ end;
2652+ end;
26322653 Result := newBrowser;
26332654 if(ActiveTab) or (idx = -1) then begin
26342655 BrowserTab.OnChange(nil);
--- a/GikoDataModule.pas
+++ b/GikoDataModule.pas
@@ -2246,7 +2246,7 @@ begin
22462246 try
22472247 bound := AStringList.Count - 1;
22482248 if bound > -1 then begin
2249- GikoSys.Setting.BrowserTabAppend := gtpLast;
2249+ GikoSys.Setting.BrowserTabAppend := gtaLast;
22502250 for i := 0 to bound do begin
22512251 item := BBSsFindThreadFromURL( AStringList[ i ] );
22522252 if item <> nil then
--- a/Option.dfm
+++ b/Option.dfm
@@ -61,9 +61,9 @@ object OptionDialog: TOptionDialog
6161 Top = 4
6262 Width = 509
6363 Height = 389
64- ActivePage = TabSheet4
64+ ActivePage = TabSheet1
6565 MultiLine = True
66- TabIndex = 7
66+ TabIndex = 5
6767 TabOrder = 3
6868 OnChange = OptionTabChange
6969 object ConnectSheet: TTabSheet
@@ -253,7 +253,7 @@ object OptionDialog: TOptionDialog
253253 Top = 43
254254 Width = 417
255255 Height = 20
256- ItemHeight = 0
256+ ItemHeight = 12
257257 TabOrder = 0
258258 Text = 'BoardURLComboBox'
259259 end
@@ -978,10 +978,12 @@ object OptionDialog: TOptionDialog
978978 Width = 477
979979 Height = 49
980980 Caption = #12473#12524#12483#12489#12398#12479#12502#36861#21152#20301#32622'(&D)'
981- Columns = 2
981+ Columns = 4
982982 Items.Strings = (
983983 #19968#30058#22987#12417
984- #19968#30058#26368#24460)
984+ #19968#30058#26368#24460
985+ #29694#22312#12398#21491
986+ #29694#22312#12398#24038)
985987 TabOrder = 3
986988 end
987989 object GroupBox8: TGroupBox
--- a/Setting.pas
+++ b/Setting.pas
@@ -15,7 +15,7 @@ const
1515
1616 type
1717 TGikoTabPosition = (gtpTop, gtpBottom); // ƒ^ƒuˆÊ’u
18- TGikoTabAppend = (gtaFirst, gtpLast); // ƒ^ƒu’ljÁˆÊ’u
18+ TGikoTabAppend = (gtaFirst, gtaLast, gtaRight, gtaLeft); // ƒ^ƒu’ljÁˆÊ’u
1919 TGikoTabStyle = (gtsTab, gtsButton, gtsFlat); // ƒ^ƒuƒXƒ^ƒCƒ‹
2020 TGikoListOrientation = (gloHorizontal, gloVertical); // ƒŠƒXƒg‚’¼E…•½
2121 TGikoListState = (glsMax, glsNormal, glsMin); // ƒŠƒXƒgƒTƒCƒYó‘Ô