開発ブログ

Frame には要注意

2017-05-29T22:10:00+09:00

VCL XE7

LiveBindings で CustomFormat を設定しても
一向に反映されない
いや、デザインモードでは見えるのだが
実行してみると反映されていない

LiveBindings のバグなのかと思って、色々と試してみた
全然わからない

結局、フレームのせいだった
フレームで、grid と PrototypeBindSource を設定して
そのフレームをフォームに張り付けていたのだが
どうもメインのフォームに張り付けたフレームで
IfThen などのCustomFormat が削除されてしまうのだ
何度やってもダメ
Bind 関係の uses が足りないせいか？と思って
色々追加するが結局ムダ

張り付けて一回目のコンパイルはOKなのに
その後、すでにデザインモードで動作しなくなっている！！
そして再度コンパイルすると当然ダメ！
これひどい

良く忘れる

2017-05-17T22:30:00+09:00

TList は無名メソッドでソートできる

TObjectList の sortは TComparer を使って行う


uses
  System.Generics.Defaults, System.Generics.Defaults,
  ...

List.Sort(TComparer.Construct(
    function(const Item1, Item2: TFooBar): Integer
    begin
      Result := Item1.Prop1 - Item2.Prop1;
    end));
)

FireMonkey TListBox removeObject でメモリリークした

2017-02-11T21:00:00+09:00

Berlin upd2

TListBox に AddObject するときに
TListBoxItem を


ListBoxItem := TListBoxItem.Create(nil);
...
ListBox.AddObject(ListBoxItem);

のようにして作成すると
RemoveObject したときにメモリリークを起こしてしまった。

作成時に


ListBoxItem := TListBoxItem.Create(ListBox);

とすれば、メモリリークは発生しなかった

RAD Studio git でエラー？

2016-02-04T21:29:30+09:00

RAD Studio XE7

既存のプロジェクトを git で管理しようと
git init をしてから
RAD Studio で
Git - コミット - リポジトリルート以下
からコミットしたところ
エラーが発生してしまいました！

gitk を起動してみたところ
リビジョン解析エラー
となります

無視して git gui を起動すると
日本語ファイル名のついたファイルだけが add されていない状態。
git gui から add してコミットしたところ、無事完了して一安心

日本語ファイル名があるとだめなのかな？

DesignVisible がなくなった？

2015-09-18T21:30:00+09:00

XE5 で作っていたアプリケーションを 10 Seattle でコンパイルしてみました

FMX.Controls.TControl.DesignVisible がなくなっているようで
エラーが...

ちょっと便利に使っていたりしたので、困ってしまいました...
結構色々変わりますねー

PAServer バージョン

2015-09-18T21:00:00+09:00

最近の PAServer のバージョン番号は RADStudioの内部バージョン番号と同じです。
前の方が分かりやすかったんだけど...

自分で使っていたバージョンの組み合わせをメモっておきます


 XE5 | RAD PAServer XE5 | XCode 4.6.3?
(XE6 | RAD PAServer XE6 | XCode 4.6.3?)
 XE7 | PAServer 15.0 | XCode 5.1.1? | (PAServer Manager)
(XE8 | PAServer 16.0 | Yosemite | XCode 6.3.2? | (PAServerManager))
 10  | PAServer-17.0 | Yosemite | XCode 6.3.2? | (PAServerManager)

ところで PAServerManager って以前は PAServer Manager だったのね
何か違うのかな？

XCode 6.3.2 iOS 7.1, 8.1, 8.2

FireMonkey XE8 クロスプラットフォームでの画像ファイルフォーマット

2015-06-23T18:10:11+09:00

それぞれのプラットフォームで扱えるビットマップデータの種類は以下の模様です。
Windows ＝ bmp, gif, jpg, hdp, ico, png, .tif
MacOS ＝ bmp, icns, jpg, gif, png, tif, tga
iOS ＝ jpg, png
Android ＝ gif, jpg, png

iOS のことを考えると jpg, png の2択
写真系なら jpg 通常の画像なら png ということ

FMX.Graphics.TBitmapCodecManager

RAD Studio で GIT を使う (3)

2015-04-17T15:40:35+09:00

■リモートへの接続

■SSH接続の鍵設定(鍵の生成)

接続するたびにパスワードを入力するのは大変なので、SSH接続鍵を交換します。

まずは自分の SSH接続鍵があるか確認。

git bash で


ls ~/.ssh

ここで id_rsa や id_rsa.pub があれば、その鍵を利用できるので、以下はスキップ


ssh-keygen -t rsa -C "メールアドレス"

保存場所、パスフレーズなどはデフォルトのままで enter

再度 ls ~/.ssh するとid_rsa.pub ができている筈です。

■SSH接続の鍵設定(鍵をサーバに設定)

対象のリモートサーバに id_rsa.pub をコピー
SSH して


cat id_rsa.pub >> .ssh/authorized_keys

以上で完了

■その他
push しようとすると
bash: git-receive-pack: commad not found
と言われて失敗してしまいました。

リモートサーバには正しく git をインストールして、.bashrc でパスを通してあるのですが、ssh でコマンド実行した際には .bashrc を読んでくれないため、コマンドが見つからないようです。


git config remote.origin.receivepack リモートサーバのgit binフォルダ/git-receive-pack
git config remote.origin.uploadpack リモートサーバのgit binフォルダ/git-upload-pack

(注)リモートサーバが origin の場合
とします。


git config -l

で確認をしてみると、なぜかパスに C:/Program Files/Git/ が追加されてしまっています！！
困ってしまったので、直接 .git/config をエディタで開いて修正しました。

RAD Studio で GIT を使う (2)

2015-04-17T15:06:59+09:00

■既存のソースをGITで管理
git bash を起動

既存のプロジェクトフォルダに移動


cd d:\project1

git リポジトリを初期化


git init

その後 RAD Studio から
Git - コミット - リポジトリルート以下

バージョン管理対象外のファイルを表示するチェックを付ける

一覧のファイルからチェックボックスにチェックを付けていく
.gitignore をうまく設定してあれば、全選択でいけるかも...

■リモートリポジトリへ
(事前にリモート側でリポジトリを作っておく必要はない)
git clone --bare project1 //server/project1/project1.git

■リモートを登録
git remote add origin //server/project1/project1.git

[例]
例えば coreserver なら
ssh://username@mxxx.coreserver.jp/virtual/username/git/project1/project1.git
のような感じ...

[参考]
4.2 Git サーバー - サーバー用の Git の取得
既存のディレクトリをGit管理化して、それを基にリモートリポジトリを作る

RAD Studio で GIT を使う (1)

2015-04-16T22:50:00+09:00

■git をインストール
git を windows にインストールする
オプションはほぼデフォルトで
download -> https://git-scm.com/download/win

■RAD Studio の設定
ツール－オプションで
バージョン管理－ Git を選択

■.gitignore の設定
Git で管理したくないファイルは .gitignore に書いておけば無視してくれる。
Delphi の場合であれば、以下のような感じ...


__history/
__recovery/
*.identcache
*.dproj.local
*.groupproj.local
*.dsk
*.~dsk
*.~bpl
*.tvsconfig
*.stat

(注)
私は中間ファイル(*.dcu)や実行ファイル(*.exe)などの出力場所を、ソースフォルダ以外の場所にしているので上記のような感じだが、標準の設定の場合は以下も追加


*.dcu
*.exe

■共有
ファイル共有でリポジトリを共有することが可能

[参考]
IDE 内の Git インテグレーション
Windows ファイルサーバーと Git