OBJECT Get corner radius コマンドはobject 引数で指定されたオブジェクトの角の半径のカレントの値を返します。この値は、角の半径プロパティ を使用してフォームレベルで設定されているか、あるいはOBJECT SET CORNER RADIUS コマンドを使用してカレントプロセスに対して設定することが可能です。
OBJECT Get corner radius コマンドは、以下のフォームオブジェクトに対して使用することが可能です:
- 四角形
- 入力(4D プロジェクトのみ)
- テキストエリア(4D プロジェクトのみ)
オプションの * 引数を渡すと、object 引数はオブジェクト名 (文字列) です。この引数を渡さない場合、object にはフィールドまたは変数を指定します。この場合、文字列ではなく変数参照を渡してください(フィールドまたは変数オブジェクトのみ)。
このコマンドは丸い角の半径をピクセル単位で返します。
注意: このコマンドは、丸い角のプロパティをサポートしないオブジェクトに対して適用された場合には0 を返します。
以下のコードをボタンのメソッドに追加します:
C_LONGINT($radius)
$radius:=OBJECT Get corner radius(*;"GreenRect")
OBJECT SET CORNER RADIUS(*;"GreenRect";$radius+1)