「板タブ、スレタブそれぞれに背景色を表示する（Tab色のサンプルっぽいもの）」の編集履歴（バックアップ）一覧に戻る

板タブ、スレタブそれぞれに背景色を表示する（Tab色のサンプルっぽいもの） - (2011/01/16 (日) 17:50:48) のソース

&link(スクリプト一覧表に戻る){スクリプト一覧表}
*板タブ、スレタブそれぞれに背景色を表示する（Tab色のサンプルっぽいもの）
**目次
#contents(page=板タブ、スレタブそれぞれに背景色を表示する（Tab色のサンプルっぽいもの）,option=word)

----
**ファイル名
DrawTabColor.js

----
**ダウンロード
このページ下部の添付ファイルjane_s0366.zipをクリック 

----
**概要
以下スクリプトファイルのOUTLINEより抜粋
 Tab色のサンプルっぽいもの
  
 Delphiの色検索ツール
 http://www.geocities.co.jp/SiliconValley-Sunnyvale/6234/#DelColor 
//Outlineここまで

----
//以下レスのコピぺ
//http://jane.s28.xrea.com/test/read.cgi/bbs/1253845280/461-462
http://pc12.2ch.net/test/read.cgi/win/1257524478/750
 750 名前：名無し~3.EXE：2009/12/07(月) 02:55:07 ID:8y309Onz
 Scripting.txt
 
 ■ function TabActionListDrawTab(Setting: TabDrawingSetting, Item: ThreadItem, Active: Bool,
 Index: Integer): Void
 ↓
 Item: Board
 
 ■ function TabActionViewDrawTab(Setting: TabDrawingSetting, Item: Board, Active: Bool,
 Index: Integer): Void
 ↓
 Item: ViewItem
 
 ･Item
 　　対象のスレタブで表示されるスレッド。検索ビューなどの場合はundefined。
 　　↓
 　　対象のスレタブで表示されるViewItemオブジェクト。
 
 今の実装だとデフォのマーク表示全ては無理。。
 
 
 >>711
 未取得/未読以外は手抜き
 http://janekako.hp.infoseek.co.jp/cgi-bin/up2/src/jane_s0364.zip

http://pc12.2ch.net/test/read.cgi/win/1257524478/779
 779 名前：名無し~3.EXE：2009/12/07(月) 23:47:13 ID:6HMAbRl/
 >>751
 そんなに簡単だったのね...orz
 
 で、
 ■ function TabActionListDrawTab
 ･起動後に設定のSheetTab表示して「よろし」しないと機能しない
 ･tsTabsでも機能してます。。
 
 ■ function TabActionViewDrawTab
 ･tsTabsでも機能してます。。（マークが文字に被るけど）
 
 SystemColorを使う場合にTColorにキャストした状態というか
 Integerにして渡さないと機能しないです。。
 
 
 >>759
 ↓だけでOKです
 function TabActionViewDrawTab(Setting, Item, Active, Index) {
 if (Item != undefined) {
 if (Setting.FlagColor == 0x0000FF00) { //未取得ありの色
 Setting.FlagColor = 0x00010101; //好みの色を指定
 };
 };
 };
 
 他の色も変えられるように、サンプル的な物
 http://janekako.hp.infoseek.co.jp/cgi-bin/up2/src/jane_s0366.zip
//レスのコピぺここまで
----
**コメント
#pcomment()
----