HAMLOG プログラム開発室

JP7CZE 川辺さん、こんにちは。

> ついでながら，印刷ダイアログにはStatusBarが無いので，［プリンタ設定］ボタンのMouseMoveのときに，バルーンで”プリンタ名，用紙サイズ，トレイ”が表示されれば有難いです．

プリンタ情報は、Win32-APIの、DEVMODE構造体の内容を読みだすと、
取得することができます。（ということを先日知りました。）

構造体メンバーの大半は数値で、また、プリンタ固有の設定方法があり
ますので、文字列で保存されているプリンタ名、用紙名をバルーンヒント
で表示させようと思います。
アイディアを有難うございました。

浜田さん，お忙しい中，早速の修正ありがとうございます．

DefaultPrinter自体を書き換えてしまうと，他のプログラムに影響を与えてしまうので，リストを取得してマッチングする方法をとられたのですね．その方が行儀良いソフトで，私の方法は行儀悪い方法でした．

ついでながら，印刷ダイアログにはStatusBarが無いので，［プリンタ設定］ボタンのMouseMoveのときに，バルーンで”プリンタ名，用紙サイズ，トレイ”が表示されれば有難いです．
確認のためなら，ボタンを押してプリンタ設定ダイアログを出すまでもないということで．

浜田さん，ほんとにすばらしいソフトありがとうございます．

> 用紙サイズ設定の機能は自作できそうですが、用紙トレイ設定の
> ファンクションがよくわかりません。

　用紙，トレイについてはHamlogの既存のルーチンが使えますね。
　一時的にデフォルトプリンタを変更したあと，既存のルーチンで取得して，設定ファイルの値を設定，でできそうですね．

>JI1SAI/7からうかがっております。

現代のアマチュア無線，HamLogは新參者でして，５月でようやく３年目です．

40数年前はもちろん手書きLOGで，40数年後の世界は浦島太郎状態でした．で，現代にはHamlogという便利なログソフトがあるよということをローカルから教えていただいて，使わせてもらっています．DOS時代からの歴史のあるソフトということで（ＪＷ＿ＣＡＤ，秀Ｔｅｒｍ，チューチューマウス，ＦＩＬＭＴＮ，卓駆★，等々懐かしいですね，そういう時代には立派に存在していたわけですよね）， 操作体系もWindow標準操作と合せたりする部分（仕様変更とか）もあったのでしょうね．

この前は，自動改行の件，採用していただきましてありがとうございます．あの後，Helpを見ていたら，#Text...という命令があるのを見て，
それなら，#Center とか #Rightなんかも有りかな，なんて思いました．
間に想定しているのは#Textですが，#Print, #PrintAなんかでも，Xの値が書いてあっても無視...ついでに，#Center StartX, EndX なんてパラメータも有りかとか，妄想しています．

ということで，現時点では，BBSで書かせていただいたような，ちょっと違和感を覚えつつ，活用させていただいております．

> JP7CZE川辺さん、こんばんは。　JI1SAI/7からうかがっております。
>
> 私もQSL印刷を実行したら自動給紙トレイのＡ４用紙でガチャガチャ
> 印刷が始まってしまい、給紙トレイごと引っこ抜いて強制中断させる
> ことがよくあります。Hi

で，あわてて止めて，印刷マークを元に戻して...コールサインでソートして印刷させているので，印刷済みのを範囲の中から目で追わないとダメなんですよね(^^;

> 私の開発ソフト（Delphi 3.1）では、プリンタの用紙サイズ取得は、
> 内部でWin32-APIのGetDeviceCaps()を呼び出しているだけのようで、
> 取得するだけのプロパティです。

Win32-APIで，たぶんこういうのがあるんだろうと思って，検索したら，SetPrinterData, SetPrinterDataEX，これらがありました（MSDNのオフラインのHelpでも検索できるはず）．
もちろん，GetPrinterData, GetPrinterDataEXもあって，
VisualBasicだと，これらの関数を構造体を経由して読み書きしているだけだと思います．

> 用紙サイズ設定の機能は自作できそうですが、用紙トレイ設定の
> ファンクションがよくわかりません。

以上は，
http://msdn.microsoft.com/ja-jp/library/cc428711.aspx
のページを見るとわかると思います．

ということで，お暇な時にでも．．．

JP7CZE川辺さん、こんばんは。　JI1SAI/7からうかがっております。

私もQSL印刷を実行したら自動給紙トレイのＡ４用紙でガチャガチャ
印刷が始まってしまい、給紙トレイごと引っこ抜いて強制中断させる
ことがよくあります。Hi

私の開発ソフト（Delphi 3.1）では、プリンタの用紙サイズ取得は、
内部でWin32-APIのGetDeviceCaps()を呼び出しているだけのようで、
取得するだけのプロパティです。

用紙サイズ設定の機能は自作できそうですが、用紙トレイ設定の
ファンクションがよくわかりません。
後日、ググってみます。

HamLog Helpの○　Ｑ＆Ａ に，

[Q23] Turbo HAMLOG/Winで「プリンタの設定」を変更しても、次回起動したときには元に戻ってしまうのですが。
----------------
Windows の仕様と思います。
プリンタの設定を変更し、次回起動したときもその状態を保つには、Windowsのコントロールパネルなどでプリンタの設定を変更して下さい。
-----------------
とあります．これを回避する方法として，VB6では，以下の方法が可能です．

１．設定ファイルを読み込む中に，プリンター名の項目があれば，プリンター名を HamlogDefaultPrinter とかの変数に取得する．
　 また，PaperSizeも，HamlogPaperSizeとかの変数に取得する．

２．設定ファイルの内容に従ってDefaultPrinterの設定，PaperSizeをするには，
(1)．まず，現在のDefaultPrinter名, PaperSize を取得し，DefaultPrinter, DefaultPaperSizeとかの変数に保存．
(2)．以下の方法で，DefaultPrinterを設定
Dim X As Printer 'プリンタ構造体の変数Xを作成
For Each X In Printers
If X.DeviceName = HamlogDefaultPrinter Then '設定ファイルで設定したのとデバイス名を検索．
' 一致すれば，プリンタをシステムの通常使うプリンタに設定します。
Set Printer = X
' プリンタの検索を中止します。
Exit For
End If
Next
X.PaperSize = HamlogPaperSize '用紙サイズの設定

　これで，設定ファイルに保存しているプリンタ名と用紙サイズに設定完了です．

３ 終了時に，同じ手順で，DefaultPrinter，DefaultPaperSizeに戻して，HamlogDefaultPrinterを設定ファイルに書き出す．

　と，こんな感じで不可能ではないと思います．
　実際に必要な機能かどうかといいうと・・・あったらあったで嬉しい機能かもしれません．私も何回かに１回くらい，用紙サイズの指定を忘れて，あれれ，出ない，と思うことがあって，プリンタのデータキャンセルをすることがあるので．

> Windowsがバージョンアップするたびに互換性にビクビクしています。開発ツールだけでなくハードウェアも古いものを大切に使いすぎていますので。

開発ツールは古ーいの使ってますが、ハードは結構新しいの使うようにしてます。
おかげで、むちゃくちゃ速く動作します。

今の開発ソフトが使えなくなったら、やばいですね。
クラスライブラリのソースコードを、最近のWindowsに対応するよう改編して使ってますので。
そうなったら、そのときどうするか考えます。

私の無線とパソコン歴です。
http://homepage2.nifty.com/mou/myhist.html

こんにちは。
古い開発ツールやアプリを使っていると多少なりとも具合が悪くなってきますね。
浜田さんがご指摘のWinHelpもそのひとつです。忘れていました。

Win8への変化にはとまどいます。本を読んでようやく操作方法がわかりました。DOSからWin3.1の変化より混乱したのは、歳のせいでしょうか。
Windowsがバージョンアップするたびに互換性にビクビクしています。開発ツールだけでなくハードウェアも古いものを大切に使いすぎていますので。

XPのサポート終了のため、Linuxにも手を出しています。ネット閲覧やメールなど基本的なことはこれで十分と感じています。

こんにちは。

古いツールを大切に使うのはＦＢではありますが、いつか使えなくなるリスクや、危険性があって配布もおぼつかなくなるようなリスクも忘れてはいけないと思います…。

かといって、自分も「２００８」世代の開発ツールから脱却できてませんが（涙）

開発ツールはともかく、配布されるHamlogが仮想マシン上の古いOSじゃないと動かせないような事態にだけはならないように祈りたいですね。




> お久しぶりです。本年もよろしくお願いします。
>
> > それならと、ハムログと同じようにc:\delphi6というふうに直下にインストールしてみました。
> > これで問題なく起動しました。また空プロジェクトもコンパイルでき実行ファイルも生成されました。
> > レジストリは特に操作していません。
>
> 当方のWin7 64ビットでも、Delphi5, Delphi7はレジストリをいじることなくインストールできました。
> Delphi3.1はさすがにレジストリ操作が必要でした。しかも、大幅に。
>
> いずれも以前のヘルプ表示なので、WinHelpをインストールしてやる必要があります。
>
> アマチュアプログラマには、Windows95, 98時代の開発ソフトで十分です。Hi

お久しぶりです。本年もよろしくお願いします。

> それならと、ハムログと同じようにc:\delphi6というふうに直下にインストールしてみました。
> これで問題なく起動しました。また空プロジェクトもコンパイルでき実行ファイルも生成されました。
> レジストリは特に操作していません。

当方のWin7 64ビットでも、Delphi5, Delphi7はレジストリをいじることなくインストールできました。
Delphi3.1はさすがにレジストリ操作が必要でした。しかも、大幅に。

いずれも以前のヘルプ表示なので、WinHelpをインストールしてやる必要があります。

アマチュアプログラマには、Windows95, 98時代の開発ソフトで十分です。Hi