くだすれDelphi(超初心者用)その55at TECH
くだすれDelphi(超初心者用)その55 - 暇つぶし2ch350:デフォルトの名無しさん
13/07/10 NY:AN:NY.AN .net
[ALT}+[F12]でdfmをテキスト表示してShortCutプロパティに直接16427を指定するんじゃ駄目?

351:デフォルトの名無しさん
13/07/10 NY:AN:NY.AN .net
>>355
レスありがとうございます
試してみましたができませんでした・・・
他のショートカットに使われる数字だと指定できるのですが16427だと
ショートカットの欄には何も表示されず空白のままで、実際にショート
カットキーを押してみても反応がありませんでした
ちなみにバージョンはDelphi6です

352:デフォルトの名無しさん
13/07/10 NY:AN:NY.AN .net
>Ctrl + Num +ではない
って言ってももう一つの方なら「Ctrl+;」ではないのか?
或いは「Shift+Ctrl+;」

テンキーの方なら↓
Test1.ShortCut:=ShortCut($6B, [ssCtrl]);
Test1.Caption:=Test1.Caption+#9+'Ctrl + +'+#0;

353: ◆XcB18Bks.Y
13/07/10 NY:AN:NY.AN .net
テンキーでない方の[+]って日本語キーボードとUSキーボードでは違うキーでしたよね。
どちらでも動くように作らないといけないかと思います。

ちなみに手元のTurbo Delphiでは
[;](セミコロン)キーなら単純に"Ctrl+;"で行けました。

354:デフォルトの名無しさん
13/07/10 NY:AN:NY.AN .net
現在のキーボードで、文字に対応するキーコードを調べるにはVkKeyScanを使う。
code := VkKeyScan('+'); // code: SmallInt
key_code := LoByte(code); // key_code: Word
shift := [ssCtrl]; // s


355:hift: TShiftState if (HiByte(code) and 1) <> 0 then Include(shift, ssShift); menu_item..ShortCut := ShortCut(key_code, shift); これでも設定できなかったら、OnShortcutとかOnKeyPressイベントで キーを受け取って自前で処理することになるかな。 (メニューやHintの文字列も自分で追加)



356:デフォルトの名無しさん
13/07/10 NY:AN:NY.AN .net
皆様沢山のレスありがとうございます
こんなにたくさんのレスをいただけるとは驚きました・・・
>>337,>>338さんのおっしゃる通りCtrl+;で実装できました
他のソフトだとCtrl++という表示が出ているという固定観念にとらわれてCtrl++を
表示させようと必死でした・・・
Ctrl++とCtrl+;の表示の違いについては気にしないのでCtrl+;で実装しようと思います
>>339さんの方法は今後もし同じようなことがあれば参考にさせていただきます
レスをして下さった皆様ありがとうございました

357:デフォルトの名無しさん
13/07/26 NY:AN:NY.AN .net
D7でプロジェクト全体で語句を一括置換したい場合どうすればいいでしょうか
IDEの置換だとunit単位でしかできないですよね

358:デフォルトの名無しさん
13/07/29 NY:AN:NY.AN .net
秀丸なりなんなり外部エディタで

359:デフォルトの名無しさん
13/07/29 NY:AN:NY.AN .net
delphiのかなり基本についての質問です。
使ってるバージョンは delphi 6 Personal です。
mp3プレイヤーを作りたいと頑張っていますが、”常にFormの状態を取得する”
というイベントがあるのか無いのか、またあるならばどのイベントかが分かりません。
どうすればできるでしょうか?

360:デフォルトの名無しさん
13/07/29 NY:AN:NY.AN .net
『常にFormの状態を取得する』ってなによ?自分用語じゃなくて他人に伝わるようにね。

361:デフォルトの名無しさん
13/07/29 NY:AN:NY.AN .net
すいませんでした。
自分じゃこれ以上の表現は難しいのでこの質問はやめにします。
スレ汚しすいませんでした。

362:デフォルトの名無しさん
13/07/29 NY:AN:NY.AN .net
TApplicationEvents.OnIdle

363:デフォルトの名無しさん
13/07/29 NY:AN:NY.AN .net
エスパー現る

364:デフォルトの名無しさん
13/07/30 NY:AN:NY.AN .net
>>346
ありがとうございます。

365:デフォルトの名無しさん
13/07/30 NY:AN:NY.AN .net
イベントドリブンなDELPHIでもメッセージをフックして独自な処理をすることもできる
なんのイベント探してるのか知らないけどOSが渡してくるメッセージのどれかだろうから
フォームの状態を常に監視的なことはもちろんできる

366:デフォルトの名無しさん
13/08/01 NY:AN:NY.AN .net
この程度でエスパー扱いか
顧客様はもっと意味がわからん要求してくるけどな

367:デフォルトの名無しさん
13/08/01 NY:AN:NY.AN .net
そのレスに何の意味があるの?

368:デフォルトの名無しさん
13/08/04 NY:AN:NY.AN .net
お前が釣れたんじゃねぇの?

369:デフォルトの名無しさん
13/08/04 NY:AN:NY.AN .net
そのレスに何の意味があるの?

370:デフォルトの名無しさん
13/08/06 NY:AN:NY.AN .net
 Delphi7 のユーザーなのですが、最新版の Delphi の TRichEdit は 7 に比べ格段に進化しているのでしょうか?
 また TEditor 以外の 有力なテキストエディタコンポはありますか?
 RichEdit も有力でかまいませんのでよいコンポがあったら紹介して下さい。

371:訂正
13/08/06 NY:AN:NY.AN .net
> RichEdit も有力でかまいませんのでよいコンポがあったら紹介して下さい。
RichEdit も有料でかまいませんのでよいコンポがあったら紹介して下さい。

372:デフォルトの名無しさん
13/08/07 NY:AN:NY.AN .net
TMaskEditで日付を入力しているのですが
一度入力してしまうと消してブランクにしたいと思っても入力値が不正ですとなってしまって抜けられなくなります
この場合入力を取り消す方法はないのでしょうか

373:デフォルトの名無しさん
13/08/07 NY:AN:NY.AN .net
>>354
超テキトーにお答えします。

>最新版の Delphi の TRichEdit は 7 に比べ格段に進化しているのでしょうか?
たぶん特に進化はしてないかと。トライアル版を試すとかヘルプを見るとか。
URLリンク(docwiki.embarcadero.com)

>また TEditor 以外の 有力なテキストエディタコンポはありますか?
TEditorが正式にUnicode対応するまで、決定版が無いような気がしたり。
TSonEditは、TEditorと同じくUnicode対応の可能性あり。
SynEdit
他にはエディタ真魚のTNotePadとか。たぶんまだまだあるでしょ。

>RichEdit も有料でかまいませんのでよいコンポがあったら紹介して下さい。
最近広告してるTRichEdit代替品。良いかまったく知らんけど。URLリンク(www.trichview.com)

374:デフォルトの名無しさん
13/08/07 NY:AN:NY.AN .net
>>356
「入力を取り消す」が、有無を�


375:セわさず元に戻す、という意味ならこんな感じで。 type TMaskEdit = class(Mask.TMaskEdit) protected procedure ValidateError; override; end; type TForm1 = class(TForm)   … implementation procedure TMaskEdit.ValidateError; begin Self.Reset; end; こんなのもあった。 "必須入力自動キャンセル MaskEdit" http://delfusa.main.jp/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/samples/01118.html



376:デフォルトの名無しさん
13/08/12 NY:AN:NY.AN .net
>>357
 亀だけどサンクス。
 TEditor を使っている TeraPad の作者がいまだに Delphi4 で開発を継続しているのにちょっとびっくりした。
 OS は Windows 7 らしい。私の OS も Windows 7(64bit)なんだけど、Delphi 5 の動きは少し怪しい。32
ビット版の Windows 7 だったらいいのかな?

377:デフォルトの名無しさん
13/08/12 NY:AN:NY.AN .net
>>359
Delphi5 on Windows7 については知らぬ。

それより、TRichEditなら JEDI JVCL - TJvRichEditに言及するのを忘れてた。
VCL標準のは
>TRichEdit はリッチ エディット 2.0 をサポートします。
とのことだが、何をどうサポートしてるのか不明。大昔の機能しかないように見える。

それに対し、TJvRichEditはRichEdit(2.0 & 3.0)の機能をほぼ網羅してる。
背景色・リンク(イベント)・複数回Undo・ズーム・アンダーラインの種類と色、などなど。
URLリンク(wiki.delphi-jedi.org)
URLリンク(wiki.delphi-jedi.org)
URLリンク(wiki.delphi-jedi.org)

378:デフォルトの名無しさん
13/08/25 NY:AN:NY.AN .net
Delphi XE3とか既にインストールされてるのですが、今から、古いバージョンの
Delphi2009とかをインストールしても問題ないでしょうか??
ファイルの関連付けは変わりそうですが。

379:デフォルトの名無しさん
13/08/25 NY:AN:NY.AN .net
ご想像の通りあまりお勧めできないかなぁ。大丈夫かもしれないけど。
あとからXE3を修復セットアップかけてみるとか…?

380:デフォルトの名無しさん
13/08/25 NY:AN:NY.AN .net
やっぱ、おすすめできないですよね。
いざとなったら、仮想マシンの方で頑張ってみます。

381:デフォルトの名無しさん
13/08/25 NY:AN:NY.AN .net
問題になりそうなのはヘルプ、関連づけ、同梱されてるサードパーティ製品くらいかな。
でも動いてる環境に影響がありそうなことはしたくはないよね。

382:デフォルトの名無しさん
13/08/25 NY:AN:NY.AN .net
環境変数もあるか。

383:デフォルトの名無しさん
13/08/27 NY:AN:NY.AN .net
エンバカが Delphi 買ったのって、エンバカのツールが Delphi で書かれていたからなんだって。
すごいね

