LuxMenuを使って、ツールバーも改造したい

ActiveBasicでのプログラミングでわからないこと、困ったことなどがあったら、ここで質問してみましょう(質問を行う場合は、過去ログやWeb上であらかじめ問題を整理するようにしましょう☆)。
返信する
メッセージ
作成者
雷電
記事: 104
登録日時: 2006年8月21日(月) 14:26
お住まい: 兵庫県
連絡する:

LuxMenuを使って、ツールバーも改造したい

#1 投稿記事 by 雷電 »

題名どおりの質問です。
今までのツールバーをビットマップからアイコンに変えて、abdev.exe見たいにできないかと悩んでいます。

ツールバーの構造体の中身を変えればいいのではなく、インターフェイスや何やらを使うんでしょう。
まだそのあたりがまだ分からないので、教えてもらえないでしょうか?
こんなところで聞くのも、場違いだとも思いますが・・・
===============================
MyHomePage;; raiden.no.land.to/
===============================
Tomorrow
記事: 72
登録日時: 2005年6月04日(土) 10:09

Re: LuxMenuを使って、ツールバーも改造したい

#2 投稿記事 by Tomorrow »

LuxMenuは試してないですが、

(ABのインストールフォルダ)\Include\LuxCtrl

にLuxToolbar.sbpというファイルがあるので、それを見れば何かわかるかもしれません。
雷電
記事: 104
登録日時: 2006年8月21日(月) 14:26
お住まい: 兵庫県
連絡する:

#3 投稿記事 by 雷電 »

見てみたのですが、よく分かりません。

というのが、まだクラスはまだ触ってませんので・・・内容を理解するのは難しいです。

ヘルプセンターにも出てたので、そっちを勉強してから内容理解してみます。
===============================
MyHomePage;; raiden.no.land.to/
===============================
Tomorrow
記事: 72
登録日時: 2005年6月04日(土) 10:09

LuxToolbar

#4 投稿記事 by Tomorrow »

LuxMenuを試しつつ、やってみたら案外あっさりできました。
...が、個人的に試してみただけの非公式情報です。
ですので、これで合っているかは分かりません。
自己責任で御使用願います。
試してみるとわかるのですが、最後に追加したボタンが何故か表示されません。
ボタンの計数処理とサイズ計算に食い違いがあるみたいなのですが、
ソースの修正は面倒なので、最後に余分なセパレータを入れて誤魔化しています。


他のインターフェイスメソッドについては、おおよそ↓のような感じだと思います。
Function GetHandle() As HWND
コントロールのウィンドウハンドルを取得

Sub Insert(index As Long, id As Long, hIcon As HICON,lpszToolTip As LPSTR)
indexの場所にボタン追加

Sub Clear()
ボタンを全削除

Sub EnableItem(id As Long, bEnabled As BOOL)
淡色表示にする/しない

Sub GetSize(ByRef size As SIZE)
コントロールのサイズを取得

Sub OnRButtonUp(flags As DWord, ByRef pos As POINTAPI)
返信する