arigayasのblog

7z という圧縮ファイルを解凍するのに使い始めたアーカイバソフト。
7-Zip　　←ダウンロード先

それをインストールしたら設定をうんぬん言うのが面倒なのでブログ記事にしておく。
Windowsにインストールしたら
スタート→ 7-Zip → 7-Zip File Manager で以下の画像が開きます。
設定済みなので初回インストールした時とは見た目が違うと思います。

ツール→オプション

をクリックして

こんな設定にしてる。

ISOファイルを右クリックから中身を見ることができるからねぇ(￣▽￣＠)

ISOファイルを右クリック→7-zip→開く(o)

他にもいろいろ中身を見ることができるから試してみるとイイよ。

こういう設定タブの切り替えのバグ。Windows のマルチバイト圏で起こるバグらしい。
でこの動画のバグの対処方法が下記のbatファイル。

GIMP Part25
http://anago.2ch.net/test/read.cgi/software/1332567362/693

693 名無しさん＠お腹いっぱい。 [sage] 2012/05/08(火) 08:33:27.33 ID:trEblHHj0 Be:
　　Windows版2.8 ツールオプション 表示バグ暫定回避策。一部選択項目表示が英語になるが自己責任でどうぞ。

1. メモ帳を開いて以下を書く。
   　set lang=en
   　この行にpath半角スペースに続けてGIMP.exeの入っているフォルダアドレス。（例　path C:\Program Files\GIMP 2\bin）
   　start gimp-2.8.exe
2. 適当な名前を付けて適当な場所にメモ帳を保存。（例　GIMP_2.8_start）
3. メモ帳の拡張子を　.txt　から　.bat　に変更。（警告が出ても気にせず）
4. 起動する時はこの.batファイルをダブルクリック。（ドックレットやランチャーに入れても良い）

　　正規バグ修正が来たらこの.batファイルを捨てて普通にGIMPアイコンから起動するだけでいい。
　　OSで環境設定を変更しろと言う解説もあるが、この方法ならOSの設定もGIMPの設定もいじらないから他のプログラムに影響はないはず。

自分の環境(Windows 7 の 64bit 版 に普通にインストール)では

set lang=en
path C:\Program Files\GIMP 2\bin
start gimp-2.8.exe

とメモ帳に書いて
GIMP_2.8_start.bat という名前でデスクトップに保存してダブルクリックしたら GIMP 2.8 が起動した。
XP MODE 上のGIMP 2.8でも表示項目が消えないことを確認しました。

くだすれDelphi(超初心者用)その54
http://toro.2ch.net/test/read.cgi/tech/1325028195/515-516

515 デフォルトの名無しさん [sage] 2012/05/07(月) 21:48:20.26 ID: Be:
　　なんか荒れてるけどスレタイに沿って超低レベル質問を・・・

　　Delphi6 Personalを使ってWindowsXP上で色々と試している最中なんですが
　　アプリケーションのFormの右上に出てくる×ボタンを押した時、
　　なんのイベントが発生するのでしょうか。

　　×ボタンを押したらonCloseに設定した正常終了の流れに
　　載せたいのに、無視されてそのまま終了してしまふ

516 デフォルトの名無しさん [sage] 2012/05/07(月) 22:00:46.91 ID: Be:
　　OnCloseQuery→OnClose→OnDestroy

Delphi とかの本には書いていそうだけどメモ。

2012年1月からのアニメへリンク。

4月に書くのを忘れてたｗ
5分ぐらいは赤文字。

2011年10月以前から放送開始

• ワンピース

2011年10月から放送開始

• HUNTER×HUNTER

2012年1月から放送開始

• ニコニコ動画で配信分
• ポヨポヨ観察日記
• リコーダーとランドセル
• モーレツ宇宙海賊

2012年4月から放送開始

• Fate/Zero　：　2011年10月からニコニコ動画で配信していたのは見てた。
• LUPIN the Third -峰不二子という女-
• しろくまカフェ
• エウレカセブンAO
• 宇宙兄弟
• ふしぎの海のナディア - デジタルリマスター版
• 氷菓
• 坂道のアポロン
• つり球
• AKB0048
• ニコニコ動画で配信分
  • Fate/Zero
  • しばいぬ子さん
  • 秘密結社 鷹の爪 NEO
  • CANAAN
  • アクセルワールド
  • ZETMAN
  • 這いよれ！ニャル子さん
  • 夏色キセキ
  • ゆるめいつ３でぃ
  • ヨルムンガンド

普通に多いな。
プログラミングに時間を割いているから今日の時点で録画したけど全く見ていないのがある。
　ふしぎの海のナディアとか氷菓とかノイタミナ枠の2つとか。

Twitter に

SelectDirectory 関数？を使う時に(マイ) コンピュータを初期値として開きたいけど、どうすれば良いんだろう？

と書いた。

特になにも引数を与えずに SelectDirectory を使うとWindows 7ではこのようなダイアログが開かれるんだけどネットワークフォルダーとかを選択されると
エラー処理すべきことが増えそうなので制限したいと思って聞いてみた。