384:デフォルトの名無しさん
13/08/27 NY:AN:NY.AN .net
         _人人人人人人人人人人人人人人人_
        >   そうなんだ、すごいね!      <
       ´ ̄^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^ ̄
            __、、=--、、         __
           /    ・ ゙!       /・   `ヽ
           | ・   __,ノ       (_    ・ |
           ヽ、 (三,、,         _)    /
            /ー-=-i''       (____,,,.ノ
            |__,,/          |__ゝ
             〉  )          (  )

385:デフォルトの名無しさん
13/08/29 NY:AN:NY.AN .net
初めまして
過去ログみてsystem32を見てみたのですがrtl170.bplが見当たりません
どこにありますか…?

386:デフォルトの名無しさん
13/08/29 NY:AN:NY.AN .net
>>368
いや、あんた使ってるDelphiのバージョンとか 、
何をしたらどんなエラーが出るとか書かないとエスパー降臨待ちになるで

387:デフォルトの名無しさん
13/08/29 NY:AN:NY.AN .net
>>368
すいません。
Delphi絡みというよりも、やっているPCゲームでrtl170.bplを要求されてしまって
ぐぐってもなかなかでてこないときに>>328に辿り着いたので安易に質問してしまいました
そもそもrtl170.bplというファイル自体がよくわかりません…

388:デフォルトの名無しさん
13/08/29 NY:AN:NY.AN .net
ゲームメーカーに問い合わせるしかないんじゃね?

389:デフォルトの名無しさん
13/08/29 NY:AN:NY.AN .net
>>370
作者に連絡してリリースビルドかつランタイム同梱形式でコンパイルしてもらうか、
配布用ランタイムパッケージつくってもらえ

390:デフォルトの名無しさん
13/09/04 10:38:23.26 .net
整数とかの変数名のあたまにマイナス符号つけるやり方って昔からあった?

391:デフォルトの名無しさん
13/09/04 11:58:48.55 .net
ごめん、君の言ってることがわからない > 373

AnotherIntVariable := - IntVariable;

ってこと?

392:デフォルトの名無しさん
13/09/11 11:16:41.24 .net
TPopupMenuを上に展開するのってどうやるのでしょうか

393:デフォルトの名無しさん
13/09/11 13:11:42.47 .net
>>375
カーソルの上の方にということならそのように座標をを指定するだけ。

394:デフォルトの名無しさん
13/09/11 13:35:00.78 .net
>>376
popupメソッドだと左上が基点になんですが、
デスクトップで右クリックしたときに出るメニューみたいに
左下や右下を基点にする方法はありますか?

395:デフォルトの名無しさん
13/09/11 13:49:17.25 .net
PopupMenu1.Popup(0, 0);が左上だから
PopupMenu1.Popup(0, 768);で左下
PopupMenu1.Popup(1024, 768);で右下にならない?

396:デフォルトの名無しさん
13/09/11 23:03:04.06 .net
> デスクトップで右クリックしたときに出るメニューみたいに
画面下にはみ出しそうだと勝手に上向きに調整されるだけ
逆に画面上につっかえるような指定すると、どう頑張っても下向きにされるはず

397:デフォルトの名無しさん
13/09/12 01:05:31.45 .net
>>377-379
強制的に、またはデフォルトで左下や右下を基点にしたい、って意味なのかな?
どうしてそんな必要があるのか分からんけど。

398:375
13/09/13 18:17:19.80 .net
フォームの下のほうに配置したボタンでポップメニューを出すようにしてるんですが、
通常はボタンの左下を基点に表示するようにしてるけど、
メニューが多くなって上に展開されたときにボタンが隠れてしまうので、
はじめからボタンの上方向に展開できればと思ったのです。

399:デフォルトの名無しさん
13/09/13 19:43:33.26 .net
DephiにC++のコピーコンストラクタみたいな物は無いのでしょうか?
もしくは代わりになりそうな機能

400:デフォルトの名無しさん
13/09/13 23:18:35.26 .net
ない
自分でoverloadしたコンストラクタを実装か、Assignを実装して内容をコピる

かなぁ。あとは高度なrecord型を使う

401:デフォルトの名無しさん
13/09/15 23:26:29.21 .net
iPhoneをターゲットとした開発を考えています。
xcode(昔のVC6.0のようなRADとはほど遠い開発環境)に苦痛を感じています。
iPhone向けのDelphiはいわゆるRADなのでしょうか?

Windows版はDelphi6Personalの時に使っていたので
同じように開発できるならpro版を買おうと思っています。

402:デフォルトの名無しさん
13/09/15 23:46:20.96 .net
>>384
RADだよ。制限も多いけど。

403:デフォルトの名無しさん
13/09/16 02:22:34.88 .net
>>384
解説本が出てるから見てみたら。
URLリンク(www.embarcadero.com)

404:デフォルトの名無しさん
13/09/17 09:03:42.93 .net
iOSはPro版だけじゃ駄目だから気をつけて

405:デフォルトの名無しさん
13/09/24 21:59:38.74 .net
iOS/Android開発するには最低おいくら掛かりますか?
個人的に触ってみるつもりです。(トライアル版は今落としてます)
XE5 Starter版でも「XE5 Starter ESD アップグレード」なるものを当てれば
iOS/Android開発できる??
とんちんかんな質問ですんません

406:デフォルトの名無しさん
13/09/24 23:11:50.03 .net
iOS/Android開発するにはDelphi Pro+Mobile-Addonが最低条件。DEKOさんとこの

URLリンク(ht-deko.minim.ne.jp)

で『2009 以前のバージョンまたは新規購入の方: モバイル開発環境あり』のところを参照。
ご新規さんだと157,700円が最安値かな(全然安くねーとは思うが)。

407:デフォルトの名無しさん
13/09/24 23:16:31.95 .net
あーあとiOSの場合はAppleにも冥加金を払う必要があるんで。iOSデベロッパプログラム、年8,400円だとさ。
ちなみにMac(OSX)とは別立てね。

408:デフォルトの名無しさん
13/09/24 23:26:36.74 .net
>>388
Starterではまったくダメです。Mobile Add-On Packの要件外なので。
>「XE5 Starter ESD アップグレード」なるものを当てれば
いや、それが普通のStarter版ですよ。
(他の有償/無償の開発ツールユーザーが対象。インストール確認は特に行わないはず。だから…。)

しかし、、、目が飛び出そうな価格に驚いたでしょ(笑)

409:デフォルトの名無しさん
13/09/25 08:26:14.01 .net
アイフォン用のアプリを登録するだけでも金がかかる、と アホ臭い

410:デフォルトの名無しさん
13/09/25 08:55:33.28 .net
いつの時代から来たんだ…w

411:デフォルトの名無しさん
13/09/25 23:18:19.52 .net
>>389-391
うーむ高いですねぇ、ひとまずiOS/Android開発は諦めます。
Delphi XE5 Pro単体でも10万円ってのも痛いっす(自分は新規購入です)
Starterは将来モバイル開発したくなったとき、ゴミと化してしまうので買うに買えませんしね・・・
ご親切に回答ありがとうございました!

412:デフォルトの名無しさん
13/09/25 23:27:47.30 .net
少なくともまだ買わないのが正解。
買う場合はXE7あたりになってもっと安定してから。

413:デフォルトの名無しさん
13/09/27 20:32:06.35 .net
Delphi の exe って無駄に大きいけど、小さくするのは難しいんですか。
ネット検索すると小さくする方法がいくつかあったけど、なんか面倒。

普通にコンパイルして小さくなるようなバージョンを開発してほしい。

414:デフォルトの名無しさん
13/09/27 23:09:04.54 .net
基本的には無理
EXE自体にフォームなどのリソースを全部リンクする構造なんで

VBみたいにライブラリをランタイムとして提供すればある程度は小さくなるけど
トータルで見ればむしろデカくなる上配布が面倒になる

EXEパッカーという手もあるがセキュリティソフトの誤爆率が大幅上昇するのでお勧めしない

415:デフォルトの名無しさん
13/09/28 03:20:24.42 .net
そうですね。
っていうか、今時サイズ気にします?
本当に動きに差異が無いなら、小さい方が良いのは理解します。
でも、それを検証するのも面倒だし、そんなこと気にしている暇があるなら、
もっと、他の事に時間を費やした方が宜しいかと。。。

まぁ、XE4で、空のexe作った時のサイズには、流石に驚愕しましたが。
Debugだからだったのね。Releaseにしたら、気にならないよ。

416:デフォルトの名無しさん
13/09/28 08:27:13.11 .net
Delphi XE5 で人生初 Android アプリを作ったら 30M 超えてて泣いた

417:デフォルトの名無しさん
13/09/28 09:13:16.04 .net
30Mなんて今どきジュースも買えんだろ

418:デフォルトの名無しさん
13/09/28 11:43:30.30 .net
Androidアプリでも30MBはデカすぎ

419:デフォルトの名無しさん
13/09/28 12:37:49.15 .net
昔と違って HDD 容量も大きくなったけど
やっぱり1本で 30 M超えると「ちょっと大きいよね」と思ってしまう。
業務用アプリだと1だけでは無いので余計困る。

420:デフォルトの名無しさん
13/09/28 19:34:27.02 .net
MS: TMemoryStream;
MS.SaveToFile(FileName);
これって内部的にどうやってるの?
del6perでソース無いので教えてください。

421:デフォルトの名無しさん
13/09/28 20:06:19.23 .net
>>403
>del6perでソース無いので教えてください。
↓ほとんど同じですからどうぞ。

■OpenCLX
URLリンク(sourceforge.jp)


422:fnet_openclx/ OpenCLX-0.1ALPHA.tar.gz \OpenCLX-0.1ALPHA.tar\OpenCLX-0.1ALPHA\rtl\common\Classes.pas ■FreeCLX http://sourceforge.jp/projects/sfnet_freeclx/ freeclx-k1-2.2.4-4.tar.gz \freeclx-k1-2.2.4-4.tar\freeclx\rtl\Classes.pas



423:403
13/09/28 22:04:52.38 .net
㌧、DLしました。
色々研究できそうです。

424:デフォルトの名無しさん
13/09/30 11:22:58.53 .net
android用のリリースビルドで30M?
なら確かに厳しい、、、

425:デフォルトの名無しさん
13/10/05 18:39:19.34 .net
Debugビルドでないの?
Winの場合はDebugとReleaseで全然サイズ違うよ

426:デフォルトの名無しさん
13/10/06 16:52:58.64 .net
デュアルモニタ環境で開発していて気付いたのですが
TPopupMenu.Popup(X, Y)でホップアップメニューを表示させるとき、
モニタ1(プライマリ)上では正常に表示されるのに
モニタ2上で表示させようとすると必ずモニタ1に表示されてしまいます。

何か設定が足りないのでしょうか?
どなたか何か情報お持ちでしたら教えてください。

427:デフォルトの名無しさん
13/10/06 17:11:48.11 .net
バージョンくらい書けよ

428:デフォルトの名無しさん
13/10/06 17:33:37.19 .net
スパンモードってことだよね
PopupMenu1.Popup(2000,100);で普通にセカンドモニタに出てくるけど
(X,Y)はどうやって計算してる?
TScreen.DesktopTop や TScreen.DesktopWidth とか
function DeskTop:TRect;
begin
//タスクバーなどを除いたデスクトップのワークエリアを取得
SystemParametersInfo(SPI_GETWORKAREA, 0, @Result, 0);
end;
とかの組み合わせを間違ってないかな?

429:408
13/10/06 19:46:06.91 .net
>>409-410 返信ありがとうございます。

バージョンはXE5で、FireMonkeyデスクトップアプリケーションで作ってます。

> (X,Y)はどうやって計算してる?
Screen.MousePosでX,Yもってきてます。
(数値の直入力も試してます)

私のモニタの配置が
[モニタ2][モニタ1]
というようになってまして、
配置を
[モニタ1][モニタ2]
としたところ正常に表示できました。

うーん・・・

430:デフォルトの名無しさん
13/10/06 20:58:55.38 .net
ついでにOSも…

431:408
13/10/06 23:27:28.67 .net
OSはWindows 7 Professional 64bitっす

432:デフォルトの名無しさん
13/10/07 14:22:44.65 .net
ひょっとしてモニタ2の座標はマイナスかな

433:408
13/10/07 21:16:31.52 .net
>>414 そです、マイナスです

434:デフォルトの名無しさん
13/10/08 01:04:16.67 .net
そういうのVCLならライブラリの中に潜っていって調べるのが当たり前だったけど、
Firemonkeyの中を見たらまるっきり構成が変わってて知らない土地に来たみたいな感覚だな。
マルチプラットフォームだしなかなか手が出しにくいな。

435:デフォルトの名無しさん
13/10/09 09:53:35.37 .net
パーティションツールとかによくある、
サイズを拡縮できるバーみたいなのってどうやって作るの?

436:デフォルトの名無しさん
13/10/09 10:05:49.74 .net
>>417
よくあるじゃ分からない。
本当にやりたいなら、詳しい説明画像とか作って示す手間をかけてくれ。

437:デフォルトの名無しさん
13/10/09 10:21:58.27 .net
>>417
標準コントロールじゃないので自分で作れ
コントロールの縁付近でマウスを押されたら
カーソル移動移動に合わせてコントロール伸縮するように
作ればいいんじゃないかな

438:デフォルトの名無しさん
13/10/09 10:43:32.24 .net
SplitterとPanelを並べれば似たような事が出来るかも?

439:デフォルトの名無しさん
13/10/09 11:50:18.23 .net
標準にはないのね。ありが㌧

440:デフォルトの名無しさん
13/10/09 11:54:49.30 .net
しょーがないんだけど、一般的な業務アプリで使わなさそうなGUIは
自分で何とかしないと駄目なんだよね
俺は今ビデオ編集みたいなタイムラインが必要で困ってる

441:デフォルトの名無しさん
13/10/09 12:02:09.60 .net
そうそう、そんなイメージ。タイムライン
やっぱpanelとsplitterかな。
他にいいアイデアない?くだすれ思考で。 <


442:デフォルトの名無しさん
13/10/09 12:19:20.87 .net
さっさとつくって公開してくれや。

443:デフォルトの名無しさん
13/10/09 12:20:29.27 .net
描画とクリックだけでしょ。作ったほうが簡単

444:デフォルトの名無しさん
13/10/09 12:55:28.08 .net
1
OnMouseDown で座標を記憶し OnMouseUp で座標を引き算してコントロールの位置や大きさを整える。

2
必要に応じてカーソルも変える。

3
ちょっと贅沢したければOnMouseUp での整形を OnMouseMove でやる。

TSplitter は扱いづらいので自作がお勧め。

445: ◆rW3tmvmDLc
13/10/09 16:46:41.76 .net
>>425
うちもそう思いますが描画とマウス操作だけなら自分でコンポを書くほうが楽だと思います。

unit unko;

interface

uses
 SysUtils, Classes, Controls, Graphics;

type
 TUnko = class(TGraphicControl)
 private
  FDragging: boolean;
 protected
  procedure Paint; override;
  procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer); override;
  procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer); override;
 public
  constructor Create(AOwner: TComponent); override;
 end;

implementation

constructor TUnko.Create(AOwner: TComponent);
begin
 inherited; //
 Width := 128; Height := 128;
end;

(つづく)

446: ◆rW3tmvmDLc
13/10/09 16:49:38.52 .net
>>427
文章がおかしかった、ごめんなさい。

おそらく何から手を付けていいかわからないと思いますので
クソみたいなサンプルを作ってみました。(以下、>>427の続き)

procedure TUnko.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); // マウスボタンが押された時に呼び出される。
begin
 if Button = mbLeft then
 begin
  FDragging := True; // 「左ボタンでドラッグしてます」
  Invalidate; // Windowsに「適当なタイミングで再描画してね!」とリクエストする
 end;
 inherited;
end;

procedure TUnko.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); // マウスボタンが離された時に呼び出される。
begin
 if Button = mbLeft then
 begin
  FDragging := False; // 「ドラッグはやめました」
  Invalidate;
 end;
 inherited;
end;

(続く)

447: ◆rW3tmvmDLc
13/10/09 16:52:25.76 .net
>>428の続き)

procedure TUnko.Paint; // ここで描画する
begin
 if FDragging then // 「ドラッグ中?」
 begin
  Canvas.Pen.Color := clRed;
  Canvas.Brush.Color := clYellow;
  Canvas.Rectangle(ClientRect);
  Canvas.Font.Color := clRed;
  Canvas.TextOut(2, 2, 'ぶりっ!');
 end
 else
 begin
  Canvas.Pen.Color := clYellow;
  Canvas.Brush.Color := clGray;
  Canvas.Rectangle(ClientRect);
  Canvas.Font.Color := clYellow;
  Canvas.TextOut(2, 2, 'うんこ');
 end;
end;

end.

(続く)

448: ◆rW3tmvmDLc
13/10/09 16:57:13.87 .net
>>429の続き)

呼び出しサンプル…といっても生成するだけですが

uses (中略), unko;

type
 TForm1 = class(TForm)
 private
  FUnko: TUnko;
 public
  constructor Create(AOwner: TComponent); override;
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

constructor TForm1.Create(AOwner: TComponent);
begin
 inherited;
 FUnko := TUnko.Create(Self);
 FUnko.Parent := Self;
end;

>>427-429のうちコードのところだけをコピペ、
見やすくするために全角空白にしているところを半角空白かタブに置換して、
unko.pasで保存すれば使えるはず。

449:デフォルトの名無しさん
13/10/09 17:15:24.33 .net
たいしたもんだ
家に来て妹をファックしていいぞ

450:デフォルトの名無しさん
13/10/09 17:33:09.82 .net
高見盛似のな

451:デフォルトの名無しさん
13/10/09 17:54:52.62 .net
ドラッグ中のESCキーとか、Alt+TABとか、
ウィルスバスター起動してフォーカス持ってかれたとか
この辺どうなの?

452:デフォルトの名無しさん
13/10/10 05:21:34.02 .net
XE5で作ったAndroidアプリがデカすぎて、
実機での起動時のロード時間がえらいかかるらしいってほんまでっか?

453:デフォルトの名無しさん
13/10/10 06:10:39.26 .net
デバッグビルドはね

454:デフォルトの名無しさん
13/10/10 07:01:24.90 .net
厳密にはガセ
ADB / USB ケーブルによるファイル転送と AP


455:K ファイルの展開/デジタル署名の検証に 時間がかかるだけで、いったんアプリを転送して展開してしまえばネーティブコード(笑)なので デバッグビルドでもリリースビルドでも差はない。 まぁデバッグ時には毎回(コードを変更していなくても)アンインストール、インストール、APK 署名検証、APK から ファイルの展開/抽出をするので、おそいといえば遅い。



456:デフォルトの名無しさん
13/10/10 07:25:39.18 .net
なる

457:デフォルトの名無しさん
13/10/10 15:05:07.64 .net
なる

458:デフォルトの名無しさん
13/10/11 13:57:17.85 .net
with文の式を指す予約語とかある?selfみたいな

459:デフォルトの名無しさん
13/10/11 17:00:50.84 .net
式じゃなくてオブジェクトですね。
ないんです、すみません。

460:デフォルトの名無しさん
13/10/11 19:35:39.45 .net
やっぱ欲しいよね、アレ
with TStringList.Create do とかした時に Strings 引数で他に飛ばす時とか
でもないんだよね
しかも今後は with 文自体が非推奨になっていくみたいだし……

461:デフォルトの名無しさん
13/10/14 03:33:41.73 .net
Withはミスりやすいから仕方ない。
完全に被らないようにするか、Withしてない方にSelfだの付ければ良い

462:デフォルトの名無しさん
13/10/15 12:27:08.34 .net
エディタの進化でwithはいらん子だわな

463: ◆rW3tmvmDLc
13/10/17 17:26:29.50 .net
うちは逆にwithを使うようになってます。ただし

・使わないとえらい長たらしくてわかりにくい場合
・ピンポイントでのみ使う(長いbegin~endブロックでは使わない)
・パラメーターが1つ(つまり with Untara, Kantara do などとはしない)

のすべてを満たす場合だけです。たとえば

if opAruFlag in MainData.Untara.Kantara.Options then
 MainData.Untara.Kantara.Options := MainData.Untara.Kantara.Options - [opAruFlag]
else
 MainData.Untara.Kantara.Options := MainData.Untara.Kantara.Options + [opAruFlag];



with MainData.Untara.Kantara do
 if opAruFlag in Options then
  Options := Options - [opAruFlag]
 else
  Options := Options + [opAruFlag];

こうするような場合。

464:デフォルトの名無しさん
13/10/17 20:34:04.70 .net
with ListBox do Selected[ItemIndex]:=True;
これは一番よく使うパターンだけど ItemIndex は入力支援で出てこないんだよね

465:デフォルトの名無しさん
13/10/18 16:16:05.43 .net
with使うとブレークした時にカーソル合わせても値が表示されないからクソ

466:デフォルトの名無しさん
13/10/18 18:35:12.94 .net
というか入力支援捨ててまで使おうとする奴はアホ

467:デフォルトの名無しさん
13/10/18 20:18:16.28 .net
フラグを足し引きしてるのがすんごい違和感ある or,xor,andだろ

468:デフォルトの名無しさん
13/10/18 21:06:52.48 .net
これは集合型ですから。
>>444
Include、Excludeを使うとさらに良くなるかな?

469:デフォルトの名無しさん
13/10/18 22:57:41.69 .net
俺は全然、集合型を足しひきするのはOK

470:デフォルトの名無しさん
13/10/19 00:24:53.69 .net
D7でボタンを押すとファイル選択のダイアログを表示する処理で
OpenDialog1.FileName := FName; //デフォルトのファイル名 
if OpenDialog1.Execute then
begin
//処理
end;
といったコードを書いているのですが一部のwindows7でダイアログが表示されなっくて困っています
同じバイナリで表示されるPCと表示されないPCがあります
同様の現象に遭遇したことがある方、解決方法をご存知でしたら教えてください

471:デフォルトの名無しさん
13/10/19 19:23:02.07 .net
最小限再現するコードがほぼそれだけなら
「表示されないPCが」おかしい

472:デフォルトの名無しさん
13/10/20 02:00:53.23 .net
初めましてTurbo delphiで時たまプログラミング遊びしている者です。
今作成しているプログラムで壁にぶつかってしまったのでなにかヒントを頂けると嬉しいです。

特定フォルダ内のexeファイルのパスを拾って、ボタン1つで起動させるソフトを作っています。
メモ帳やペイント、その他多くのソフトは想定通り起動してくれ�


473:驍フですが、 JAVAで作られたexeソフト?だけ実行しようとしても 「アプリケーションの実行に失敗しました。」と出て実行することができません。 他のソフト起動に試した関数は以下の三種類です。   CreateProcess   ShellExecute   WinExe ネット検索をしても上記3つの関数しか提示されていなくどういうアプローチで修正すればよいかわからず困惑しています。 似た事例を経験されて解決方法をご存じの方がいらっしゃいましたら是非ともご教示願いたいです。 どうかよろしくお願いします。



474:デフォルトの名無しさん
13/10/20 02:17:45.88 .net
javaでexeってLaunch4jとかそんなの?

475:デフォルトの名無しさん
13/10/20 02:23:48.32 .net
起動できないソフトの名前を書くように

476:デフォルトの名無しさん
13/10/20 02:25:49.71 .net
>>453
正解は知らないけど、ShellExecuteに絞ってやったほうがいい。
 ダブルクリックで起動できる = 「ファイル名を指定して実行」で起動できる = ShellExecuteで起動できる
…のはずだから。

ShellExecuteも様々なパラメータ指定のやり方があるから、あらゆる方法を試したら。
今はどうやってるの?

477:デフォルトの名無しさん
13/10/20 02:35:13.02 .net
こんな深夜に皆さん本当にありがとうございます。

>>454さん
申し訳ありません
私はJAVAに詳しく無くて詳細はわからないのですが、
そのソフトの同一階層にjreというフォルダがあったり
.jarや.jsといった拡張子ファイルがあるのでjavaで作ったソフト?なのかなと思って書かさせて頂きました。

>>455さん
申し訳ありません
『TimeManager』という勤怠管理ソフトです。
URLリンク(www.vector.co.jp)

>>456さん
情報ありがとうございます。ShellExecuteで色々試してみます。
今の方法を示します

exedatはstring型でファイルのパス名が入っています。

ShellExecute(Handle,'open',PChar(exedat),'',
// PChar(ExtractFilePath(Application.Exename)),SW_SHOWDEFAULT);

です。
情けない話で、APIはまだあまり理解していないので下記サイトのコピペで実行しています。
URLリンク(www.wwlnk.com)

478:デフォルトの名無しさん
13/10/20 02:48:26.24 .net
とりあえず、ワケ分からないで付けてる「既定のディレクトリ名」は外そう。
ただし、試してないよ。
ShellExecute(Handle, 'open', PChar(exedat), '', nil, SW_SHOWDEFAULT);

479:デフォルトの名無しさん
13/10/20 02:56:31.43 .net
>>458さん
ありがとうございます。
第五引数をnilにしましたが残念ながら結果は変わらず「アプリケーションの実行に失敗しました」でした。
ご助言誠にありがとうございます。

普段使用しているランチャーソフトからはパスを拾って普通に実行できるので
外部ソフトからの起動ができないわけではないと思うのですが…

480:デフォルトの名無しさん
13/10/20 03:03:44.38 .net
exedatの中身はどうなってるの?
それを「ファイル名を指定して実行」で起動する?

481:デフォルトの名無しさん
13/10/20 03:18:45.06 .net
>>460さん
ありがとうございます。
ブレークポイントを置いて確認したところ想定通りのパスが入っていました。
加えて、試しにコピーして「ファイル名を指定して実行」を実施した所しっかり起動しました。
ご助言ありがとうございます。

482:デフォルトの名無しさん
13/10/20 03:21:32.26 .net
では、これは?
ShellExecute(Handle, nil, PChar(exedat), nil, nil, SW_SHOWDEFAULT);

空文字が見苦しいからnilで統一した。どっちでも受け付ける…と思う。

483:デフォルトの名無しさん
13/10/20 03:33:00.63 .net
>>462さん
ありがとうございます。
結果は同じく「アプリケーションの実行に失敗しました」でした。

起動が上手くいかないフォルダに別のソフトのexeファイルを入れて
それに対して実行できるか試してみましたが、別のexeファイルなら想定通り実行出来ました。

また、第六引数の表示状態の指示も下記サイトに表記の全6パターン全て試しましたが実行できませんでした。
URLリンク(eternalwindows.jp)


484:.html



485:デフォルトの名無しさん
13/10/20 03:39:56.23 .net
難しいねぇ。
当該のソフトは軽い気持ちで入れたくない量(嫌な予感)なので、パスさせて。
お役に立てなくてすまぬ。

他、心当たりある人助けてあげて。

486:デフォルトの名無しさん
13/10/20 03:48:25.11 .net
>>464さん
こんなに深夜遅くまでご教示くださり誠にありがとうございました

たった今無事に当該exeファイルを想定通り起動することが出来ました。
URLリンク(www.wwlnk.com)
に記載のCreateProcessを用いて下記のコードで実行してみたところ

  GetStartupInfo(SI); //他アプリの起動
  CreateProcess (PChar(exedat), '', nil, nil, False, 0, nil, PChar('C:\Program Files\MOBWAYS\TimeManager\'), SI, PI);

無事目的のexeファイルを起動することが出来ました。
手持ちの参考書『カンタン!Delphiプログラミング』には第8引数に「 CREATE_DEFAULT_ERROR_MODE」と記載してあったのですが
上記のようにカレントフォルダを指定してあげると想定通りの起動を得ることが出来ました(まだ難しくて理解できていないです)。
まだまだわからないことだらけで情けない限りです。


繰り返し、>>464さん夜分遅くまでお付き合い下さり
本当に、本当にありがとうございました。

スレを長レスで乱して申し訳ありませんでした。
皆様ありがとうございました。

487:デフォルトの名無しさん
13/10/20 03:54:31.39 .net
>>465
ほー、そうなんだ。
無駄なことさせたようで悪かったね。ごめんなさい。
とにかく目的が果たせて良かった。

488:デフォルトの名無しさん
13/10/20 03:58:05.95 .net
>>466さん
とんでもないです
問題点を精査するアプローチを学べました。
大変参考になりました。本当にありがとうございます。

489: ◆rW3tmvmDLc
13/10/21 16:33:49.96 .net
>>449
Inludde/Exclude手続きが使えるのは集合型「変数」のみで
集合型「プロパティ」には使えません。

集合演算子に xor があったらありがたかったです。

490:デフォルトの名無しさん
13/10/21 17:39:48.66 .net
初めまして。
VCLフォームアプリケーションで書いたプログラムをFireMonkeyモバイルアプリケ

ーションに移植しようとしているものです。

【症状】
PaintBox.Canvas.Pixels[x,y]のPixelsがエラーメッセージ E2003 未定義の識別

子を吐き出し、詰まっております。

【質問内容】
PixelsはVCLフォームアプリケーションでしか使用できないものなのでしょうか?
また、そうであるとすれば、PaintBoxに点を描画できる方法はあるのでしょうか?

何かご存知の方、ご教示頂けると幸いと存じます。

491:デフォルトの名無しさん
13/10/21 18:36:30.52 .net
Googleってご存知でしょうか?
もしご存知であれば"FireMonkey Pixels"で検索することはできないのでしょうか?

492:デフォルトの名無しさん
13/10/21 20:07:15.70 .net
個人情報抜かれるから無理ですね。

493:デフォルトの名無しさん
13/10/21 23:14:40.14 .net
高橋(智)です
ソースは画像でうpしてます(笑)

494:デフォルトの名無しさん
13/10/22 05:08:56.42 .net
高橋さんって嫌われているの?

495:デフォルトの名無しさん
13/10/22 06:04:41.26 .net
遊ばれてるだけだろ。あまり愛想のいい人じゃないけど、嫌いじゃない。

496:デフォルトの名無しさん
13/10/22 23:33:52.71 .net
じゃあ DEKO さんと Mr.XRAY さんは?

497:デフォルトの名無しさん
13/10/24 23:33:52.26 .net
ネチネチ。

498:デフォルトの名無しさん
13/10/31 23:10:39.41 .net
XE2のフォーマッタで
datetimetostr -> DateTimeToStr
というのをやるオプションってないんですか?
XE3以降では出来たりしますか?

499:デフォルトの名無しさん
13/11/02 07:56:58.37 .net
ちょっと教えてください。

Win7(x64)上のXEで
TListview�


500:フOnCustomDrawSubItemを使って 各行のSubItemに図形を描いています。 これ自体は正常に描けているんですが、 本来、Windowsに任せているハズのCaptionが マウスを上に持ってくると文字背景が黒くなり テキストを判別できなくなります。 で、Captionも自力で描こうとOnCustomDrawItemを使うと、 こんどはOnCustomDrawSubItemがまったく機能しなくなります。 OnCustomDraw...って、どうやって使うんでしょうか?



501:478
13/11/02 08:45:01.40 .net
>>478で質問した者です

ここに回答がありました
URLリンク(stackoverflow.com)

で、イベントの最後に
SetBkMode(Sender.Canvas.Handle, TRANSPARENT)
を追加すると上手く行きました

502:デフォルトの名無しさん
13/11/06 19:26:53.35 .net
DelphiのTFormのLeftとかWidthって実際の値とは違うの?

Windows 7で2つのFormをピッタリ並べたいんだけど
LeftとWidthだけ使うと、Form同士が微妙に重なってる

実際に画面キャプチャして調べると、LeftもWidthも
設定した値と違ってるんだけど...
(外枠相当が数値に反映されてない?)

Formの位置やサイズを正確に調べる方法ってありますか?

503:デフォルトの名無しさん
13/11/06 19:31:56.33 .net
left,top
width,height

504:デフォルトの名無しさん
13/11/06 19:48:02.82 .net
>>480
重なってると思ってる部分は単なる影だろ
Aero切るかクラシック表示にして試してから言え

505:デフォルトの名無しさん
13/11/06 19:59:11.78 .net
>>480
フォームを一つだけ最大化して、その値を半分にしてはどうかな。

506:デフォルトの名無しさん
13/11/06 20:02:08.09 .net
Win32APIのAdjustWindowRectExが現実とは異なる値を返している(かパラメータが正しくない)んじゃないかな。

507:デフォルトの名無しさん
13/11/06 20:39:52.11 .net
>>480
ここにVista以降のウィンドウサイズについて詳しく書いてある
URLリンク(mrxray.on.coocan.jp)

ここに出てる2つのAPI使って枠のサイズを計算する
確かWindows 7で5ピクセルだと思った(うろ覚え)

ウィンドウを並べるんだったら右側のウィンドウ位置を
左のウィンドウのLeft+Width+10とする

508:480
13/11/06 21:08:02.18 .net
すばやい回答ありがとうございます。

>>485
試しに10足してみると2つのFormがピッタリ並んだ
APIとかまだ使ったことないけど挑戦してみる

ありがとう

509:デフォルトの名無しさん
13/11/07 10:06:13.17 .net
Form.Widthはクライアント領域の幅で、枠は考慮しない これは常識だけど・・・?

510:デフォルトの名無しさん
13/11/07 10:09:14.72 .net
常識だったのか…?

511:デフォルトの名無しさん
13/11/07 10:12:43.14 .net
クライアント領域の幅ってForm.ClientWidthじゃなかったっけ?

512:デフォルトの名無しさん
13/11/07 16:10:24.72 .net
そうだね。そっちが常識。>>487は…(笑)

513:デフォルトの名無しさん
13/11/08 01:54:51.72 .net
そういえばScreenSnapをtrueにしてると
Formがスクリーン端に吸着するとき
枠が外にはみ出すんだよな

それ以来ScreenSnapは使わなくなった

514:デフォルトの名無しさん
13/11/08 14:39:53.52 .net
Delphiの「Windows○○対応」は表面上だけだからな
本来はOSや状態による差をVCL内部で考慮するのが当然なんだが

515:デフォルトの名無しさん
13/11/09 02:02:37.76 .net
>本来はOSや状態による差をVCL内部で考慮する
もう何年も前に、そういった思想は破棄されている
ただまぁ昔話は止めておけ

516:デフォルトの名無しさん
13/11/09 14:40:32.88 .net
は?

517:デフォルトの名無しさん
2013/11/10(


518:日) 13:18:16.26 .net



519:デフォルトの名無しさん
13/11/11 02:42:49.00 .net
簡単
WM_WINDOWPOSCHANGING
とかでぐぐれば、いくらでも例が出てくるだろう

520:デフォルトの名無しさん
13/11/11 05:34:05.14 .net
>>495 汚いソースで恥ずかしいけど、Del7のを参考にしてみた
uses DWMAPI;
FSnapBuffer: integer FScreenSnap: boolean; FFrameSize: integer;
procedure WMWindowPosChanging(var Message: TWMWindowPosChanging); message WM_WINDOWPOSCHANGING;

function GetWindowFrame(Handle: THandle): integer;
var R1, R2: TRect;
begin
result := 0; try
if Win32MajorVersion >= 6 then begin
DwmGetWindowAttribute(Handle, DWMWA_EXTENDED_FRAME_BOUNDS, @R2, SizeOf(TRect));
GetWindowRect(Handle, R1);
result := Abs(R2.Left - R1.Left);
end; except end; end;

procedure TForm.FormCreate(Sender: TObject);
begin
FSnapBuffer := 20; FScreenSnap := true; FFrameSize := GetWindowFrame(Handle);
end;

procedure TForm.WMWindowPosChanging(var Message: TWMWindowPosChanging);
procedure HandleEdge(var Edge: Integer; SnapToEdge: Integer; SnapDistance: Integer = 0);
begin if (Abs(Edge + SnapDistance - SnapToEdge) < FSnapBuffer) then Edge := SnapToEdge - SnapDistance; end;
var fx, fy, fwidth, fheight: integer;
begin
if FScreenSnap and ((Message.WindowPos^.X <> 0) or (Message.WindowPos^.Y <> 0)) then
with Message.WindowPos^, Monitor.WorkareaRect do begin
fx := x - FFrameSize; fy := y - FFrameSize; fwidth := Width + FFrameSize + FFrameSize; fheight := Height + FFrameSize + FFrameSize;
HandleEdge(fx, Left, Monitor.WorkareaRect.Left); HandleEdge(fy, Top, Monitor.WorkareaRect.Top);
HandleEdge(fx, Right, fWidth); HandleEdge(fy, Bottom, fHeight);
x := fx + FFrameSize; y := fy + FFrameSize;
end; inherited; end;

521:497
13/11/11 05:41:55.66 .net
>>497のを誰か添削してくれない?
Win7上でちょっと動きがぎこちないんだけど

522:デフォルトの名無しさん
13/11/12 06:24:41.56 .net
4月に画像ビュアーで質問したものです。
立て込んでいた仕事が一段落したので
作っていたソフトの改良をしたいと考えています。

DirectoryListBoxでダブルクリックしないと
FilelistBoxにファイルが表示されません。
シングルクリックにする方法はありますか?
イベントにOnClickがあるのでできそうな気がしますが、
何を書いたらいいのか分かりません。

コンパイラはDelphi XE4です。
よろしくお願いいたします。

523:デフォルトの名無しさん
13/11/12 14:11:19.69 .net
>>499
オブジェクトインスペクタで DirectoryListBox1.FileList:=FileListBox1 を設定してる
ということですか? 前提条件を書いてくださいね。
特にDirectoryListBoxやFileListBoxはWin3.1時代のコンポーネントみたいだから、
使ってる人がほとんどいないと思うので、なおさら。。。。

細かいこと言わないなら、OnClickに DirectoryListBox1.OpenCurrent(); でどうですか。

あと画像ファイルを開くなら、TOpenPictureDialogというのもありますよ。

524:デフォルトの名無しさん
13/11/12 19:50:15.30 .net
シングルクリック時にダブルクリックイベントを呼べばいいんでわ

525:デフォルトの名無しさん
13/11/13 18:41:24.62 .net
>>500-501
ありがとうございます。
DirectoryListBox1.FileList:=FileListBox1
は設定してあります。

インターフェースはListboxで十分で、
選択したjpg,pngファイルをImageに渡しているだけのソフトです。
wavとmp3のサポートしています。

元々はVecterにあるListというソフトを見本にして
勉強のためにDelphiで作っていました。
4月に発生していた原因不明のmp3が再�


526:カできないというエラーは 作り直していたら出なくなりました。 ロダにあげたので、もし良かったらアドバイスをいただけないでしょうか? http://www1.axfc.net/u/3087170.rar よろしくお願いいたします。



527:デフォルトの名無しさん
13/11/13 20:34:10.84 .net
以前もレスしたお人好しだが今回は時間がないので
ReadMeとUnit1_01.pasだけ目を通した

他の人も書かれたように「DirectryListBox」「FileListBox」は Windows3.1時代のもの
その当時はシングルクリックでフォルダ(ディレクトリ)を開くという考え自体がなかった
敢えてするなら
procedure TForm1.DirectoryListBox1Click(Sender: TObject);
begin
(Sender as TDirectoryListBox).OpenCurrent;
end;
もし他の人にも使ってもらうなら「シングルクリックで開く」と設定で選べるようにするべきだ

>mp3のタグ
「Delphi ID3Tag」でググれ
俺は自分用なので「AudioInfo」というコンポーネントを使ってる

「Delphi 関連づけ」でググれ

>次のファイルを自動で演奏
TMediaPlayer.OnNotify をヘルプで読むなりググるなり


以前も書いたけど人にソースを読んでもらうなら読みやすいように
filelistbox1.FileName→ FileListbox1.FileName;
コード補完機能を使ってちゃんと書いてくれ
TMediaPlayerだけMPlayに名前を変えてるけどw
TButton何個も載せるならわかりやすい名前を付けよう
ZoomButton とか UpdateButton とか
格段に読みやすくなる

528:デフォルトの名無しさん
13/11/13 21:15:19.15 .net
>>503
ありがとうございます。
以前お世話になりました。

大文字の問題は教えていただいた後に
拡張子のエラーなどの問題を解決するため
3~4回作り直しています。全部作り直ししました。

知人にインターフェースがわかりにくい
と指摘され作り直していたらコンパイルすらできなくなって
消しちゃったので教えていただいた頃のソースです。

ゴールについてですが、私がソフトに盛り込みたい内容で
私の宿題だったので、この点についても教えていただき
ありがとうございました。

タグについても、全部手打ちしなければならないと思っていたので
AudioInfoの情報ありがとうございます。早速調べてみます。

関連づけについては、コマンドラインオプションの実装と
フォルダー内のファイルを全て検出して読み出す必要があると考えています。

529:デフォルトの名無しさん
13/11/14 16:24:14.77 .net
>>503
ただいま確認できました。
onClickを選択してもonChangeになって
原因が分かるまで時間がかりました。

>TButton何個も載せるならわかりやすい名前を付けよう
コード補完と併せて勉強させていただきました。
ありがとうございました。

必要な機能を実装できるよう更に勉強いたします。

530:デフォルトの名無しさん
13/11/17 19:36:38.02 .net
十数年前までVB6で業務アプリを作っていました。
その頃delphiも少しやっていました。
最近になってまた業務アプリ(windows)を定期的に作ることになりました。
delphi、vb.net、python、java、c#、rubyなど、どれを使おうか悩んでいます。
皆さんのお考えをお聞かせください。
ちなみにvb6ではスパゲティープログラムを作ってしまう程度のスキルです

531:デフォルトの名無しさん
13/11/17 20:01:18.63 .net
>>506
業務アプリがどのようなものかによります。
社内で使うものでコマンドラインでいいなら適当なスクリプト言語を。
スクリプトでは都合が悪いなら Delphi がコンパイルも動作も速くてお薦めです。
売り物として作るなら GUI が必要になってくると思うので C# が一番。VB でも可。
.net を嫌う向きには VC++ のアンマネージドコードか Delphi の二択になります。
プラットフォームが Windows 限定ならわざわざ Java を選ぶことはありません。
私なら Perl と Delphi と VC# を適宜使�


532:「分けます。 スキルなんて少しでもやる気があればいくらでも伸びるので気にせず選びましょう。



533:デフォルトの名無しさん
13/11/18 11:05:40.05 .net
業務アプリ向けでこだわりが無いなら今ならC#一択でしょ?

534:デフォルトの名無しさん
13/11/18 18:06:28.92 .net
>>507,508
ありがとうございます。
C#はMS社の新技術にこれからどんどん付いていく自信がありません。
.net frameworkにも抵抗があります。
その点delphiはwinアプリは枯れているような印象があります。
oleオートメーションでwordやexcelを操作する予定です。
delphiはすべてのoleオートメーションの機能を使えるでしょうか?
また近年マイナーになっているのが気になります。

535:507
13/11/18 19:10:01.10 .net
>>509
お使いの Delphi がどこまで ole オートメーションに対応しているのかは存じませんが、そういう業務ならば Delphi でやってみれば良いと思います。
しかし MS 純正ソフト同士の方が色々と都合が良いのではないかと思うので、少しずつ C# にも触れて慣れていってはいかがでしょうか。
.net は近頃のマシンパワーならもたつきは気になりませんよ。

536:デフォルトの名無しさん
13/11/18 21:04:59.02 .net
>>510
ありがとうございます
その線で行きたいと思います
ただMS社のC#研修を受けたときにチンプンカンプンだったので苦労してもおぼえられるかなと思っています
また、.netは新しいWindowsが出るたびに.netのバージョンを上げないといけないようなイメージがあります
ところで今後のモバイル開発を考えた場合delphiがまた人気が出るような気もしますがFireMonkeyの完成度が高くないようであまりメジャーにはなっていないようですね
人気が出そうですかねぇ?

537:507
13/11/19 00:45:16.67 .net
>>511
うちの Delphi は 5Pro なので最近のことはわかりません。
ウェブ用にはメモ帳で Perl で CGI を書くくらいですね。

538:デフォルトの名無しさん
13/11/21 23:54:06.72 .net
>506
迷わずC#と言っておく。業務ソフトは性能よりも生産性重視すべきだから
OLEオートメーションとの相性も良好

VCLをある程度知ってるなら.NET Frameworkはすぐに身につく
…事情知らない奴はパクリにしか見えない位そっくり
Delphiがマイナーになっていくのも同じ事情

>.netは新しいWindowsが出るたびに.netのバージョンを上げないといけないようなイメージがあります
むしろそれはやらない方がいい。VS2005であと15年は戦える

539:デフォルトの名無しさん
13/11/22 01:48:34.30 .net
>>513
以前C#でexcel操作するサンプルコード見たことあるんだけど
オブジェクトの階層たどっていくのにいちいち
try{・・・}finary のネストが必要でこりゃ面倒だなと思ったんだけど
その辺は解消されてるの?もしくはそれがあってもC#のほうがいいの?
excelとか扱うならVBのほうがいいんじゃねえのと思ったりもするんだけど。

540:デフォルトの名無しさん
13/11/22 11:18:13.53 .net
C#ならusing?
VB.netはやめとけ

541:デフォルトの名無しさん
13/11/22 15:14:14.34 .net
>>514
C#は自身が持つGCとOLEの参照カウントは全く別物だから、
実質的に自分で参照カウントを操作する必要があって激しく面倒。
URLリンク(blogs.msdn.com)

VB(.netではない)やDelphiで自動化されてる部分をいちいち自前でやる必要があるから、
これら二つに比べたら圧倒的に使いづらく、これを相性がいいと言ってる人間がいたら頭がおかしい。

542:デフォルトの名無しさん
13/11/24 21:09:25.11 .net
>>503
レスありがとうございます。
wa


543:v再生系統を分離してちまちま作っていました。 TMediaPlayer.OnNotifyですが、 MediaPlayerに対して何かのイベントを起こして そのイベントが正常に終わったときに NotifyValueに成功の値が設定されるという 理解でよろしいでしょうか。 正常に終わったときにFileListBox内の 上下方向への移動をソフト内部でできるでしょうか? 無理矢理キー入力されたことにして動かす引かないのでしょうか? ファイルをあげています。 http://www1.axfc.net/u/3097406 DLkey:delphi またアドバイスをいただけないでしょうか。 よろしくお願いいたします。



544:デフォルトの名無しさん
13/11/25 13:40:33.02 .net
Notifyイベントで再生終了を知るためには、再生前にMediaPlayer1.Notify := false; しておく
Playの後でNotify := trueにすればいい そうじゃないとPlayイベントも受け取ってしまうから

with MediaPlayer1 do
begin
 FileName := FileListBox1.FileName;
 Notify := false;
 Open;
 Play;
 Notify := true;
end;

で、Notifyイベント側で次の曲をFileNameにセットすればいい

545:デフォルトの名無しさん
13/11/26 10:09:49.01 .net
>>518
ありがとうございます。
海外のNotifyの使い方を説明しているところを見ても
今ひとつ分からなかったのですが
解説していただいのでよくわかりました。

これが分かったので、今まで今ひとつだった
TMediaPlayerのプレイリストの意味が分かりました。
あらかじめカレントフォルダ内のファイルをプレイリストとして
読み込んでおいてトラックが終了したらNotifyを検出して
Nextすると言うことでいいでしょうか。

546:デフォルトの名無しさん
13/12/01 11:11:13.96 .net
>>518
ずっと次に渡すファイルを取得する方法を考えていましたが、
Notifyイベントを取得したらTMediaPlayerからFileListBoxの
カーソルを下にずらすようにすればいいのでしょうか?

ヘルプ見ても半分くらい空白なので困ってます。

547:デフォルトの名無しさん
13/12/01 18:27:47.51 .net
新規のテスト用のプロジェクトを作っておいて
新しいことを試すときはそちらでやってみるんだ
procedure TForm1.Button1Click(Sender: TObject);
begin
 if FileListBox1.ItemIndex=FileListBox1.Items.Count-1 then
  FileListBox1.ItemIndex:=0 else FileListBox1.ItemIndex:=FileListBox1.ItemIndex+1;
end;

548:デフォルトの名無しさん
13/12/01 19:10:08.93 .net
>>521
ありがとうございます。
ボタンの前曲、次曲の操作を実装することができました。

上下キーでFileListBox内のカーソルを動かす機能を
入れたときに何かから-1(+1)すればいいことは分かっていましたが、
ItemIndexはヘルプになかったので分かりませんでした。
このプロパティは一般的な命令なんでしょうか?

549:デフォルトの名無しさん
13/12/02 21:56:43.31 .net
TComboBox、TListBox、RadioGroup に共通のプロパティだ
Delphi5 か Delphi6 あたりのヘルプなら調べやすいんだけどね、どこかで手に入らんかな
で↑のヘルプなら「TFileListBox プロパティ」を開くと「TCustomListBox からの継承」で分類されて「ItemIndex」がある

「TFileListBox」でググると一番上に docwiki.embarcadero の「Vcl.FileCtrl.TFileListBox - XE2 API Documentation」がでる
そこのプロパティを見ても TFileListBox 固有のものしか書かれていないがコンポーネントってのは継承元のプロパティも使えるので
最初の Vcl.FileCtrl.TFileListBox ページの継承元のひとつである「TCustomListControl」を開いてみる
Vcl.Controls.TCustomListControl のプロパティにぽつんと一つだけ ItemIndex が出てくる

まぁこれじゃあ探せんわなぁw

550:デフォルトの名無しさん
13/12/03 08:34:52.71 .net
リストビューのコンポーネントにもあるよ つかリストにインデクスがあるのは当然の話で
インデクスのプロパティがあるはずだって探していくのがまっとうな手順

551:デフォルトの名無しさん
13/12/03 21:12:50.35 .net
オブジェクトの継承についてわかりやすいのがあった
URLリンク(codezine.jp)
これの 3 あたり

552:デフォルトの名無しさん
13/12/04 12:06:25.93 .net
初心者に当然とか言われましても…

553:デフォルトの名無しさん
13/12/04 21:20:57.51 .net
とあるリストのの禁書目録

554:デフォルトの名無しさん
13/12/15 10:34:36.44 .net
>>523
遅くなってすみません
>>522を投稿した後にRadioGroupにもItemIndexあったよなと思い
しばらくいじっていました。
意味は分かりますが理解するには時間が掛かりそうです。
若い頃に比べてやっぱり頭が固くなっているのを実感しています。

>>522で分かりましたと言ってから、そのファイルがなく
昨日までFileListBoxのカーソルが移動し続けて
タスクマネージャからソフトを止めないと終了できなくなったり
MCIのエラーが出てたりして途方に暮れていました。

ずっと4月の頃のログと最近のログを見ながら
いじり回してやっと>>239の意味が理解できました。

本題なんですが、いろいろいじってやっとボリュームコントロールが
実装できるところまで行きましたが、mp3だとボリュームコントロールが
できますがwavだとできません。
たぶんmp3で出ていたエラーの逆のことが起きているのではないかと思いますが
絞り切れていません。
もう一度ロダにあげます。ご指導いただけないでしょうか?
URLリンク(www1.axfc.net)
passはdelphiです。
よろしくお願いします。

555:デフォルトの名無しさん
13/12/15 10:41:18.68 .net
続き
delphi4からdelphi2010でもかなりインターフェースが変わって戸惑いましたが、
XE4になって更に分かりにくくなりました。

>>525
書き込みしていただいたときに見ました。
ほかの本だと結構苦労している部分でしたが
シンプルに書いてあるので分かりました。
理解するには自分でVCLを作らないと分からないんだろうなとは思います。

556:デフォルトの名無しさん
13/12/15 13:37:04.11 .net
Delphiってなんて読むんですか?

557:デフォルトの名無しさん
13/12/15 14:00:51.62 .net
>>530
「でるふぁい」。エンバカの人は「る」のとこにアクセントがくる読み方をしてる。

558:デフォルトの名無しさん
13/12/15 20:44:31.55 .net
Google 翻訳で発音してみる

559:デフォルトの名無しさん
13/12/15 21:09:08.87 .net
すまん、Delphi は ~Delphi5、2005、2007、2009 しか持っていないから
そのプロジェクトは開けない
sound.pas
Unit1.pas
をサラッと観たけど sound.pas はそのまま流用してる?
以前書いた「AudioInfo」はタグ表示くらいにしか使っていないがそこに入っていたのかな?

んで Wave の音量調節も最低限動くソース
(Vista 以前と以降ではちょっと条件が違うから XP ではダメかも知れない、いけるかも知れない)
・行数制限があるから二つに分ける
・半角空白二つを全角一つに置換してるので了承してくれ

  MediaPlayer: TMediaPlayer;
  TrackBar: TTrackBar;
  Button1: TButton;
  procedure Button1Click(Sender: TObject);
  procedure TrackBarChange(Sender: TObject);
---------------------------------------------
implementation

{$R *.DFM}

uses MMSystem{waveOutSetVolume に必要};

560:デフォルトの名無しさん
13/12/15 21:09:52.33 .net
//続き
var
 WaveDevID: Word;

//実際にVolumeをセットする手続き
function VolumeChange(Pos: Integer):Boolean; //Posはパーセント
var
 LV,RV: Word;
 dwVolume: DWORD;
begin
 LV := ($FFFF*Pos ) div 100;
 RV := ($FFFF*Pos ) div 100;
 dwVolume := (DWORD(LV) shl 16) Or RV;  {LとRの値を代入}
 Result:=waveOutSetVolume(WaveDevID, dwVolume)=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 with MediaPlayer do
 begin
  FileName:='E:\DATA\wave\KAYOWAI.WAV';//実際に存在するファイル
  Open;
  Play;
 end;
end;

procedure TForm1.TrackBarChange(Sender: TObject);
begin
 VolumeChange((Sender as TTrackBar).Position);
end;

561:デフォルトの名無しさん
13/12/15 21:54:07.91 .net
>>533
何度もお伺いして申し訳ありません。
hUnit1.pasはいつの間にか勝手に作ったファイルです。

本体はsound.pasです。
このファイルは以前見ていただいたソースから
3~4回作り替えています。
MCIのエラーやスキップするとカーソルが
勝手に動くようになったりしてま�


562:オた。 Delphi2010からXE4に移行したときにUsesが全部書き変わっていて 互換性がない(ように見える)とヘルプがVCLとFMXが混在していて VCLが異常に少ない感じです。 エラーの発生が新しく作り直すと出なくなったり。 ソースありがとうございます。 早速試してみます。 AudioInfoはしつこく探しましたがないようです。 ttp://yakki.digi2.jp/vobaudioinfo/でしょうか? タグに関しては、record型で作るという方法もありますが、 一回ソースを見ましたが途方に暮れています。



563:デフォルトの名無しさん
13/12/16 21:21:32.26 .net
>>535
AudioInfo はドメインもなくなってるみたいだから
「Delphi MP3ファイルのIDタグ」でググって出てきた
URLリンク(drang.s4.xrea.com)
URLリンク(drang.s4.xrea.com)
ここらへんで

564:デフォルトの名無しさん
13/12/17 22:29:08.65 .net
複数のユニットからインスタンスを共有したいときって
そのインスタンスをグローバルで生成してusesで参照するだけでも良い?
それともどこか基準になるユニットで生成してそれぞれのユニットに渡すほうが良い?

565:デフォルトの名無しさん
13/12/17 23:35:14.88 .net
好きなようにすればええ

566:デフォルトの名無しさん
13/12/18 12:01:44.89 .net
グローバルで作ったインスタンスは
他から参照する場合それっていう保証はないんじゃまいか

567:デフォルトの名無しさん
13/12/18 15:26:27.57 .net
お、おう

568:デフォルトの名無しさん
13/12/18 20:33:37.51 .net
LogList:TStringList
みたいなのなら普通にグローバル

569:デフォルトの名無しさん
13/12/19 08:50:32.92 .net
そのLogListを他unitから参照したときに、生成されたものだという保証があるのか知りたい

570:デフォルトの名無しさん
13/12/19 11:51:14.71 .net
ご冗談を(笑)

571:デフォルトの名無しさん
13/12/19 13:11:45.92 .net
initialization ?

572:デフォルトの名無しさん
13/12/19 13:50:39.91 .net
ALogList: TStringList;

function LogList: TStringList;
begin
if not Assigned(ALogList) then ALogList:= TstringList.Create;
Result:= ALogList;
end;

573:デフォルトの名無しさん
13/12/19 14:56:44.83 .net
インスタンスが生成されたかってのはAssignedでいいけど
例えば”何枚も同時表示することがあるForm2”のグローバルでLogList作ったら
どのLogListを指してるか分からないよね?

574:デフォルトの名無しさん
13/12/19 15:11:02.41 .net
それは設計がおかしい、という話にはならないの?

575:デフォルトの名無しさん
13/12/19 15:24:34.50 .net
それぞれのForm2のアドレスを保持しておいてTForm2(SaveP).LogListとかって
アクセスする。

576:デフォルトの名無しさん
13/12/19 15:41:44.44 .net
そもそも特定クラスの下にある変数をグローバル変数とは呼ばない

577:デフォルトの名無しさん
13/12/19 16:00:45.92 .net
>>546
それ、ただのメモリリーク

578:デフォルトの名無しさん
13/12/19 17:41:23.48 .net
1個のTStringListを使いまわすなら簡単な話だけど、「インスタンスを共有」の意味がわからない
継承とか参照はオブジェクト指向の用語だけど共有なんて聞き覚えがないぞw

579:デフォルトの名無しさん
13/12/19 22:29:31.58 .net
>>551
普通にある、君に知識がないだけだ。

「インスタンスを共有」と聞いたら
SingletonパターンやFlyweightパターンなど
少し知識がある人なら思い浮かべると思うが。

>>546
>インスタンスが生成されたかってのはAssignedでいいけど
クラスを生成したものがインスタンス。
インスタンスを生成することはない。

580:デフォルトの名無しさん
13/12/19 22:40:59.71 .net
なら最初からパターン名で伝えればいいじゃん
少し知識があるならそっちの方が伝わるでしょ
あとインスタンスが生成されたなんてのは逆に普通の言い回しで、そこに突っ込んでる意味が分からないけど?
ひょっとして馬鹿なの?

581:デフォルトの名無しさん
13/12/19 23:26:31.69 .net
>クラスを生成
これ、意味違わね?

582:デフォルトの名無しさん
13/12/20 00:37:16.19 .net
『クラスから(クラスの)インスタンスを生成』とは言うが、『クラスを生成』とは言わんな

583:デフォルトの名無しさん
13/12/20 00:59:26.00 .net
クラスのインスタンスを生成
インスタンスの生成
かと

クラスの生成
は変

584:デフォルトの名無しさん
13/12/20 04:13:22.53 .net
>>552
君の知識は少し足りなかったようだね^^;

585:デフォルトの名無しさん
13/12/20 15:17:06.4


586:2 .net



587:デフォルトの名無しさん
13/12/20 16:32:18.32 .net
>>552 はいいとして
>>546 みたいなことが想定されるなら
グローバルで共有はやめておけってことでおk?

588:デフォルトの名無しさん
13/12/20 16:57:39.38 .net
というか似たようなソフトのソース見つけてコピペってポンだろ。速攻できそう

589:デフォルトの名無しさん
13/12/20 19:13:17.81 .net
>>559
そんなことが想定されるようでは設計の段階でおかしい

590:デフォルトの名無しさん
13/12/20 19:33:23.67 .net
>>559はそう言ってるように思うんだがw

591:デフォルトの名無しさん
13/12/20 22:26:42.20 .net
>>556
日本語が変だぞw

592:デフォルトの名無しさん
13/12/20 22:54:38.34 .net
>>562
お前は日本語の読解力を身につけろw

593:デフォルトの名無しさん
13/12/20 23:00:56.43 .net
>>563
おまえの頭が悪すぎるだけかと

594:デフォルトの名無しさん
13/12/20 23:35:31.65 .net
あ、うん…
なんか触れちゃいけないところに触れちゃったみたいでごめん…

595:デフォルトの名無しさん
13/12/21 01:09:42.54 .net
バーーーーーカ

596:デフォルトの名無しさん
13/12/21 03:02:01.00 .net
そうですね

597:デフォルトの名無しさん
13/12/21 09:26:25.64 .net
頭の悪いレスって引くわw

一人で何を興奮してるんだ?

598:デフォルトの名無しさん
13/12/21 10:35:59.34 .net
>>569
お前は自分のレスにも引いてるってことか
大変だな

599:デフォルトの名無しさん
13/12/21 10:59:30.67 .net
>お前は自分のレスにも引いてるってことか
"にも"って、「自分も頭の悪い」という自覚はあるのか?

600:デフォルトの名無しさん
13/12/21 11:22:58.87 .net
的外れな質問を書き込む初心者の方が数段ましだよな。
概念とか定義とかいいから具体的にどうコードを書くのかと言う話をしようぜ。

601:デフォルトの名無しさん
13/12/21 15:53:12.48 .net
>>571
興奮しすぎて日本語が変だぞw

602:デフォルトの名無しさん
13/12/21 16:16:19.75 .net
ALogList: TStringList;

function LogList: TStringList;
begin
if not Assigned(ALogList) then ALogList:= TstringList.Create;
Result:= ALogList;
end;

603:デフォルトの名無しさん
13/12/21 19:17:21.95 .net
>>574
VCLがやっちゃってるからこういう書き方する人多いけど、実はLogList.Freeとされてしまった場合、
その確認もできない、インスタンスの再生成もできない、欠陥コードなんだよね
implementation内でTStringListを継承して、そのDestroyでALogListをクリアするように直せば多少はましになるよ

604:デフォルトの名無しさん
13/12/22 07:45:36.93 .net
>>VCLがやっちゃってるからこういう書き方する人多いけど、実はLogList.Freeとされてしまった場合、
>>その確認もできない、インスタンスの再生成もできない、欠陥コード
そんな事みんな気付いてるだろ。現状、そこまで厳密にやらなくてもいいと思ってるから、
上のコードですましてるだけで。

605:デフォルトの名無しさん
13/12/22 11:01:50.69 .net
listの使い回しとか持ち主がわからない作り方が欠陥

606:デフォルトの名無しさん
13/12/22 12:06:00.92 .net
CreateやFreeした相手が知りたければそういうクラスを作れば済む話

607:デフォルトの名無しさん
13/12/22 12:28:16.20 .net
何事も適材適所だよ。
1つのコードが全てのニーズに答えられるということはまずないし、
全てのニーズに答えられないからといって悪いコードというわけでもない。

608:デフォルトの名無しさん
13/12/22 15:42:43.85 .net
>>572
スイマセン。確かにそうなので

609:デフォルトの名無しさん
13/12/22 19:05:24.59 .net
ちょっと教えてください。

ポインタの有効/無効を判定する関数にAssignedってありますけど
これって (P <> nil) と同じですよね。

ポインタ変数自体が有効なデータを指しているかどうかを
判定する方法ってあります?

610:デフォルトの名無しさん
13/12/22 23:52:00.27 .net
通常のポインタであればAssignedと<> nilは同じ。
でもポインタが示している場所が有効かどうかを知る方法は一般的には存在しない。
Delphiならバッファオーバフローとかでポインタ変数の中身を吹っ飛ばしてしまったりしない限り
無効な場所を指すことはないしな。解放済のメモリへのアクセスはFastMMで検出できるかもしれん。

611:デフォルトの名無しさん
13/12/23 00:59:01.89 .net
>>575
これいいな
基本生成しちゃったらアプリケーション終了までメモリを占有されるけど、
これなら好きな時に


612:解放してもいいまた必要になれば使えるし



613:デフォルトの名無しさん
13/12/23 01:01:16.21 .net
>>581
そんな判定が必要になる方がおかしいので、
判定方法より設計を見直すことの方が大事

614:デフォルトの名無しさん
13/12/23 07:46:05.85 .net
Delphi6を使っているのですが、最新版のものがどれほど進化しているのか
気になっています。
(購入検討中)

1.VCLは充実してきていますか?
2.オンラインヘルプは親切になっていますか?
3.開発環境(IDE)はサクサク動きますか?

知っている方おりましたら教えてください。

615:デフォルトの名無しさん
13/12/23 08:34:52.83 .net
>>581
有効なデータとは何かをまずは定義してくれ。

616:デフォルトの名無しさん
13/12/23 08:35:07.43 .net
>>585
30日間フル機能のトライアル版があるから試してみたらいいじゃん

617:デフォルトの名無しさん
13/12/23 12:50:48.34 .net
そうですね。そうします。

618:デフォルトの名無しさん
13/12/24 14:21:09.90 .net
>>582
そうですか、やっぱり方法はないですよね。

>>584
おっしゃるとおりです。

619:デフォルトの名無しさん
13/12/26 07:00:48.71 .net
最新版はAndroidのネイティヴコード(ARM)が吐けるっていうからすごい進歩だと思う
ようつべにプレゼンの様子がある

620:デフォルトの名無しさん
13/12/26 14:44:09.25 .net
ただ動くのと実用的に使えるかは大違い。

621:デフォルトの名無しさん
13/12/26 16:40:12.52 .net
おっと、Xamarinの悪口はそこまでだ

622:デフォルトの名無しさん
13/12/29 22:17:38.31 .net
てか、オレなんか高くてProさえ買えない
いまだXE Starterでフリーソフト作ってる

Androidアプリを作るにはPro+アルファだろ
とても手が出せない

623:デフォルトの名無しさん
13/12/30 03:33:32.10 .net
>>593
来年末までの辛抱

624:デフォルトの名無しさん
13/12/30 21:57:20.31 .net
え?なんか出んの?

625:デフォルトの名無しさん
13/12/31 06:50:34.96 .net
オレなんか高くてXE Starterさえ買えない
Lazarus(FPC)でフリーソフト作ってる。
オレのやりたいレベルでは、機能的にほぼ不足はない。
パフォーマンスにはやや不満があるが。

626:デフォルトの名無しさん
13/12/31 19:01:08.90 .net
>>596
Lazarusはどのバージョン使うのがおすすめ?
うちで1.0.14とか1.2.0RC1使おうとするとまともにデバッグできんのよ。

627:喪中の名無しさん
14/01/01 02:44:09.95 .net
>>597
デバッグって、Andoroidのデバッグ?
ならAndoroid用の開発はしてないんで、わかりませんが。

こちらのいまのWin32用の開発環境は1.0.6(FPC2.6.0)です。Lazarus自体も安定してます。
別にこのバージョンにこだわってるわけじゃなくて、特に不具合もないので使ってるだけですが。
Win7に移行したあと、J++ランタイムとか入れるのが嫌だったのでTurbo Delから乗り換えて、
0.9.30辺りから常用していますが、私用であれば十分使いものになると思いますよ。

628:デフォルトの名無しさん
14/01/05 08:56:10.57 .net
すごいなこれ

629:デフォルトの名無しさん
14/01/05 16:33:51.89 .net
Delphi使いです。

Win32のGUIアプリを作る場合、Lazarusに対するDelphiのアドバンテージは何?

Wikiで調べる限り、Lazarusで十分でありDelphiのアドバンテージは無いように
思えるのですが・・・

630:デフォルトの名無しさん
14/01/05 17:43:05.75 .net
じゃあ実際に作ってみればいいんじゃない?

631:デフォルトの名無しさん
14/01/05 19:51:10.08 .net
インストールして学習して作成するのが大変なので、
識者にお聞きしているんですよ、クソガキ君。

632:デフォルトの名無しさん
14/01/05 19:53:26.25 .net
>>600
思ったとおりだよ

633:デフォルトの名無しさん
14/01/05 19:54:18.98 .net
Delphiのアドバンテージは日本語の情報が多いということぐらいかな

634:デフォルトの名無しさん
14/01/06 01:38:33.54 .net
>インストールして学習して作成するのが大変なので、
答え自分で出してるじゃん
自分の考えてることが自分で分からないとか病院行った方がいいんじゃないかな?

635:デフォルトの名無しさん
14/01/06 06:14:05.28 .net
>>603, 604 レスありがとう。 Webで拾ったソース付きのDelphi用コンポーネントをLazarusに インストールすることはできるのでしょうか?



637:デフォルトの名無しさん
14/01/06 07:49:06.09 .net
>>606
そのままではほぼできないと思って良いよ。
移植して腕を磨くのが吉。

638:デフォルトの名無しさん
14/01/06 18:43:00.61 .net
>>605
ここでは誰でもなりすまし出来るから

639:デフォルトの名無しさん
14/01/06 19:18:38.60 .net
>>607
そうですか。
移植したのがどっかのサイトに集まっていれば良いのにね。

640:デフォルトの名無しさん
14/01/27 14:00:12.68 .net
XE3 を買ってみました。
7 からの移行なので戸惑ってますが、
コードウインドウとフォームのウインドウは並べて表示って、出来無くなったんでしょうか?

641:デフォルトの名無しさん
14/01/27 14:45:07.87 .net
フローティングデザイナでググれ
それよりなんでわざわざ2世代も前のXE3なんかを買ったのかが知りたい

642:デフォルトの名無しさん
14/01/27 15:01:03.58 .net
単にXE5のtypoでしょう
XE3ってまだ買えるの?

643:デフォルトの名無しさん
14/01/27 16:43:44.64 .net
パッケージならまだ普通にあるんだが
Amazonでも売ってるし

644:デフォルトの名無しさん
14/01/28 00:37:22.78 .net
>611
どもども。
何とかなりました。

XE3 は ずいぶん前にヤフオクで、安かったので買いました。
Por が 4万弱でした。

645:デフォルトの名無しさん
14/01/28 20:47:12.12 .net
ぽぅっ!

646:デフォルトの名無しさん
14/01/29 01:10:57.60 .net
4万が安いとかいう金銭感覚

647:デフォルトの名無しさん
14/01/29 02:20:45.21 .net
貧乏人はMSの無料環境でも使ってればいいんじゃないすかね?(鼻ほじ

648:デフォルトの名無しさん
14/01/29 17:46:47.39 .net
ちょっとTPageControlのTTabSheetの色について教えてください。

TTabSheetの色って、昔はclBtnFaceだったと思うんですが
今は白色ですよね(Windowsのテーマに依存してる?)

TPanelなどのほとんどのコントロールは上に配置しても透過されて
背景が同じ色になるんですが、一部のもの(TLinkLabelとか)は
背景がclBtnFaceのままで、かなり違和感があります。

で、今はテーマのOn/Offを調べてColorプロパティを適当に
設定してますが、その時点でのTTabSheetの本当の色って
どこかから取得できます?

649:デフォルトの名無しさん
14/02/05 12:05:53.54 .net
質問です。
VB6のソースコードをDelphiのソースに変換してくれるいいツールをご存じな方はおられないでしょうか?
有料でもかまいません。
もちろん変換後に作業がたくさん発生することはわかっています。
VBto Converterを使ってみましたが、文字コードの影響か、ソースが途中で切れてしまいます。
書き直した方が早いというのももっともだと思いますが・・・

650:デフォルトの名無しさん
14/02/05 14:33:13.89 .net
書き直したほうが早い

651:デフォルトの名無しさん
14/02/06 01:43:18.94 .net
そういうツールをVBで作ればええやん

652:デフォルトの名無しさん
14/02/06 02:01:46.81 .net
>>619
有料で請け負うよ

653:デフォルトの名無しさん
14/02/06 07:44:34.44 .net
>>622
有料で請け負う場合は書き直すの?

654:デフォルトの名無しさん
14/02/06 07:48:35.80 .net
>>621
VB6で?
スレ的にはDelphiでなのでは?
っていうか、コンバーターは誰も使ったことないの?

655:デフォルトの名無しさん
14/02/06 12:16:20.90 .net
…馬鹿なの?

656:デフォルトの名無しさん
14/02/06 12:48:23.16 .net
>>619
コンバーターを利用するのもなかなか捨てたもんではないぞ。
VBto Converterの以前のバージョンは途中で切れていたが、最新版は途中で切れたりしなくてなかなかよい。
トライアル版は600行までっていう制限があるが、VB6のソースファイルを分割して別々に変換して後で連結すれば問題なし。
もちろん後で作業がいくつもあるのだが、スクラッチから始めるよりも楽だと思う。

657:デフォルトの名無しさん
14/02/06 13:55:02.39 .net
まさかの自演

658:デフォルトの名無しさん
14/02/06 14:40:25.82 .net
規模は?

659:デフォルトの名無しさん
14/02/06 18:39:06.45 .net
ロジックが長いプログラムだったら、コンバーター�


660:gう意味もあるかもな



661:デフォルトの名無しさん
14/02/06 20:41:46.64 .net
delphi to vb は有るが
bv to delphi 無い
今時ベンダーが依頼しない
個人の趣味はあるかもしれないが

662:デフォルトの名無しさん
14/02/07 04:40:09.93 .net
>>630
VB6だったらVBへの移行がベスト?

663:デフォルトの名無しさん
14/02/07 08:12:10.56 .net
死ねゴミ

664:デフォルトの名無しさん
14/02/07 13:04:25.23 .net
>>631
VBに移行するにしても普通書き直した方が早いな。
移行しないという選択肢があるならそのままVB6にしておけば?

665:デフォルトの名無しさん
14/02/07 13:20:13.00 .net
つうかVBスレで聞けよ

666:デフォルトの名無しさん
14/02/11 20:32:16.32 .net
プログラムなんてTK-80 BS BASIC以来なんで、今時の言語見てもじぇんじぇん分かりません。

そんな俺の野望はNゲージの電車をPCで動かすことなんですが、(DCモーターを
チョッパ制御するだけです)、DELPHIでUSBを制御するのはどうしたらいいんでしょ?

667:デフォルトの名無しさん
14/02/11 22:18:39.07 .net
単にUSBで通信するなら

WinUSB Interface for Delphi
URLリンク(sourceforge.net)

TWINUSB BULK通信コンポーネント
URLリンク(www.csd.co.jp)

このあたりかな。

668:デフォルトの名無しさん
14/02/12 17:33:58.54 .net
>>630
Delphi10年以上前にやってた者だけどDelphiってそんなに厄介者になってるのか…
VB.NETなんかデプロイがたいへんそうなんだけどな

669:635
14/02/12 18:32:23.49 .net
>>636
ありがとうございます。
でも、なんだか難しそうですね。上のは英語だし、下のは有料かぁ。。。
僕の想像では、Cの fprint の書式をうにゃうにゃするみたいな感じで、テキトーにI/Oにアクセス
できるのかなと思っていたのですが、ドライバを別に用意しないといけないのですか。
ハードル高いです。

>>637
delphiかっこいいと思うんですけどねぇ。なんで流行らないんだろ。

670:デフォルトの名無しさん
14/02/12 20:36:07.37 .net
CSDさんのは使うだけならただですが…(ソースは有償)。

VB6はどっちに行くにも変換じゃ済まないので不良資産化してますな。
Delphiはバージョンアップだけで基本的にそのまま動くけど。

671:デフォルトの名無しさん
14/02/13 00:18:30.15 .net
>>637
いいか悪いかという問題ではなく、VBを使える人間はいるがDelを使える奴がいないからVBに変換したいって会社があるってことだな

672:デフォルトの名無しさん
14/02/13 00:35:29.93 .net
>>638
Delphiが流行らないのは値段が高いし、迷走したし、知名度低いし、VB6ほど気軽に使えないし、コードの見た目良くないし。

673:デフォルトの名無しさん
14/02/13 00:57:59.42 .net
>>641
お前馬鹿? Delphi ほど美しいコードは他にないだろ?

674:デフォルトの名無しさん
14/02/13 02:58:40.54 .net
いまさらVB6とか老害すぎて乾いた笑いしか出ない

675:デフォルトの名無しさん
14/02/13 07:36:30.72 .net
>>642
どんなところが?

676:デフォルトの名無しさん
14/02/13 07:47:08.48 .net
とりあえずCの
i =2;
で代入はおかしい

677:デフォルトの名無しさん
14/02/13 10:42:04.59 .net
キチガイアンチは頼むからエンバカスレに引きこもってろよ
お前がいくら屑でも、最低限のルールくらい守れるだろ?
それともスレ違いかどうかも理解できないほど判断力が低下してるのか?

678:デフォルトの名無しさん
14/02/13 13:35:33.89 .net
>>646
なぜ流行っていないかということは超初心者の疑問だから扱ってもいいんじゃない?

679:デフォルトの名無しさん
14/02/13 14:32:50.10 .net
質問です
FireMonkeyのTFlowLayoutは横に並べるのはわかったんですが、
縦に順に並べるにはどうしたらいい�


680:ナしょうか? バージョンはXE5です



681:デフォルトの名無しさん
14/02/13 17:47:23.67 .net
というか流行る必要ってなくね?
むしろ流行ってほしくない

682:デフォルトの名無しさん
14/02/13 18:05:53.05 .net
流行りものをありがたがる男の人って…

683:635
14/02/13 18:59:12.40 .net
>>639
そうでしたか。じゃぁ、それを使ってみることにします。

>>641
素人さんなんで、CもPASCALも似たようなもんと思えてしまう^^;
プロから見れば違うんだろうけど。
とりあえず、Cの { } がヤなんですね。ミミズののたくったみたい。

684:デフォルトの名無しさん
14/02/13 20:20:41.03 .net
>>649
初心者としては個人や企業で使っている人が余りにも少ないと他の言語を覚えた方がいいのではないかと不安になります

685:デフォルトの名無しさん
14/02/13 21:21:10.59 .net
杞憂でしょう

686:デフォルトの名無しさん
14/02/13 21:25:39.88 .net
そうですか、安心しました

687:デフォルトの名無しさん
14/02/13 23:01:43.84 .net
利用者が少ないから使わないってくだらん
知名度を理由に貶す奴は頭弱そう

688:デフォルトの名無しさん
14/02/13 23:19:17.08 .net
>>652
その感覚は重要
使われてないのにはそれなりに理由があるからね

□産み出されたばかりで知名度が低くて使われていな場合
ドキュメントが少ない

□それそのものが糞だから使われていない場合


他にもあるだろうけど、良いものならみんなが使ってるよ

689:デフォルトの名無しさん
14/02/14 00:03:49.33 .net
なるほどね
じゃあ間違いなくこのスレのみんなが使ってるDelphiは良いものってことか

690:デフォルトの名無しさん
14/02/14 00:08:12.08 .net
Delphiは良いもの。はっきりわかんだね。

691:デフォルトの名無しさん
14/02/14 00:16:40.58 .net
そうですか、安心しました

692:デフォルトの名無しさん
14/02/14 00:19:07.86 .net
みんなが使ってるものだから安心感がある
理由なんてそれ以外全部後付け

693:デフォルトの名無しさん
14/02/14 00:19:47.57 .net
DelphiってWindows向けのソフトウェアしか開発できないんですよね?
これからはマルチプラットフォームの時代だと思うので、他の言語を覚えた方がいいのではないかと不安になります

694:デフォルトの名無しさん
14/02/14 00:23:42.50 .net
>>661
その感覚は重要
でも今はWindows以外にMac OS XやiOSにAndroidと、複数の環境へのクロスコンパイルに対応しているからね

□各OSで用意されている言語を使う場合
それぞれの言語を習得する必要あり、OSごとにアプリケーションを作り直さなくてはならない

□Delphiを使う場合
FireMonkeyというマルチプラットフォームに対応したフレームワークのおかげでワンソースでOK

他にもあるだろうけど、良いものだからみんなが使ってるよ

695:デフォルトの名無しさん
14/02/14 00:24:34.17 .net
マルチプラットフォーム対応=もっさりアプリだから使いたくない

696:デフォルトの名無しさん
14/02/14 00:25:20.98 .net
Javaのことですねわかります

697:デフォルトの名無しさん
14/02/14 00:39:22.48 .net
Cのソースきったなすぎて目が腐る
あの構文に何の疑問も感じない人間は美意識どうかしてる

698:デフォルトの名無しさん
14/02/14 00:52:39.86 .net
>>663
JVMはダメだよね
やっぱりネイティブじゃないと♪

699:デフォルトの名無しさん
14/02/14 05:00:38.64 .net
>>662
> 良いものだからみんなが使ってるよ
「良いもの」には同意だが、「みんなが使ってる」にははげしく同意できない。

700:デフォルトの名無しさん
14/02/14 05:03:38.96 .net
>>655
仕事で使うとなると、自分が異動した後のことを考えて、マイナーな言語は上司が避ける傾向にありますので不安です。

701:デフォルトの名無しさん
14/02/14 05:04:40.22 .net
>>656
Delphiはどういうことが原因で使われていないのですか?

702:デフォルトの名無しさん
14/02/14 05:16:46.85 .net
結局、Microsoft、Sun、IBMのように、開発ツール以外もビジネスをやっている会社が、
C#、VB、javaを推奨するものだから、総合力でDelphiはビジネス的に不利になったということですか?

703:デフォルトの名無しさん
14/02/14 08:04:25.76 .net
ヘジルスバーグ引き抜き

704:デフォルトの名無しさん
14/02/14 08:12:54.74 .net
Standard Pascal は糞だけど Object Pascal は最強

705:デフォルトの名無しさん
14/02/14 08:18:57.12 .net
プログラマにとって重要なものは言語ではなくセンスだ。

706:デフォルトの名無しさん
14/02/14 09:05:51.61 .net
Delphiが


707:使われていないのは良さを理解できない世の中が悪い



708:デフォルトの名無しさん
14/02/14 09:24:08.60 .net
また変な人が痛いDel厨を演じてるようですな

709:デフォルトの名無しさん
14/02/14 10:15:42.79 .net
C言語厨よりマシ

710:デフォルトの名無しさん
14/02/14 11:01:16.56 .net
Microsoftの資本が入ったときに落ちぶれていく施策を採用させられたからですか?

711:デフォルトの名無しさん
14/02/14 11:03:54.79 .net
ネイティブアプリは業務アプリには危険という認識が広まったというのも一因かな。

712:デフォルトの名無しさん
14/02/14 11:31:37.50 .net
iOS/Androidの同一ソース開発が安定するようになると、もう少しメジャーになるのでしょうか?
今のところ、モバイル開発者がDelphiをやり出したという話はほとんど聞きません。

713:デフォルトの名無しさん
14/02/14 13:15:08.47 .net
やっぱり会社が変わりすぎたのが敗因かな
多プラットフォーム対応も方針が変わりすぎた
MSが.NET以降に手間取ってる隙がチャンスだったんだけど、
.NET版Pascalとか出しちゃうしチャンスを逃してる

714:デフォルトの名無しさん
14/02/14 14:51:04.95 .net
いい加減そういうのはエンバカデロスレでやってくれ
ここは言語やライブラリの使い方に関する質問スレだ
そういう質問をする気も答える気もないなら消えてくれ

>>648
TFlowLayoutには縦に並べる機能はないが、TFlowLayoutをTFlowLayoutの中に横に並べて、
1つずつTFlowLayoutBreakをすれば擬似的に縦に並ぶようにはなる
あとはこちらでは試してないけど、こういったのを作ってる人もいるから参考に
URLリンク(delphihaven.wordpress.com)

715:デフォルトの名無しさん
14/02/14 15:06:07.62 .net
複数のPCに導入する予定のプログラムで、
自作フォーム上にPDFを表示したいのですが、何か方法はありますでしょうか?
わかる方がいましたらご教示願います。

716:デフォルトの名無しさん
14/02/14 15:23:59.49 .net
>>682
adobe readerインスコしてTWebBrowser(もしくはTEmbeddedWebBrowser)

717:デフォルトの名無しさん
14/02/14 16:47:30.43 .net
>>682
PDFの操作をしたかったり、Adobe Readerに依存したくなければ、
Active PDFのようなフリーのコンポーネントを使う手もあります。

718:デフォルトの名無しさん
14/02/14 19:59:13.01 .net
ありがとうございます。683さんの方法で何とか実現できそうです。
もうひとつ質問なのですが、PDFの1ページ目のサムネイルを得る方法はないでしょうか?
Acrobatや有料コンポーネントなどを買えば可能なようですが、
予算的に厳しいため、できれば無料か、高くても数千円で済むようだとありがたいです。

719:デフォルトの名無しさん
14/02/14 21:13:23.26 .net
TWebBrowerに一度表示させてスクショを取るとか(キャプチャはWinAPIで出来る)

720:635
14/02/16 22:44:03.94 .net
素人な質問でごめんなさい。

あの Type というのは一体どういうものなんでしょう?
Var とかぶってるところもあるし、なんかイマイチ分からないですね。

721:デフォルトの名無しさん
14/02/16 23:00:35.65 .net
型宣言と変数宣言

722:635
14/02/16 23:03:36.67 .net
>>688
ありがとうございます。
でも、その 型宣言 というのがイメージが湧かないんですよ。
解説本見てもちゃんとした説明がないですし。

723:デフォルトの名無しさん
14/02/16 23:09:47.31 .net
Varが 変数を宣言するのに使う。

Typeが、型を宣言するのに使う。
構造体や配列、レコード型など
ユーザーが型を作ることが出来る。

724:デフォルトの名無しさん
14/02/16 23:16:15.37 .net
>>689
6のマニュアル 
URLリンク(www.dotup.org)

725:デフォルトの名無しさん
14/02/17 22:19:19.71 .net
Delphiって関数を使うときにその関数の記述部分が前にないといけないと聞いたのですが本当ですか?

726:デフォルトの名無しさん
14/02/17 22:59:23.87 .net
定義か宣言のいずれかが必要です。Cのように暗黙に関数を仮定することはできませんが、
(Cのプロトタイプ宣言に相当する)前方宣言を用意しておけばOKです。

727:デフォルトの名無しさん
14/02/18 09:53:18.79 .net
Cでいうところのヘッダーファイルがひとつにくっついてる感じ

728:デフォルトの名無しさん
14/02/18 11:14:18.03 .net
forward宣言はpascal本来の文法にもある
unitのinterface部のところはDelphi/Turbo Pascalの拡張じゃなかったかな

729:デフォルトの名無しさん
14/02/18 15:31:54.07 .net
>>692
宣言が前方にある必要があるだけで、実装の記述が前方にある必要はないよ
ついでに言えば、実装の方は下記のように引数や戻り値を全部省略して書いてもいい

function Test(A, B: Integer; C: string = 'test'): string; forward;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage(Test(1, 2, '3'));
end;

function Test;
begin
 Result := 'hoge';
end;

730:デフォルトの名無しさん
14/02/18 16:23:26.69 .net
>>696
誰もhoge荒らしにきいてないんだからさっさと消えろよ

731:635
14/02/18 19:51:53.15 .net
>>690
うーん。なんだか分かったようなわかんないような(←ほとんど分かってない)
ま、構造体も配列もまだ使う予定ないから、わかんなくても良しとしよう!
それにしても、みんな何であんなの簡単に使いこなせるんですかねぇ。

>>691
これは良いモノを教えていただきました。ブックマークしときますね^^

732:デフォルトの名無しさん
14/02/19 12:00:39.71 .net
消えるのはお前だな > 697

733:デフォルトの名無しさん
14/02/19 14:36:03.86 .net
はい…

734:デフォルトの名無しさん
14/02/20 15:55:16.23 .net
C#のusingみたいな機能ってありませんか?

735:デフォルトの名無しさん
14/02/20 17:45:42.75 .net
つ try...finally

736:デフォルトの名無しさん
14/02/20 17:49:50.70 .net
C#使いが今頃Delphi触り始めるっていうのは、モバイル向けか?
悪い事言わんから、やめといた方が良いと思う

737:デフォルトの名無しさん
14/02/20 21:28:00.12 .net
>>702
C#のtry-finallyとusingは等価ではないんですが、Delphiでは同じなんですか?

738:デフォルトの名無しさん
14/02/20 21:35:18.01 .net
>>703
そうなんですか?
資料は少ないですが、例えばHello wordlを作ってデプロイして起動するまでは
他の環境よりかなり楽だったので、普及して本とか増えてくれたら結構いいとこいくと思います

739:デフォルトの名無しさん
14/02/20 21:37:41.71 .net
>>704
usingそのものはないよ。

740:デフォルトの名無しさん
14/02/21 16:16:05.13 .net
>>703
なぜ?

741:デフォルトの名無しさん
14/02/21 16:36:56.94 .net
エンバカと一部ユーザー?が喧伝してる夢物語が実現するとは到底思えないから
Delphi,VCL,C++Builderは本当に素晴らしい物だと思うが、エンバカになってからの
状況見てると何も明るい材料が無い
俺はVCL,C++Bulder使いだから知らないだけかもしれないが、Delphiの方はそんなに良い状況なのか?

742:デフォルトの名無しさん
14/02/21 16:40:52.51 .net
エンバカスレは別にあるからそっち行ってくれ

743:デフォルトの名無しさん
14/02/21 16:42:59.99 .net
WindowsとLinuxで同じ事が出来なかった人達に、
iなんたらとAndroidなら同じ事が出来ると思うのか?
今のIDEの出来も、もうEclipseには置いて行かれている

744:デフォルトの名無しさん
14/02/21 18:55:34.45 .net
>>708>>710
関係ない話題を繰り返したいのであれば出て行ってください
あなたがどう思うかはこのスレには関係ありませんのでチラ裏か以下のスレでどうぞ
スレリンク(tech板)


次ページ
最新レス表示
レスジャンプ
類似スレ一覧
スレッドの検索
話題のニュース
おまかせリスト
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch