喫茶XRAY [Mr.XRAY掲示板]

[7621] 質問です

返信　削除

2014/5/30 (金) 11:06:02 sato

▼ Mr.XRAYさん
お世話になります。
Delphiサンプルプログラム集
012_プリンタ解像度と用紙サイズ等の取得

procedure TForm1.ComboBox1CloseUp(Sender: TObject);
　・
　・
　・

  //上下左右のオフセット
  inc(i);
  TempInt            := GetDeviceCaps(PrtHandle, PHYSICALOFFSETY);
  TempDouble         := TempInt * 25.4 / XDPI;   ←●
  StringGrid1.Cells[2, i] := Format('%8.1f [mm]',[TempDouble]);
  inc(i);
  TempInt            := GetDeviceCaps(PrtHandle, PHYSICALOFFSETY) +
                        GetDeviceCaps(PrtHandle, VERTRES);
  TempDouble         := TempInt * 25.4 / XDPI;   ←●
  StringGrid1.Cells[2, i] := Format('%8.1f [mm]', [TempDouble]);

  inc(i);
  TempInt            := GetDeviceCaps(PrtHandle, PHYSICALOFFSETX);
  TempDouble         := TempInt * 25.4 / YDPI;   ←■
  StringGrid1.Cells[2, i] := Format('%8.1f [mm]', [TempDouble]);
  inc(i);
  TempInt            := GetDeviceCaps(PrtHandle, PHYSICALOFFSETX) +
                        GetDeviceCaps(PrtHandle, HORZRES);
  TempDouble         := TempInt * 25.4 / YDPI;   ←■
  StringGrid1.Cells[2, i] := Format('%8.1f [mm]', [TempDouble]);

のドットをmmに変換するところですが、
←●のXDPI
←■のYDPI　が逆ではないでしょうか。（チョット頭が混乱してきました）
よろしくお願いします。

[7624] Re:質問です

返信　削除

2014/5/30 (金) 13:16:24 Mr.XRAY

▼ satoさん

ハハハッ．(^^; 笑ってごまかす....
ありがとうごさいます．今日中に修正しますです．
山本さんからも指摘がありましたので，いっしょに．

[7625] Re2:質問ですのお礼

返信　削除

2014/5/30 (金) 14:47:28 sato

▼ Mr.XRAYさん

ありがとうございます。すっきりしました。
お礼に写真を同封します。
先日、徳本峠から大滝山、蝶ガ岳に行った時、蝶ガ岳からみた安曇野
の夜明けです。
あまり人気のないコースなので道標も少なく、所どころ雪も腐っていて
大変でした。ただ、天気がよく大滝山の稜線からは、富士山、八ヶ岳、
南アルプス、御嶽、乗鞍、穂高、槍が一望でき疲れも吹っ飛びました。

[7626] Re3:質問ですのお礼

返信　削除

2014/5/30 (金) 17:12:42 Mr.XRAY

▼ satoさん，写真ありがとうございます．

すごい，いいです !! 素晴らしいです．
クリックしたら，大きく表示され，背中に電気が走りました．

> 先日、徳本峠から大滝山、蝶ガ岳に行った時、蝶ガ岳からみた安曇野
> の夜明けです。

このコースは行ったことがないのですが，
徳本峠から，大滝山の間，結構厳しいのではないのでしょうか．
このコース，数年前，逆コースを考えていました．
今年はまだ雪が残っているところがありそうですね．

[豆知識]
徳本峠 -- トウゴウトウゲと読みます

[7633] Re4:お代わりコーヒーのお礼　徳本小屋

返信　削除

2014/6/3 (火) 17:36:14 sato

▼ Mr.XRAYさん
マスターに褒められたのでもう少し飾ってもらっていいですか。
> 徳本峠から，大滝山の間，結構厳しいのではないのでしょうか．
そうでした。比較的アップダウンの少ない稜線歩きと思っていたら
意外に難航しました。マークが少ないので夏道が分からず、おまけに
雪道なので歩きやすいところをスタスタ歩いているとこれが盲点で、
しだいに灌木に遮られ泣く泣くもどったりと以外に時間をとられました。
（冬は正月の八ヶ岳とか南アルプスとか踏み跡がしっかりしたところしか
行ったことがなかったので）
今回は樹林帯なので、念のためにGPSを持参しました。これは重宝しました。
年寄りには必需品ですね。
ただ、残雪期のテントで、しかも樹林帯なので、どこでも寝れるという安心感
はありましたが、何度も熊の夢を見ましたが.....
大滝山を越えると一転して這松の稜線でさえぎるものはなく、360度相棒と二人
占めです。途中徳本峠から蝶ガ岳までだれにも出会わなかったです。
帰りは長塀尾根を下ったのですが、足がガクガクで年を実感しました。
今回のコースで明神岳のすばらしさを発見しましたがとても登れそうに無いのが
残念です。
1.昔の山小屋スタイルの、徳本小屋

[▼次のスレッド]

INCM/CMT
Cyclamen v3.82