【Delphi互換!?】FreePascal/Lazarus その2【GPL】

**デフォルトの名無しさん** · 2014/11/07(金) 22:39:51.91

>>502
およ…そんな方法が…
サンクス

もっと色々勉強して頑張ってみますね
アホみたいに初心者じみた質問をするかもですが…
（家の何処かに古いDelphiの本が積ん読になってたかも）

**デフォルトの名無しさん** · 2014/11/08(土) 08:03:23.71

>>503
伝統的PascalならともかくDelphiで拡張されたPascalは
Cの便利な機能を色々取り入れてるから
慣れるとCより開発効率よいよ。がんがれ。

**デフォルトの名無しさん** · 2014/11/08(土) 12:23:06.49

>>504
ありがとうございます。
率直に嬉しいです。

2chというと、罵り合いとか「スレチ出てけ」とか、殺伐とした所がすごく多い印象なんですけど
色々と独力で調べつつ、分からないことがあったらまた質問に来るかもですが…。

チュートリアルとか型の仕様とかも含め、初歩的なところを公式wikiなどを見て試行錯誤してみますね。
「…書庫のすみっこにDelphi 5の本があったけど、15年前の本だった…型も色々違うっぽい…int64とかCurrencyって何処？」って現状ですけどね。

**デフォルトの名無しさん** · 2014/11/09(日) 08:33:40.35

>>505
個人的には他人のコードを解析するのが一番勉強になるな。
PeaZipとかBeer Media Server とかソース公開されてるLazarus製のソフト探すのもいいかも。

**デフォルトの名無しさん** · 2014/11/09(日) 11:17:05.69

個人的には他人のC++で書かれたソフトのPascalへの移植が一番勉強になったわ

**デフォルトの名無しさん** · 2014/11/09(日) 12:58:46.10

あるある、vb.netからc#の移植でc#覚えたとかw（vb/tb.net未経験

**デフォルトの名無しさん** · 2014/11/09(日) 13:50:11.47

>>495 です。実践的な御助言の数々、感謝します。
ちまたにある、ソース公開されているソフトをいくつか当たってみますね。

個人的には、画像ファイルに矩形選択して、その部分を白で塗りつぶすだけのシンプルなソフトを組みたいのですが
分からないことだらけだしGIMPは大げさだしと悩んでいた所なので、そういう「自分の必要なものを作る」でも良いのかな…？

何にせよ、もうちょっと試行錯誤してみます。

**デフォルトの名無しさん** · 2014/11/22(土) 06:32:38.76

>>495 です。
あれから時間を見つけては色々チョコチョコとFree Pascalでコード書いてました。

調べたら正規表現のライブラリもあるようで、下手にスクリプト言語をいじるより便利かも…？
windows環境にPerlやruby入れても良いんでしょうけどね（なおrubyは未経験者）。

なおネットブック(Windows7/8は正直ムリ)にはLubuntuを入れてあるのですが
何だかんだで結局公式debパッケージのFree PascalとLazarusを入れました。
公式のUbuntu系リポジトリからのインストールもしてみたのですが、若干バージョンが古かったので。

同じ処理をCとrubyとFree Pascalで書き比べるのも面白いかも…？
Linuxならglibがあるので、Cでも文字列操作も楽ちん…かな(リンクの仕方が分かってないけど)

**デフォルトの名無しさん** · 2014/11/23(日) 14:57:03.34

DLした
DOS時代のTurbo Pascalの例題とか動くんだろうか

**デフォルトの名無しさん** · 2014/11/24(月) 18:52:11.95

殆ど動くんじゃないかな

**デフォルトの名無しさん** · 2014/12/16(火) 07:55:10.96

Lazarus on Raspberry Pi
ttp://wiki.lazarus.freepascal.org/Lazarus_on_Raspberry_Pi

**デフォルトの名無しさん** · 2015/02/01(日) 08:19:46.08

Pascal to Php Transpiler
ttp://www.wascal.net/pas2php/

**デフォルトの名無しさん** · 2015/03/04(水) 23:25:39.33

なんか今開発中のver2.7系って結構最適化良いみたいじゃん
ビルドするのめんどうそうなので正式リリースでインストーラー
できたら呼んでくれ
いつ頃リリース予定かわかる？

**デフォルトの名無しさん** · 2015/03/05(木) 07:34:30.55

FPCは人手不足らしいから正式リリースは相当先だと思う。
Lazarus trunc + FPC3.0.1 win32 のインストール用exeでよければ
すぐにアップできるよ

**515** · 2015/03/05(木) 10:19:36.70

過疎からのまさかの返信ありがとうございます。
ありがたいのですが、お手数掛けますし64bitが目当てなので、
しばらくはDelphiで頑張って気長に待ちます。

**デフォルトの名無しさん** · 2015/04/24(金) 15:29:52.52

1.4 来た。

**デフォルトの名無しさん** · 2015/07/03(金) 08:51:09.36

lazarus 1.4 x64版なんだが
単にTMemo貼り付けただけのアプリケーションでも
日本語変換ソフトを起動すると例外吐いて落ちる･･･

なんかバグがある様子。

**デフォルトの名無しさん** · 2015/07/06(月) 20:53:08.91

で、その日本語変換ソフトはなに使ってるのさ？

**デフォルトの名無しさん** · 2015/07/08(水) 18:18:12.09

>>519
ATOK2015 (win7 x64)
先程32ビット版で試してみるとこっちは落ちない。

64ビット版で、他の日本語変換ソフトでは落ちないのかな?

**デフォルトの名無しさん** · 2015/07/08(水) 19:37:52.74

imm32には一応対応してるけどTSF対応が不十分とかそんなんじゃないの？とかなにも考えずに思った

**デフォルトの名無しさん** · 2015/07/09(木) 07:28:02.82

>>521
標準のIMEだとどうなの？
大丈夫ならATOKのせいということになる。

**デフォルトの名無しさん** · 2015/07/09(木) 23:10:19.65

>>522, 523
MS IMEだと落ちないね。Googleは試してない。

前のバージョン(1.2.6)のLazarusでビルドしたものは大丈夫なんだよ。
これ誰かバグ報告して･･･
俺英語ある程度は読めても書くのは全く出来ないんで細かいニュアンスが伝えられない

**デフォルトの名無しさん** · 2015/07/10(金) 07:56:14.83

ATOKとか外人がもってる可能性はとてつもなく低いから
パッチを上げるとかするのが現実的だと思うよ

**デフォルトの名無しさん** · 2015/07/10(金) 08:55:23.97

javascriptで変換させてるgoogleは偉大だな

**デフォルトの名無しさん** · 2015/07/10(金) 09:50:27.09

もっといえば、英語が苦手でも
具体的にソースコードを示せば伝わる。
プログラミングも苦手なら正座してじっと待つしかない。

