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

**デフォルトの名無しさん** · 2009/12/25(金) 02:46:18

（クロス）オープンソースコンパイラ FreePascal [i386/68K/PPC/ARM/SPARC]
http://www.freepascal.org/

オープンソース開発ライブラリ等 [IDE/GUI環境 Lazarus]
http://www.lazarus.freepascal.org/

FreePascal/Lazarusのメーリングリスト(Pascalにホエロ！)
ttp://www.freeml.com/lazarus

Q:これで作ったソフトは自動的にGPLになるの？

A:制限付き LGPL だから、自分が作ったソースは GPL にする必要は無い
例え FreePascal 付属のライブラリにリンクしていても GPL にはしなくて良い
http://www.freepascal.org/faq.html#general-license

**デフォルトの名無しさん** · 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 とかで大丈夫

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

>>679
これって２個とも同じexeじゃね？
どういうこと？

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

>>703
webインストーラーは共通

**デフォルトの名無しさん** · 2016/08/29(月) 12:56:21.31

まだインストールしてないけど
インストールキーで機能が決まるんじゃないかな

**デフォルトの名無しさん** · 2016/08/29(月) 14:30:07.89

webインストーラーのくせにでかすぎなんだよ

**デフォルトの名無しさん** · 2016/08/29(月) 15:38:43.62

http://echo.2ch.net/test/read.cgi/tech/1405783063/888
に実際インストールした人あり

**デフォルトの名無しさん** · 2016/08/30(火) 08:40:18.90

Windows.Beep(p1, p2);
これ使えないのか？どうして？

Buttonが今日は、真っ白の文字無しで表示？　昨日までは何ともなかったのに？

分かる方教えて？

**デフォルトの名無しさん** · 2016/08/30(火) 10:14:03.53

>708
何の話？

**デフォルトの名無しさん** · 2016/08/30(火) 10:35:35.41

>>709
Lazarus