Delphi Syneditで遊んでみよう
執筆:平成18年7月24日
編集:平成18年7月25日
※ 手元のzipは2.0.3なのでそれ以降のバージョンは知りません。
サンプルがよくできていて
なんかそのまま使ってしまいたくなります。
でも付属のサンプルは
正規表現検索を付け忘れているようです。
それで 次のようにすると使えるようになります。
frmeditor |
|
コンポ配置 |
SynEditRegexSearch1を 置きます。 |
180行目前後
付近の好きな位置に |
gbSearchRegularExpression: boolean;
を追加します。 |
886行目付近 |
if gbSearchTextAtCaret thenよりも前の適当な位置に
SearchRegularExpression := gbSearchRegularExpression; を追加します |
910行目付近 |
gbSearchRegularExpression := SearchRegularExpression;
if not(gbSearchRegularExpression) then
SynEditor.SearchEngine := SynEditSearch1
else
SynEditor.SearchEngine := SynEditRegexSearch1; |
行番号は適当に書いているので、文脈を判断して
適切な位置にいれましょう。
これで正規表現対応になりました。
メニューやフォントなどは、日本語に書き換えれば、
そこそこ遊べます。 |
次に、行番号を付けたくなりますね?
SynEditor.Gutter.ShowLineNumbers
をTrueにするだけです。
もぉー簡単。
» 続きを読む
Delphi2005でTntUnicodeControlsコンパイル
執筆:平成18年7月23日
では、EDITとボタンを配置して
以前紹介したdelphi & Unicode
の記事のコードを埋め込みます。
・クリップボードへunidcode保存と
・画面への描画を対応しました。
さぁ 実行
うぉー うごい。
ちゃんと 表示されました。
では、もどってcaptionやtextにそのままはっちゃえ
では、再コンパイルしてFDへ移動
では WinMeへ運搬してみましょう。
あれ?
文字が?になりました。
まったく何の文字か判読できません。
クリップボードはどうやら対応していないようです。
でも 独自描画は成功しています。
WinMeでもunicodeは表示できていることになります。
TntUnicodeでは、?になってしまっています。
どういうことでしょう?
表示はできることは、埋め込んだコードで実証されています。
XP |
|
Me |
|
TntUnicodeが ふーん だということでしょうか?
では、TntStdCtrls.pasを追跡してみたいと思います・・・
どうやら、TntControls.TntControl_GetTextあたりが
ぷー ですね
あまり追跡しすぎるとまるごと書き換えたくなるので
ポン(>_<) ☆α== いて あれ わたしは誰?
うーん。。。 いまさら自分でコンポーネント修正や作り替えなんて
非現実的なので
Win95や600MHz級のPCを見捨てて
unicode標準対応の
どっとネット アプリにしたほうが 楽な気がします。
Delphi.net : フォーム作成エラー: ?
フォーム作成エラー: ?
と表示されて全く使えません
以前は問題なく使えていたのに
どこで使えなくなったかは不明ですが、
内部がどこか壊れたようです(>_<)
\Objrepos\DelphiDotNet\VclFormTemplate.pas
の{$R *.nfm}
を{$R *.dfm}
に変えると とりあえず直るのですが
副作用がないか心配です・・・
mission1 バックアップ+アンインストール数時間
mission2 インストール数時間
mission3 アップデート適用 約1時間
mission4 パッケージのインストール
mission5 検索フォルダの再設定など 数十分
delphi.netごときに
とてもそんなmissionにつきあいきれません(^_^;
widowsformとC#とwin32が使える ということで再インストールなんかしません。
しょせん○●王 delphi2005なので
あまりこだわると使えないでしょう・・・