**デフォルトの名無しさん** · 2015/07/10(金) 12:46:12.41

そんなん正座してても無理やろ
日本語でリクエスト書いて英訳・校正してくれと頼むくらいのものや

まあATOK側にクレーム上げるのが見込み高いんじゃないの

**デフォルトの名無しさん** · 2015/07/10(金) 13:54:15.03

しゃあない、自分で解決するわ

**デフォルトの名無しさん** · 2015/08/12(水) 23:09:53.16

arm-wiceじゃなくてarm-win32なfpcって作れるんかな
Windows IoT Coreで遊べるか気になる

**デフォルトの名無しさん** · 2015/08/24(月) 06:05:49.25

>>519
>>521
>>524
一応バグトラッカーに報告しておいた。

**デフォルトの名無しさん** · 2015/08/24(月) 10:58:09.08

>>531
乙です

**デフォルトの名無しさん** · 2015/09/08(火) 14:43:52.31

Free Pascal 3.0 rc1 is out!

**デフォルトの名無しさん** · 2015/10/15(木) 07:55:04.87

Lazarus 1.4.4 is out!

**デフォルトの名無しさん** · 2015/10/17(土) 09:09:22.43

FPC3.0.0のUtf8Encode関数はバグが有りますね。
バグトラッカーには上がってるのにRC2でも何故か治ってない。
Utf8Encode使ってるParamStrUTF8などのLazUTF8系は全滅です。

**デフォルトの名無しさん** · 2015/10/23(金) 10:57:07.24

win7 64

1.4.4(x64)にして見たんだが
ファイルを開くのダイアログでファイルやフォルダー上で右クリックすると落ちるのって前から？
あるいはこっちの環境ですかね？

別にダイアログ内でついでに名前変更とか変なことしなきゃ良い話ではあるんだが
※ちなみにF2キーで試したら名前変更は出来る模様

**デフォルトの名無しさん** · 2015/11/12(木) 17:58:47.74

TButtonの背景に色をつけたいと考えています。

http://wiki.lazarus.freepascal.org/TGradButton
を使えば色をつけることができそうですが、インストールの仕方がわかりません。
お手数ですが教えて下さい。

手元にあるDelphiはバージョンが古く、TButtonに対応してませんでした。

**537** · 2015/11/12(木) 21:19:14.36

自己レス。
TGardButtonのインストールに成功しました。
すみません。

**デフォルトの名無しさん** · 2015/11/13(金) 08:00:12.54

おめ。

**デフォルトの名無しさん** · 2015/11/16(月) 10:05:25.71

svnにFPC 3.0.0のリリース用タグが作成されたぬ

**デフォルトの名無しさん** · 2015/11/17(火) 08:09:59.02

CodeTyphonユーザーおる？

**デフォルトの名無しさん** · 2015/11/17(火) 20:20:20.59

LazToApkでapkファイルができた方いますか。
ライオンのマークのprojectというタイマーアプリはできたのですが、自分で作ったもので動きません。

**デフォルトの名無しさん** · 2015/11/18(水) 13:04:04.89

http://wiki.lazarus.freepascal.org/Custom_Drawn_Interface/Android/ja
これを見てコンパイルに成功したのですが、パッケージにエラーが出てインストールできませんでした。
ちなみにボタン一つの簡単なものです。
どなたか正常に動いた方いますか。

**デフォルトの名無しさん** · 2015/11/18(水) 19:33:31.16

そう言うときはエラーを書けよ

**デフォルトの名無しさん** · 2015/11/18(水) 19:33:44.71

そう言うときはエラーを書けよ

**デフォルトの名無しさん** · 2015/11/18(水) 19:39:31.21

解析エラー
パッケージの解析中に問題が発生しました。
とでました

**デフォルトの名無しさん** · 2015/11/19(木) 07:48:44.19

>>542
ant ではできる？

**デフォルトの名無しさん** · 2015/11/19(木) 10:34:58.30

>>547
詳しいことはわからない
project.apkができて、その中にタイマーアプリがあるだけ。
そもそもLazToApkでは自作アプリは作れないのかな?

Lazarusでandroidを作れた方に、方法をお聞きしたいくらいです。

**デフォルトの名無しさん** · 2015/11/19(木) 11:33:15.97

>>548
http://wiki.lazarus.freepascal.org/Custom_Drawn_Interface/Android/ja
うちでは通りにやれば作れたよ。compiler option は見なおす必要があったけど

**デフォルトの名無しさん** · 2015/11/19(木) 16:17:33.39

>>549
ありがとう
少し前にそのwikiのいくつか修正して、successになってapkファイルはできた。
でもインストールで引っかかって、本当にコンパイルできているのは疑問だったけど、できるようなのでもう一度環境を変えて挑戦してみます。

**デフォルトの名無しさん** · 2015/11/19(木) 16:33:05.27

so ファイル（WindowsでいうところのDLL）がきちんと作成されるかと
apkファイルがきちんと作成されるかは分けて考えたほうがいいよ。
apkファイルはzipファイル＋αにすぎないものだし。

**デフォルトの名無しさん** · 2015/11/20(金) 03:33:46.01

北陸にあるOSX用lazarus1.4.4 壊れてない？

**デフォルトの名無しさん** · 2015/11/20(金) 14:23:09.55

NAISTンゴωωωωωω

**デフォルトの名無しさん** · 2015/11/21(土) 07:29:27.27

TPanelかそれに代わるもので、Captionを2行にする方法はありませんか。
難しすぎて正規表現を扱うのは無理でした。

**デフォルトの名無しさん** · 2015/11/30(月) 09:54:05.89

Pascal eXtended Library
ttp://www.afterwarp.net/products/pxl

作者はエンバカデロでFMのリーダーだった人みたい。期待大。

Tulip UI（ttp://tulip-ui.azurewebsites.net/）
をLazarusに移植する予定もあるらしい。

**デフォルトの名無しさん** · 2015/12/10(木) 02:50:32.38

かなり初歩的な質問ですみません

Free Pascalで

Program LazMessage;
Uses Dialogs;
begin
ShowMessage ('これは Lazarus からのメッセージです')
end.

をコンパイルしようとしても
Identifier not found "ShowMessage"
などのエラーが出ます。
どうすればいいのでしょうか？

**デフォルトの名無しさん** · 2015/12/10(木) 04:05:02.57

コピペしたら動かなかった分かる

Lazarusがインストールされているか確かめる
コンソールアプリになってないか確かめる

このあたりじゃないかと思う

**デフォルトの名無しさん** · 2015/12/10(木) 04:16:38.56

Lizarusというものが必要だったんですね

**デフォルトの名無しさん** · 2015/12/10(木) 11:35:07.41

Linux の IDE 事情を見てみようと思っていくつかの特集ページ見てみたけど、
ことごとく Lazarus はハブられてて腹が立つ。
まー言語仕様も古臭いけどさー。
変数のスコープを縮めるような取り組みはないのかね。

