JvInterpreterでDelphi/C++Builderアプリケーションに簡易Pascal言語を組み込む
山本隆の開発日誌 Kotlin/Swift/Flutter/JavaScript/TypeScript/PHPでWindows/macOS/Android/iOS/Webアプリなどを作ってます JCLのJvInterpreterを使うと、Delphi/C++Builderアプリケーションに簡易Pascal言語を組み込むことができます。 コードを実行して返値を取得する フォームにTJvInterpreterProgramコンポーネントを配置します。 JvInterpreterProgram1のPasプロパティに、実行するプログラムのコードを設定します。 var I: Integer; begin Result := 0; for I := 0 to 10 do Result := Result + I; end; Pasプロパティに記述したコードは、Runメソッドで実行します。 返値はVRe
C++BuilderでTJvFooterを使ってみる
C++BuilderでTJvFooterを使ってみる。 TJvFooterはフォームの下側にボタンを配置してくれるパネルです。 パネルを右クリックして表示されるポップアップメニューからボタンの配置を選択します。 配置されるボタンはTJvFooterBtnクラスです。 TButtonと同じように、ボタンが押された時にOnClickイベントが発生します。 ■MS Ofice 2000 パネルの左にヘルプボタン、右にOKボタンとキャンセルボタンを配置します。 ■MS Enterprice Manager Wizard パネルの右にPreviousボタン、Nextボタン、閉じるボタンを配置します。 ■Dialog Mode パネルの中央にOKボタンを配置します。 ■Add button ボタンを一つ配置します。
C++BuilderでTJvSearchFilesを使ってみる
山本隆の開発日誌 Kotlin/Swift/Flutter/JavaScript/TypeScript/PHPでWindows/macOS/Android/iOS/Webアプリなどを作ってます C++BuilderでTJvSearchFilesを使ってみる。 ■使い方 RootDirectoryプロパティで検索するルートディレクトリを指定します JvSearchFiles1->RootDirectory = L"C:\\test"; DirOptionプロパティでサブディレクトリを検索するかどうかを指定します。 //ルートディレクトリとそのサブディレクトリのみ JvSearchFiles1->DirOption = doIncludeSubDirs; Optionsプロパティで検索処理の振る舞いを指定します。 JvSearchFiles1->Options << soSearchFiles
C++BuilderでTJvInspectorを使ってみた
山本隆の開発日誌 Kotlin/Swift/Flutter/JavaScript/TypeScript/PHPでWindows/macOS/Android/iOS/Webアプリなどを作ってます C++BuilderでJVCLのTJvInspectorを使ってみました。 TJvInspectorはDelphi/C++Builderのオブジェクトインスペクタのように、オブジェクトのプロパティを表示するコンポーネントです。 ※TJvInspectorはJVCLのコンポーネントです。JVCLをインストールすると使用できるようになります。 ■コンポーネントのプロパティを表示する TJvInspectorにコンポーネントを登録するには、AddComponentメソッドを使用します。 AddComponentの第1引数にはコンポーネント、第2引数には表示名、第3引数はカテゴリーの状態(trueならノード
ヒントの内容をHTML形式で定義して表示する - C++Builder好きの秘密基地
通常のポップアップヒントでは出来ない強調表示や文字の色変えをHTMLで定義して描画してみる。ただ、ポップアップヒントを表示する目的だけでIEコンポーネントやGeckoを使うのはヘビーなので、JVCLが用意してくれている簡易HTMLレンダリングルーチンを使用。これは、TJvHTLabelやTJvHTButtonなどでも使われている。 まずは、標準のヒントウインドウを継承したサブクラスを定義する。 class THtmlHintWindow : public THintWindow { public: __fastcall THtmlHintWindow(TComponent* AOwner) : THintWindow(AOwner) { } void __fastcall Paint(void); TRect __fastcall CalcHintRect(int MaxWidth, co
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Your product sucks – 梦溪笔记
hiro_rwのvcl的な何か
Finding the Hard to Reproduce Errors
Project JEDI - Issue Tracker
Jedi Online Help