「板タブ、スレタブそれぞれに背景色を表示する(Tab色のサンプルっぽいもの)」の編集履歴(バックアップ)一覧に戻る
Tab色のサンプルっぽいもの Delphiの色検索ツール http://www.geocities.co.jp/SiliconValley-Sunnyvale/6234/#DelColor
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
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