**デフォルトの名無しさん** · 2015/12/10(木) 11:46:08.86

言語？
Pascalは古臭いけどDelphi言語？Object Pascal？は別に古臭くないと思うよ。
デレゲートとかむしろJavaの方が混乱してる感じだし。
無名関数とかクロージャーとかもそのうち実装されるだそうし。

変数スコープを縮めるってのは例えばforループ内でのみ有効なローカル変数が欲しいとかそういうこと？

**デフォルトの名無しさん** · 2015/12/10(木) 12:43:48.35

OpenJaneをコンパイルしようとしてPascalに触れてみてる

**デフォルトの名無しさん** · 2015/12/10(木) 13:51:45.92

ラザルス/パスカルの入門用の日本語の書籍ってある？

**デフォルトの名無しさん** · 2015/12/10(木) 13:51:47.70

lazarusでopen janeをコンパイル出来ませんか？

**デフォルトの名無しさん** · 2015/12/10(木) 16:05:19.78

>>562
パスカル言語自体の入門なら、古いDelphi用の書籍を図書館で借りたり
古本屋でゲットすれば十分だと思うよ。
stringがUTF16でなくUTF8だというのさえ気をつければ
なんとかなると思うよ。

IDEの使い方の入門は、DelphiやVS C#などのIDE使ったことある人なら
適当に触ってるうちになんとかなると思うよ。

**デフォルトの名無しさん** · 2015/12/10(木) 16:13:28.25

>>563
修正無しでコンパイルはできないと思うよ。
でもC++から移植するよりは絶対楽だから勉強のつもりで移植してみるのはいいかもね。
他人のコードを見るのが何よりも勉強になるし。

ちなみに今からラザロで新規プロジェクト作るなら先日出たばかりの
Lazarus 1.6RC1 で作り始めたほうが絶対によいと思うよ。
FPC 3.0、特にコードページ文字列型にフル対応してるから。

**デフォルトの名無しさん** · 2015/12/10(木) 18:08:42.14

>>560
ああ、古臭いは言い過ぎかもしれない。

> 変数スコープを縮めるってのは例えばforループ内でのみ有効なローカル変数が欲しいとかそういうこと？
そうそう、使う直前での定義とかそんなの。先頭に戻るのがめんどいような長い関数は書くなって思想かもしれないけど。
あと、最近はやり (？) の型推論とか。

**デフォルトの名無しさん** · 2015/12/10(木) 18:26:06.61

>>566
＞そうそう、使う直前での定義とかそんなの。
確かにC++で取り入れられたときはうらやましかったけど、
今はエディタが発達して自動定義とかしちゃうからな～
見込み薄かもね。
そういえばbegin 、end、then とか打つの面倒とかいう意見も昔はあったけど
エディタが自動入力しちゃう時代だしね～

型推論はジェネリクス絡みでそのうちある程度はできるようになるだろうね。
まあスクリプト言語じゃないので、実行速度を犠牲にしてまではできない
という限界はあるだろうけど。RTTIみたいに、便利だけど組み込むと重くなる
みたいなのもあるから。

**デフォルトの名無しさん** · 2015/12/11(金) 07:39:54.62

>>567
> そういえばbegin 、end、then とか打つの面倒とかいう意見も昔はあったけど
自分は Shift + ホームポジションから離れたカッコを多用する C 系よりはアルファベットで begin end 書く方がいいな。
仕事ではどうしても C 系の言語が多いので慣れてしまったが。

型推論は、var で型を指定しておいて、.Create だけで生成できるとかが Pascal 的なような気がした。

**名無しさん＠そうだ選挙に行こう** · 2015/12/14(月) 16:02:55.66

Lasarus 1.6 では component/googleapis なるものがあるな

**デフォルトの名無しさん** · 2016/01/06(水) 09:53:07.11

CustomDrawnをインストールし、ボタンなどを配置してみましたが、どれもコンパイルが通りません。
1.4.4、1.6RCもダメでgithubの最新版も通りませんでした。
OSはWindows7です。
カラーボタンを使いたいのでCustomDrawnが良いのですが、使えた方いますか。

**デフォルトの名無しさん** · 2016/01/06(水) 14:08:20.57

確か最近修正があった気がするからtruncでないとだめかも。

＞カラーボタンを使いたい
ほんとにそれだけの理由なら標準のウィジェットでもできるよ。
CustomDrawnだと日本語入力とかできないしデメリットのほうが多い気がする。

**デフォルトの名無しさん** · 2016/01/06(水) 15:40:56.45

>ほんとにそれだけの理由なら標準のウィジェットでもできるよ。
どのコンポーネントでできるの？

今のところCustomDrawnで日本語を使う予定がないので、英語でも良いんですけどね。。

**デフォルトの名無しさん** · 2016/01/06(水) 21:17:50.57

BGRA Controlでできたからこれでいいや。
ありがとう。
あとはCaptionを２行にする方法を考えねば。
TButtonでは２行にできたけどね。

**デフォルトの名無しさん** · 2016/01/07(木) 08:13:29.34

今が一番楽しい過程だね。
すぐにできると思うから頑張れ！

**デフォルトの名無しさん** · 2016/01/07(木) 12:19:25.71

IDE は一つのウィンドウにして欲しいな。
複数開いてそれぞれのモニタにとかいうのが気軽にできん。

**デフォルトの名無しさん** · 2016/01/07(木) 14:33:28.16

やったことないけどドッキングに対応してたはずだよ。

**デフォルトの名無しさん** · 2016/01/07(木) 23:00:29.83

えー、そうだったっけ。
またそのうち調べてみよう。

**デフォルトの名無しさん** · 2016/01/09(土) 19:57:11.08

ドッキングで検索するとすぐに出てくるよ。
慣れたこともあるけどでもすぐに戻した。

だんだん、delphiよりも使いやすくなってきた。

**デフォルトの名無しさん** · 2016/01/14(木) 15:35:51.69

laztoapkで教えて下さい。
Windowsでプログラムができあがってandroidでもと思い、laztoapkでAPKを作ったのですがタイマーアプリなってしまいます。
テンプレートから読んできているようなので、そこを変更しようと思いましたがわかりません。
どのファイルを修正したらよいでしょうか。

**デフォルトの名無しさん** · 2016/01/18(月) 12:55:25.72

日本語でおｋ

**デフォルトの名無しさん** · 2016/01/23(土) 20:47:52.62

androidの簡単なプログラムを作っています。
wikiを見ながらsoまでできたのですが、次にどうしたらいいのでしょうか。
見本のプロジェクトをいただけるとうれしいのですが。

**デフォルトの名無しさん** · 2016/01/24(日) 18:48:57.02

apkを作る

**デフォルトの名無しさん** · 2016/01/24(日) 20:21:03.36

真面目に頼むよ～～

**デフォルトの名無しさん** · 2016/01/25(月) 11:20:48.12

というかsoできたならあとは言語関係ない
（Lazarus特有の問題はない）よね。

**デフォルトの名無しさん** · 2016/01/25(月) 13:20:14.70

soだよ

**デフォルトの名無しさん** · 2016/01/26(火) 10:02:27.99

soですね

**デフォルトの名無しさん** · 2016/02/05(金) 20:11:14.14

やっとandroidにコンパイルできた。
javaの事はさっぱりわからんから、作れただけでもよしとするか。
TButtonの背景は、やっぱり色が付かないね。

**デフォルトの名無しさん** · 2016/02/06(土) 12:08:28.51

TButtonがWindowsのボタンコントロールを使用しているので
ボタンの色はWindowsが決定してしまうからどうにもならない
という問題だったキガス。
というわけで既出のとおりWindowsのボタンコントロールに依存しない
カスタムボタンを使用するしかない。

**デフォルトの名無しさん** · 2016/02/06(土) 13:23:20.11

android用にコンパイルしたら変わると思ったけどダメだね。

**デフォルトの名無しさん** · 2016/02/10(水) 14:34:11.58

Lazarusでandroidの簡単なプログラムを作成しています。
動作を遅くするための遅延をかけたいのですが、Windowsにコンパイルすると正常に動くものの、androidではウエイトタイマーが働きません。
サンプルをネットから持ってきて試しましたが、全部動きませんでした。
簡単でいいので教えてください。

**デフォルトの名無しさん** · 2016/02/11(木) 10:24:59.82

>>590
sleep でだめなの？

**デフォルトの名無しさん** · 2016/02/11(木) 12:33:39.96

ダメだった。delayもダメ。
mmsystemも使えないし。
タイマーコンポーネントなしで書きたいんだけど、うまくいかない。

**デフォルトの名無しさん** · 2016/02/11(木) 18:10:17.22

はまり込んだけど何とか遅延タイマーできた。

**デフォルトの名無しさん** · 2016/02/17(水) 12:13:38.47

うちではsleepで無問題だが。
unit単位で関数が重複してんじゃね？

**デフォルトの名無しさん** · 2016/02/20(土) 14:06:46.13

androidアプリで教えてください。
マルチタッチはできますか。あるボタンを押しながら、別のボタンを押す処理をしたいのです。

それからもう一つ、アプリ終了の処理でcloseやterminateでは終了できませんでした。できる方法がありましたら教えてください。

**デフォルトの名無しさん** · 2016/02/21(日) 21:40:45.15

数枚の画像を埋め込んでパラパラ変えるようなプログラムを考えています。
JPG画像の埋め込み方を教えて下さい。

**デフォルトの名無しさん** · 2016/02/22(月) 09:15:50.74

色々なやり方が考えられるが $R でリソースに取り込んで
LoadFro,Resourceとかで読み込むというのが簡単じゃね。
基本は同じだからDelphiの超初心者スレで聞いてみれ。

**デフォルトの名無しさん** · 2016/02/22(月) 12:55:01.70

>>597
ありがとう。
lrsエクスプローラで1つにまとめてできた。
delphiと微妙に違っていて苦労した。

**デフォルトの名無しさん** · 2016/02/25(木) 04:57:55.42

おいおいおいおい、いつの間にか1.6出てるじゃんよ。
書き込んでくれないから、気付くの遅れたよ。

**デフォルトの名無しさん** · 2016/02/27(土) 20:07:48.97

最近インストールしたばかりだが
よく出来てるねこれ

**デフォルトの名無しさん** · 2016/02/29(月) 22:38:02.78

Laz 1.6.0 + FPC 3.3.0 を Windows にインストールしました。
FPC3 ではこれが通るのかと思っていたら動作しませんね。

var
s: UTF8String;
begin
s := '123あいうえお456';
ShowMessage(Copy(s, 5, 3));
end;

従来の
uses LazUTF8

ShowMessage(UTF8Copy(s, 5, 3));
は使えるけど。

**デフォルトの名無しさん** · 2016/03/01(火) 08:16:01.11

Copy、Insert、Delete、Lengthなどの伝統的関数（手続）が
要素単位（ANSIやUTF8ではバイト単位、UTF16ではワード単位）を
基準にするというのは永久不滅かと。

**601** · 2016/03/02(水) 21:07:51.79

それはどうですかね。
引数に文字列リテラルか定数を渡せば期待する動作をしますが変数では駄目なのです。

**デフォルトの名無しさん** · 2016/03/02(水) 21:45:17.29

「通る」「動作しません」「使える」「期待する動作」「駄目」などの
曖昧な言葉が多くてよくわからんな。
少し整理して機械翻訳でもいいから英語にして本家のフォーラム
で質問すると中の人が返事をくれると思うよ。

**デフォルトの名無しさん** · 2016/03/03(木) 01:14:14.44

コンパイルのタイミングで、リテラルはAnsiStringとして評価、文字列定数はおそらく最適化によりAnsiStringにでもなったんじゃないの、なんとなくだけど。

**デフォルトの名無しさん** · 2016/03/03(木) 01:19:05.87

文字列定数、

const AAA = 'foo';

としてれば、最適化うんぬん関係なく、AnsiStringとして評価されそう。

一方、

const BBB: string = 'bar';

だと、変数と同じ結果になりそう。
(今手元に環境ないから試せない)

**デフォルトの名無しさん** · 2016/03/03(木) 10:25:00.04

型なし文字列定数のコードページはCP_NONE？

**デフォルトの名無しさん** · 2016/03/11(金) 18:06:14.35

Lamw: Lazarus Android Module Wizard
ttps://github.com/jmpessoa/lazandroidmodulewizard

既に使ってみた人いますか？

**デフォルトの名無しさん** · 2016/03/14(月) 10:19:13.12

>>601
改めて試したけど、そもそもうちでは

var
s: UTF8String;
begin
s := '123あいうえお456';
ShowMessage(s);
end;

で「あいうえお」部分が文字化けする。
s: string;
にすると文字化けしない。
ShowMessageがUTF8Stringに対応してないんじゃあるまいか。

**デフォルトの名無しさん** · 2016/03/14(月) 10:21:34.75

>>607
ShowMessage(IntToStr(StringCodePage('あいうえお')));
で0と表示されるからCP_NONEみたいだ。

**デフォルトの名無しさん** · 2016/03/14(月) 18:06:18.97

>>609
自己レス。ShowMessageの問題ではないみたい。

**デフォルトの名無しさん** · 2016/03/14(月) 18:19:06.24

>>610
こっちも自己レス。汚してすみません。
0は、CP_NONEでなくCP_ACPだた。

**デフォルトの名無しさん** · 2016/03/31(木) 09:15:03.95