しばらくして

DirがStringの変数として。こんな感じの謎の呪文を
SelectDirectory('', '::{20D04FE0-3AEA-1069-A2D8-08002B30309D}', Dir);

とするといいよ。とReplyをいただいたので実際にやってみたら、

やりたいことが出来ました。
Windows XP SP3 なパソコンでも動いたので Vista でも問題ないと思う。

以下コード。

More

Edit の幅が狭いというか 短くて見えない場合の対処方法としてバルーンヒントを出すことにした。

標準機能でEdit のイベントの onChange をクリックして以下を記述する。

procedure TForm1.EditChange(Sender: TObject);
begin
  Edit.Hint := Edit.Text;
end;

BalloonHint を使った場合のコード。
BalloonHint の関連づけのやり方はこの動画を見た。

procedure TForm1.EditChange(Sender: TObject);
begin
  Edit.Hint := 'URLは |' + Edit.Text + '|1';
end;

最後の「1」はヒントタイトルの位置を表していて1だと中央になって
「0」にすると左寄せになる。


embarcadero のドキュメント：Controls.TCustomHint - XE2 API Documentation

バグがあったらごめんなさい。

procedure TForm2.WorkingFolder_BtnClick(Sender: TObject);
begin
  if SelectDirectory('登録するフォルダの選択','',SelectFolder) then
    WorkingFolder_LE.Text := Selectfolder;
end;

procedure TForm2.WorkingFolder_LEClick(Sender: TObject);
begin
  if WorkingFolder_LE.Text ='' then
  ShowMessage('no');
    WorkingFolder_Btn.OnClick(Selectfolder); ←ここになんて書くべき？
end;

WorkingFolder_BtnClick()の処理を全部書くべきなのかなぁ？

2012年4月7日追記
　　WorkingFolder_Btn.OnClick(Sender);
でOK。

いつか Delphi XE Pro と MySQL を使ったネタというかプログラムを作ってみたい。

さくらのレンタルサーバ のスタンダードプランを使っているので、
どうせなら、Delphi XE Pro と さくらのレンタルサーバの MySQL の設定の図解記事を作りたいなぁ。

可能かどうかは全く知らないけどもｗ


追記：2012年4月11日
データベースと管理ツール｜さくらのレンタルサーバ｜さくらインターネット公式サポートサイト
「セキュリティ上の理由から、さくらのレンタルサーバ以外からは接続できません。」とあるので無理っぽいorz

くだすれDelphi(超初心者用)その54 より。
http://toro.2ch.net/test/read.cgi/tech/1325028195/196-200

196 デフォルトの名無しさん [sage] 2012/03/18(日) 01:12:12.13 ID: Be:
　　StringGridの指定したセルの色を瞬時に変えたい。

　　指定したセルの色を変えるところまでは
　　procedure TForm1.StringGrid1DrawCell(...
　　begin
　　　if (ACol = 5) and (ARow =5) then begin
　　　StringGrid1.Canvas.Brush.Color := clBlue;
　　　StringGrid1.Canvas.FillRect(Rect);
　　　end;
　　end;
　　でよかったんだけどこれに
　　if combobox1.itemindex=0 thenなど条件を加えると条件にすぐさま反応せず、
　　指定したセルをクリックしたら色が変わるという状態になってしまう。
　　このstringgridのイベントはプログラム起動時にしか自動で動いてくれないのかな
　　どなたかご教授願います。

<略>

199 デフォルトの名無しさん [sage] 2012/03/18(日) 03:27:51.95 ID: Be:
　　>>196
　　> このstringgridのイベントはプログラム起動時にしか自動で動いてくれないのかな
　　そんなわきゃない。

　　StringGrid.RepaintとかInvalidateRect(StringGrid.Handle,nil)とかをComboBoxの
　　OnChangeで呼び出せ。

200 デフォルトの名無しさん [sage] 2012/03/18(日) 11:50:50.30 ID: Be:
　　>>199
　　きたあああああああああああああああああうおっしゃあああ
　　あざすあざす！

いつか使うかもしれないので。

くだすれDelphi(超初心者用)その54 より。
http://toro.2ch.net/test/read.cgi/tech/1325028195/139-141

139 デフォルトの名無しさん [] 2012/02/25(土) 13:30:35.06 ID: Be:
Alt+F4が押されるた時、Formを閉じないようにしたいんです

「カーソル位置まで実行」でFormのKeyDown、KeyPress、CloseQueryに
来たら停止するようにしてみたんですけど、停止しないみたいです

Formのスタイルとかを変える…という方法でも結構ですので
Alt+F4を無効にする方法をお願いします

140 デフォルトの名無しさん [sage] 2012/02/25(土) 14:50:10.65 ID: Be:
>>139

KeyDownの中で
Key=0
でよくないか？

試してないが…

141 140 [sage] 2012/02/25(土) 14:51:20.51 ID: Be:
Key:=0 だった orz

Form だけ作って試して無効に出来たのでメモ。
しかし140のソースはどういう意味かわかってない件。