カテゴリー：Delphi

2006年10月26日

Linux/MacでもDelphiっぽいのが動く

以下のスクリーンショットを見てください！ http://wiki.lazarus.freepascal.org/Screenshots マックでも、Linuxでも、動くPascalの統合開発環境がありました。 Delphiそっくり。 Ｌａｚａｒｕｓ： http://www.lazarus.freepascal.org/index.php ※マックに乗換えが出来ない理由の１つが、Delphiがないことだったので、 ※もし、軽快にLazarusが動くなら、Macに乗り換えてもいいよなぁ・・・とマックに弾みがついたのでした。 偶然、２ｃｈのスレッドが検索にひっかかって見つけたのです。 こんなのがあるなら、もっと早く知りたかったなぁ。 http://pc8.2ch.net/test/read.cgi/tech/1137051510/ ・・・と思っていたら。。。 ２ｃｈの反応を見る限り、まだまだ実用には耐えないものらしいです。 残念！！
投稿者 kujira : 10:59 | トラックバック

2006年07月21日

Delphi7でDPIの取得

画面のプロパティでDPIを変更した場合、独自描画したピクセルがずれることがあります。 そんなときは、DPIを取得して、座標を計算させてから描画する必要があります。 ---( dpiValue := GetDeviceCaps(Self.Canvas.Handle, LOGPIXELSY); r := 96 / dpiValue; // DPIに沿って座標を変更 x1 := Trunc(x1 * r); y1 := Trunc(y1 * r); ---)
投稿者 kujira : 11:29 | トラックバック

2006年07月14日

Delphi7で管理者権限の判定

Delphi7で管理者権限の判定をする方法。Windows2000以降に対応。 ---( // 新しい Windows APIの関数を宣言 function IsUserAnAdmin():BOOL; external 'shell32.dll'; // 利用するとき procedure check_admin begin if IsUserAnAdmin = False then begin ShowWarn(GetLang('error.admin')); Halt; end; end; ---)
投稿者 kujira : 12:22 | トラックバック