>>601
UTF8String を使う場合は、ソースの先頭部付近に
{$codepage UTF8}
を加えるのがほぼ必須みたいです。
そして、copyはやはりコードページを意識しない
（要素単位固定、現在は１要素=１バイト）みたいです。
ですので s: string; とした場合と動作は変わらないみたいです。

**デフォルトの名無しさん** · 2016/04/10(日) 18:47:56.27

どうして不人気なんだろう

**デフォルトの名無しさん** · 2016/04/10(日) 19:28:01.82

いや、そもそも Pascal が

**デフォルトの名無しさん** · 2016/04/11(月) 08:09:18.63

Delphiがああなっちゃったからな

**デフォルトの名無しさん** · 2016/04/11(月) 14:01:09.14

自分は Pascal 好きなんだけどね。
でも遊びくらいにしか使えないわなあ。
余計な苦労するだけだし。

**デフォルトの名無しさん** · 2016/04/11(月) 18:04:07.15

>>617
どういう苦労なの。
俺はVBなら出来るんだけどという奴に合うたびに閉口するんだけど。
参考に教えてちょうだい。

**デフォルトの名無しさん** · 2016/04/11(月) 23:08:16.24

>>618
ああ、ここ Linux の板じゃなかったな。
たいていサンプルがあるのって C じゃん？無理やり Pascal に書きなおすか、
なんとかしてドッキングさせたりとかそういうところ。
Windows は、最近はネイティブアプリを作ることがないな。
.NET 使うなら言語の違いは大して意味ないし。

**デフォルトの名無しさん** · 2016/04/12(火) 07:42:12.61

たいした苦労してねぇじゃんｗ

**デフォルトの名無しさん** · 2016/04/12(火) 19:58:26.51

そ、そうだな
(誰も苦労話なんかしてないんだが……)

**デフォルトの名無しさん** · 2016/04/13(水) 08:12:25.93

俺は逆にCをPascalに移植するの好きだけどな。
変にマニュアルとか読むよりも仕様がよくわかるし
何よりもPascalの便利さがわかる。

**デフォルトの名無しさん** · 2016/04/13(水) 08:39:28.24

でも１万行とか、移植しかねるけどなぁ。

**デフォルトの名無しさん** · 2016/04/14(木) 08:09:53.69

それはケースバイケースで、CでDLLを作るという手もあるよ。
いずれにせよCでできることはObjectPascalでもほぼできるわけで
慣れれば困るということはないよ。
僕の経験上で今までObjectPascalでできなかったのは
デバイスドライバ開発時のメモリアドレスの絶対指定ぐらいかな。

**デフォルトの名無しさん** · 2016/04/14(木) 10:14:23.22

Delphi3でデバイスドライバーを作ってる人見たが
VCと混合だったかな
うろおぼえ

**デフォルトの名無しさん** · 2016/04/23(土) 22:03:11.97

ツールのDelphi Conversionで簡単なDelphiプロジェクトをLazarusに変換したんだけど
コンパイルしようとすると「プロジェクトにメインソースファイルがありません」って出ちゃう
どこをいじったらいいでしょう？

**デフォルトの名無しさん** · 2016/04/24(日) 10:19:11.75

変換前のDelphiプロジェクトはこれです
http://fast-uploader.com/file/7016973507576/

**デフォルトの名無しさん** · 2016/04/27(水) 10:18:46.99

>>626
試したけどそのようなエラーは出なかったよ

**デフォルトの名無しさん** · 2016/04/28(木) 18:14:24.74

>>626
コンバートで失敗はなかったけど、コンパイルする時に4つエラーが出た
lazarusにはない記述だから仕方ないけど

**デフォルトの名無しさん** · 2016/04/29(金) 16:31:19.76

>>628
>>629
レスありがとうございます
もう一度試してだめなら
手作業で変換することにします

**デフォルトの名無しさん** · 2016/05/08(日) 13:18:08.88

Shift_JIS漢字を含む文字列をUTF-8文字列に変換したいのですが
AnsiToUtf8関数は見当違いですか？
試してみましたがうまくいきませんでした

**デフォルトの名無しさん** · 2016/05/08(日) 15:01:22.75

そりゃANSIだからな

**デフォルトの名無しさん** · 2016/05/08(日) 15:21:32.70

OSがWindowsなら見当違いじゃないよ

**デフォルトの名無しさん** · 2016/05/08(日) 18:47:19.53

>>632
>>633
OSはWindows7 64Bitです
うまくいかないのは何かコンパイラ指示とか足りないのでしょうか
他にShift_JISからUTF-8に変換できる関数とかないでしょうか

**デフォルトの名無しさん** · 2016/05/08(日) 19:23:38.54

WindowsならAPIがあるよ

**デフォルトの名無しさん** · 2016/05/08(日) 22:14:02.22

15年ぶりぐらいでプログラミングを
Lazarus で復帰し、半年ほど前からさわってるけどこうやって変換してるよ。Ver1.6

ただしLConvertEncode Unitの半角カナの扱いにバグがありConverterEncode() で半角カナが消える。
全角とANSIなら問題ない。

LConvertEncodeのasiancodepagefunctions.inc のDBCSToUTF8() のソースコードを少し修正すればOk。

uses
LazUTF8Classes,LazUTF8,.....,LConvEncording;

中略

SL:=TStringList.Create;
try
LoadStringsFromFileUTF8(SL, filename);
for i := 0 to SL.Count - 1 do begin
if GuessEncoding(SL[i]) = 'cp932' then
Memo.Lines.Add(ConvertEncoding(SL[i], 'cp932', 'utf8')) // SJIS to UTF8コード変換
else
Memo.Lines.Add(SL[i]);
end;
finally
FreeAndNil(SL);
end;

**デフォルトの名無しさん** · 2016/05/08(日) 22:55:56.40

>>636

C:\lazarus\components\lazutils\lconvencoding.pasのConvertEncoding(SL[i], 'cp932', 'utf8')で半角ｶﾅが消える件
asiancodepagefunctions.inc　の下記ルーチンがCP932 SJISの半角ｶﾅを正しくハンドリングできていない

function DBCSToUTF8(const s: string; CodeP: integer): string;
:
:
repeat
c := Src^;
Inc(Src);
if Ord(c) < 128 then begin
if (c=#0) and (Src-PChar(s)>=len) then break;
Dest^ := c;
Inc(Dest);
end
else begin
code := Byte(c) shl 8; <---- Ord(c) > $80 の時は無条件に２Byte文字にしているのがNG
c:=Src^;
if (c=#0) and (Src-PChar(s)>=len) then break;
code := code + Byte(c);
Inc(Src);

**デフォルトの名無しさん** · 2016/05/08(日) 23:00:44.78

>>636 以下修正したコードだけど、参考まで。
function DBCSToUTF8(const s: string; CodeP: integer): string;
:
const // 半角ｶﾅ対応
HankakuKanaUTF8Code:array[$A1..$DF] of array[1..3] of Byte
=(($EF,$BD,$A1),($EF,$BD,$A2),($EF,$BD,$A3),($EF,$BD,$A4),($EF,$BD,$A5),($EF,$BD,$A6),($EF,$BD,$A7),($EF,$BD,$A8),
($EF,$BD,$A9),($EF,$BD,$AA),($EF,$BD,$AB),($EF,$BD,$AC),($EF,$BD,$AD),($EF,$BD,$AE),($EF,$BD,$AF),($EF,$BD,$B0),
($EF,$BD,$B1),($EF,$BD,$B2),($EF,$BD,$B3),($EF,$BD,$B4),($EF,$BD,$B5),($EF,$BD,$B6),($EF,$BD,$B7),($EF,$BD,$B8),
($EF,$BD,$B9),($EF,$BD,$BA),($EF,$BD,$BB),($EF,$BD,$BC),($EF,$BD,$BD),($EF,$BD,$BE),($EF,$BD,$BF),($EF,$BE,$80),
($EF,$BE,$81),($EF,$BE,$82),($EF,$BE,$83),($EF,$BE,$84),($EF,$BE,$85),($EF,$BE,$86),($EF,$BE,$87),($EF,$BE,$88),
($EF,$BE,$89),($EF,$BE,$8A),($EF,$BE,$8B),($EF,$BE,$8C),($EF,$BE,$8D),($EF,$BE,$8E),($EF,$BE,$8F),($EF,$BE,$90),
($EF,$BE,$91),($EF,$BE,$92),($EF,$BE,$93),($EF,$BE,$94),($EF,$BE,$95),($EF,$BE,$96),($EF,$BE,$97),($EF,$BE,$98),
($EF,$BE,$99),($EF,$BE,$9A),($EF,$BE,$9B),($EF,$BE,$9C),($EF,$BE,$9D),($EF,$BE,$9E),($EF,$BE,$9F));
// ここまで
begin
:
repeat
:
begin
if (c=#0) and (Src-PChar(s)>=len) then break;
Dest^ := c;
Inc(Dest);
end
else if (CodeP = 932) and (Ord(c) >= $A1) and (Ord(c) <= $DF) then begin // 半角ｶﾅ対応
Dest^ := Char(HankakuKanaUTF8Code[Ord(c)][1]);
Inc(Dest);
Dest^ := Char(HankakuKanaUTF8Code[Ord(c)][2]);
Inc(Dest);
Dest^ := Char(HankakuKanaUTF8Code[Ord(c)][3]);
Inc(Dest);
end // ここまで

**デフォルトの名無しさん** · 2016/05/09(月) 20:03:45.11

>>635
ありがとうございます
APIを探してみます
>>636
>>637
>>638
サンプルコードまで書いてくれてすみません
早速試してみます

**デフォルトの名無しさん** · 2016/05/09(月) 21:59:01.22

>>636
コードページを使うってことがまったく頭にありませんでした
DelphiならAnsiToUtf8ExとかUtf8ToAnsiExあたりが使えそうですがLazarusにはなさそうで…
>>635
Win32APIを探してみたらMultiByteToWideCharというのが使えそうですね
コードページはCP_OEMCPあたりでしょうか

WideCharからUTF-8はWideStringにしてStringに代入で変換できそうですね
このあたりを使ってコードを書いて見ます

**デフォルトの名無しさん** · 2016/05/10(火) 08:00:47.53

>>640
素直に SetStringCodePage　を使えば？

**デフォルトの名無しさん** · 2016/05/10(火) 08:19:54.24

>>640
あと1.6以降でのUTF16、UTF8の自動相互変換は思わぬところで嵌まることがあるので
1.4以前みたくUtf8EncodeやUtf8Decodeを噛ませておいたほうがいいよ

**デフォルトの名無しさん** · 2016/05/10(火) 17:28:34.34

>>640
636だけど良い方法分かったらレポよろしく。
10数年前にDelphi 7を使ったのが最後だったんでLazarusで半角カナ混じりのSJISテキストファイル表示するのに試行錯誤したよ。
知らなかっただけかもしれないが当時はUnix がEUC主流でUTFなんて無かったような。

**デフォルトの名無しさん** · 2016/05/10(火) 19:02:26.62

delphi7は、一応utf-8に変換する関数は用意されてるね。
基本面のみなので、サロゲートペアを適切に扱ってはくれないけど。

**640** · 2016/05/10(火) 22:51:51.91

一応こんな感じで今のところうまくいっています

1.uses節にWindowsを追加

2.varはこんな感じ
var
　SJStr, U8Str: String;
　WStr: WideString;
　Wlen: Integer;

3.ShiftJIStoUTF8内
　WLen:=MultiByteToWideChar(CP_OEMCP,MB_PRECOMPOSED,PChar(SJStr),
　　　　　　Length(SJStr),PWideChar(WStr),0);
　SetLength(WStr,WLen);
　MultiByteToWideChar(CP_OEMCP,MB_PRECOMPOSED,PChar(SJStr),
　　　　　　Length(SJStr),PWideChar(WStr),WLen);
U8Str:=String(WStr);
//半角Spaceを全角Space ni置き換えています

SJStrはShift_JIS String
U8StrはUTF-8 String
APIを2回Callしているのは1回目で変換後のサイズを取得して2回目で実際に変換しているからです

API出力のUTF-16をPWideChar(array of WideChar)とかで受けて
String(PWideChar(…とかするとうまく変換してくれませんでした
（コンパイルは通るけど）
String（WideString(PWideChar(…なら変換してくれました
なので最初からAPIの出力はWideStringで受けています

しばらくこんな感じで使ってみて不具合が出たらまた考えて見ます
皆さんいろいろな助言をありがとうございました

**640** · 2016/05/10(火) 23:19:26.73

テスト用のProjectです
http://yahoo.jp/box/Vl_y-O

**640** · 2016/05/10(火) 23:41:44.72

ファイルが壊れていたので再UPしました
http://yahoo.jp/box/wFfctM

**デフォルトの名無しさん** · 2016/05/11(水) 08:48:13.55

難しく考え過ぎじゃない？
LazUTF8 か SetCodePage じゃだめなの？

procedure TForm1.Button1Click(Sender: TObject);
var
s, s1, s2: string;
sl: tstringlist;
begin
s:= 'ABCDEFGあいうえおｱｲｳｴｵ';

s1:= UTF8ToWinCP(s);
Label1.Caption:= LazUTF8.WinCPToUTF8(s1);

s2:= s;
SetCodePage(RawByteString(s2), 932{SJIS}, true);
Label2.Caption:= LazUTF8.WinCPToUTF8(s2);
end;

**デフォルトの名無しさん** · 2016/05/11(水) 22:06:49.06

>>648
LazUTF8というのがまったくの初耳でした
WinCPToUTF8であっさりできてしまうんですね
ありがとうございます

**デフォルトの名無しさん** · 2016/05/25(水) 00:13:49.87

>>648
slは？

**デフォルトの名無しさん** · 2016/05/25(水) 08:41:27.50

>>650
テストでテキストファイルに書き出してたのだが
その名残り。削除し忘れた

**デフォルトの名無しさん** · 2016/05/26(木) 00:50:04.87

>>651
なるほど了解

**デフォルトの名無しさん** · 2016/05/28(土) 11:29:41.05

SysUtilsのFileCreate,FileOpen,FileRead,FileWriteは使わないほうがいいですか？
Byteの動的配列をSetlengthしてFileReadに食わせたらFileReadはエラーが出ないけれど
それ以降の動的配列のアクセスすべてで例外が発生します。

**デフォルトの名無しさん** · 2016/05/28(土) 15:04:50.57

>>653
こういう質問のときはエラーになるコードも書いてよ
まぁ状況から察するには
×FileRead(FileHandle, a, Count)
○FileRead(FileHandle, a[0], Count)

**デフォルトの名無しさん** · 2016/05/28(土) 15:41:31.05

>>654
すみませんでした。
まさにお察しのとおりでしたありがとうございます。

**デフォルトの名無しさん** · 2016/05/29(日) 22:53:35.12

自分で使う用にリネームツールを作ってたんだけど
もしかしてFileExistsとかRenameFileって2バイトコード対応してないのですかね？

**656** · 2016/05/29(日) 23:05:42.58

「Lazarusのだと」ってことね
念の為w

**デフォルトの名無しさん** · 2016/05/30(月) 10:19:18.03

質問するならせめて用語くらいは正しく使おうよ。
2バイトコードがSJISのことだと仮定すると
（なぜならUTF8の日本語は3バイトなので）
Lazの文字コ－ドは標準がUTF8なのでUTF8-SJIS変換をかませる必要がある。
なお、Laz v1.6以降のFileExistsやRenameFileはUTF8にフル対応してる。
Laz v1.4以前は FileExistsUTF8 などを使う必要がある。

**デフォルトの名無しさん** · 2016/05/30(月) 20:27:03.00

>>658
勉強になりました
ありがとうございます

**デフォルトの名無しさん** · 2016/06/10(金) 17:51:09.92

これってdelphiで作ったプロジェクトをコンパイルできますか？

**デフォルトの名無しさん** · 2016/06/10(金) 20:01:04.17

コンバートできるものとできないものがある。
さすがに修正することが多いですね。

**デフォルトの名無しさん** · 2016/06/10(金) 23:04:41.83

>>661
ありがとう

**デフォルトの名無しさん** · 2016/06/16(木) 00:49:42.07

Ubuntu on Windowsでもlazarus動くようになったな

**デフォルトの名無しさん** · 2016/06/23(木) 10:23:35.15

>>663
Ubuntu on Windowsってbashがうごくだけじゃないの？

**デフォルトの名無しさん** · 2016/06/24(金) 07:34:54.32

ubuntu環境そのものが動くんやで

**デフォルトの名無しさん** · 2016/06/24(金) 11:06:27.44

666

**デフォルトの名無しさん** · 2016/07/02(土) 09:01:37.43

WideStringではまってしまった

procedure TForm1.Button8Click(Sender: TObject);
var
str: string;
wstr: widestring;
begin
str:='stringテスト';
wstr:=widestring('stringテスト');
Label22.Caption:=IntToStr(Length(widestring(str))); //9と表示された
Label23.Caption:=IntToStr(Length(widestring(wstr))); //15と表示された
end;

label23は9と表示されてほしかったのに…

**デフォルトの名無しさん** · 2016/07/02(土) 13:16:40.19

widecharですらないな

**デフォルトの名無しさん** · 2016/07/02(土) 14:12:28.25

予想通りの答えだと思うけど
StringをWideStringでキャストしている意図がわからない

**デフォルトの名無しさん** · 2016/07/02(土) 16:23:02.94

>StringをWideStringでキャストしている意図がわからない
バイト数でなく文字数を出すため

Delphi 6で試してみたところ
Length(widestring(str))
Length(widestring(wstr))
は両方とも9になった
Length('stringテスト')=12
Length(widestring('stringテスト'))=9
だった

**デフォルトの名無しさん** · 2016/07/02(土) 20:14:25.02

WideString型の値をWideStringにキャストしたら文字数が9 -> 15になったって話か。

裏で走る組み込みの型変換の関数で変換元と先が同じ型かどうかのチェックをサボってるとかかな？

**デフォルトの名無しさん** · 2016/07/03(日) 10:24:08.28

str:='stringテスト';
wstr1:='stringテスト'; //15
wstr2:=widestring('stringテスト'); //15
wstr3:=widestring(str); //9
wstr4:=widestring(wstr3); //9
だったから、リテラル→widestring が期待する動作じゃないな

const
str: string = 'stringテスト';
wstr: widestring = widestring(str);
をやってみたら、
ユニコードをAnsiStringにすることはコンパイル時にはできません
なぜなら実行時の文字コードを知らないからです
みたいなエラーが出た
widestringはansistringと同じ扱いなのか？

**デフォルトの名無しさん** · 2016/07/03(日) 11:25:02.28

文字列系は1.6(FPC3.0)で大きく変わったので
まずはバージョンを書こうぜ

**デフォルトの名無しさん** · 2016/07/03(日) 11:28:25.67

多分1.6を使ってるとして返事するけど、
1.6でも、WideString(=UnicodeUtring=UTF16)と
String(=UTF8)を相互に代入するときは1.4以前と同じく
UTF8Decode()やUTF8Encode()を噛ませたほうがいいよ。
理由は詳しくは書かないけど。

**デフォルトの名無しさん** · 2016/07/03(日) 12:50:48.37

バージョンは1.6です

いろいろ試してみたけれどやはりUTF8Decodeが確実でした

あとなぜかWidestring(PChar())のキャストも9になります
Label1.Caption:=InttoStr(Length(Widestring('stringテスト')));//15
Label2.Caption:=InttoStr(Length(Widestring(String('stringテスト'))));//15
Label3.Caption:=InttoStr(Length(Widestring(PChar('stringテスト'))));//9
Label4.Caption:=InttoStr(Length(Widestring(PWideChar('stringテスト'))));//15
Label5.Caption:=inttostr(length(UTF8Decode('stringテスト')));//9

**デフォルトの名無しさん** · 2016/07/03(日) 13:27:23.79

いずれにせよFPC3.0では
文字列のキャストはコードページ付き文字列の導入に伴って
よう分からんことになってるので
1.4以前のようにきちんと文字列型のコードページを把握しつつ
UTF8Decode UTF8Encode その他をきちんと使うのがおすすめ。

なお、UTF16のバイト長の取得は
i:=Length(UTF8Decode('あいうえお')) * 2;
でいいと思う。

**デフォルトの名無しさん** · 2016/07/05(火) 13:06:24.30

気になって、ちょっと古いけどUnicode対応のDelphi XE5で試してみた
おかしな結果にならない模様

ttps://gist.github.com/anonymous/8636175cf9340234cfa452f492b074ee

**デフォルトの名無しさん** · 2016/07/06(水) 08:06:19.72

文字列定数のコードページの初期値が違うので
違う結果になるのは当然。
文字列定数のコードページを同じにすれば同じ結果になるはず。
これ以上深入りしても無駄だと思うけど

**デフォルトの名無しさん** · 2016/08/25(木) 11:21:40.41

１０年ぶりにDelphi 無償版リリース！

Delphi / C++Builder 10.1 Berlin Starter Edition が無料でダウンロード可能

注意事項
・無料ダウンロードは2016年8月22日から9月9日までの期間限定
・１回の登録／申請で１ライセンス入手可能
・１つのＥメールアドレス／アカウントごとに１ライセンスのみ入手可

[Delphi 10.1 Berlin Starter Edition]
https://www.embarcadero.com/jp/products/delphi/starter/promotional-download

[C++Builder 10.1 Berlin Starter Edition]
https://www.embarcadero.com/jp/products/cbuilder/starter/promotional-download

**デフォルトの名無しさん** · 2016/08/25(木) 11:24:24.64

GoodJob

**デフォルトの名無しさん** · 2016/08/25(木) 11:34:14.78

>>679
全部入力したのに[今すぐダウンロード]を押してもダウンロードが開始しない場合は、
Japanを他の国（例えばJamaica）を選択して、またJapanに戻せば、
[今すぐダウンロード]を押せるようになるぞ！

**デフォルトの名無しさん** · 2016/08/25(木) 11:40:07.60

>>679 >>681
これはひどいwebフォームだな
テストくらいしてからリリース汁

firefoxだとフォームの項目が一つ少ないな
一番上の性のところでshift+tabを押すと
見えないフォームにフォーカス移動するので
適当にaとか文字打つとダウソ可能になる

**デフォルトの名無しさん** · 2016/08/25(木) 14:00:20.22

>>679 >>681
無料Delphiをダウンロードできない場合は、
キャッシュをクリアしてみると良いかもしれない。

ChromeやFireFoxならシークレットウィンドウで開く。

**デフォルトの名無しさん** · 2016/08/25(木) 14:42:11.47

飛び込みでスマソ。Lazarusをダウンロードして使ってみたが、StringGridの最上部の固定行に漢字を入力すると漢字が縦書きで90度左に寝転んでしまう？

可動セルはフォントをメイリオで指定してうまくいった。　固定行のフォントがメイリオなどの横書き可のフォントが設定されていないためだと思うが、解決方法がわかる人教えてください

**デフォルトの名無しさん** · 2016/08/25(木) 21:59:44.84

>>679
gj

**デフォルトの名無しさん** · 2016/08/26(金) 07:07:26.31

>>679
DelphiとC++の２個いける？
それともどっちか１個？

**デフォルトの名無しさん** · 2016/08/26(金) 12:01:12.58

両方落とせた
firefoxはだめだった

**デフォルトの名無しさん** · 2016/08/26(金) 12:07:43.72

ワシ、Firefoxで２つ落とした

**デフォルトの名無しさん** · 2016/08/26(金) 12:36:28.71

両方一緒やろ？
儂は Iceweasel で落とした。

**デフォルトの名無しさん** · 2016/08/27(土) 07:33:07.36

>>684
プロパティのColumsで増やすと個別のフォントになってしまう
Colcountで増やせばStringgrid全体でひとつのフォントになる

**デフォルトの名無しさん** · 2016/08/27(土) 07:55:16.20

どうしてもColumsで増やしたければオブジェクトインスペクタで該当するTgridcolumnをクリックして
Titleプロパティのフォントを変えていくしかない

**デフォルトの名無しさん** · 2016/08/27(土) 07:56:34.78

画像張り忘れ
http://i.imgur.com/66N2d3H.png

**デフォルトの名無しさん** · 2016/08/27(土) 10:04:00.85

>>690
さんくす

StringGrid1

Colcount　=5
FixedCols =0
FixedRows =1
Font = メイリオのレギュラー

でしているが、最上部の固定行だけは、漢字が縦書きで左90度で寝転んでしまう？
StringGridの2行目以降は漢字の横書きで正常です。

**デフォルトの名無しさん** · 2016/08/27(土) 10:04:53.20

>>396　続き

RowConut = 100

**デフォルトの名無しさん** · 2016/08/27(土) 11:19:34.00

>>693
TitleFontが＠付になってるとか…

**デフォルトの名無しさん** · 2016/08/27(土) 11:39:39.72

>>695
私の環境では、@MS Pゴシックなどの@付きのフォントを設定すると「サンプル」フォントのプレビューでで漢字横書きになってしまいますし、
２行目以降可動セルの漢字も縦書きになってしまします。

いろいろフォントを変えて試したのですが、「メイリオ」「游ゴシック」「游明朝」が２行目以降の可動セルで漢字の横書きが可能かと思われます。

Lazarusは最新バージョンの1.6です。

また、１行目の固定セルと２行目以降の可動セルのフォントを別々に設定するとは、オブジェクトインスペクタでは出来ないように思います。

**デフォルトの名無しさん** · 2016/08/27(土) 12:58:23.77

訂正
フォントのプレビューでで漢字横書き　→　フォントのプレビューでで漢字縦書き

**デフォルトの名無しさん** · 2016/08/27(土) 21:37:04.16

>>696
自分で書いたプログラム？
OnDrawCellイベントとか使ってない？

再現する短いプログラムとかスクリーンショットとかUPしてくれないとどうも状況がつかめないんだけど…

**デフォルトの名無しさん** · 2016/08/27(土) 22:19:06.01

>>698
StringGridのイベントは使ってないのですが、新規にStringGridを作ってみたら、最上部の固定行の横書きが成功しました。
Delphiで作っていたプログラムを移植しようしていたのですが、何かが悪さしているようです。

これが、うまくいっていない画像です。
http://s1.gazo.cc/up/207658.jpg

いろいろ有難うございます。解決の糸口が掴めそうです。

**デフォルトの名無しさん** · 2016/08/27(土) 22:27:23.06

>>699 訂正

新規にStringGridを作ってみたら

→　新規にStringGridだけのプログラムを作ってみたら

**デフォルトの名無しさん** · 2016/08/28(日) 11:22:13.95

>>679
これ電話番号とか入れるの嫌なんだけど。

**デフォルトの名無しさん** · 2016/08/28(日) 14:33:51.11

>>701
444 444 とかで大丈夫