日時フィールド - Promptingイベント 

プロンプトアイコンが押下されると起動します

日時フィールド (PRIM_MD.DateTime) のメンバ

パラメータ

名前

タイプ

データタイプ

記述

Origin

*Input

PRIM_CTRL

イベントが最初に起動されたコントロールへの参照

Handled

*Both

ブール値

TRUEに設定して、キーが自動的に処理されないようにします。

詳細

PromptIconClick イベントは、ユーザーが アイコン または アイコンイメージ をクリックすると起動します。

PromptIconClick イベントはルーティング イベントです。つまり、クリック時にマウスポインタの配下にあるコントロールとともに、親チェーンにある別のコントロールでも検知されるということです。 

このイベントの Origin パラメータは、イベントのソースを提供し、Handled パラメータは、親チェーンへの伝達を防ぎます。

例

次の例は、様々なコンポーネント レベル経由でクリック・イベントがどのようにルーティングされるかを示しています。 

フィールド のプロンプト アイコンまたはアイコンをクリックすることで、全てのレベルでクリックが起動されます。ですが、チェックボックスがチェックされると、イベントは IconClick より先には伝わりません。

     Begin_Com Role(*EXTENDS #PRIM_WEB) Theme(#SYS_THEME) Height(592) Width(744) LayoutManager(#Layout1) 

        Define_Com Class(#PRIM_TBLO) Name(#Layout)
        Define_Com Class(#PRIM_TBLO.Column) Name(#LayoutRow1) DisplayPosition(1) Parent(#Layout)
        Define_Com Class(#PRIM_TBLO.Row) Name(#LayoutColumn1) DisplayPosition(1) Parent(#Layout)
        Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutItem1) Alignment(CenterLeft) Column(#LayoutRow1) Manage(#ListPrimaryText) MarginLeft(16) MarginRight(16) Parent(#Layout) Row(#LayoutColumn1) Sizing(ContentHeightFitToWidth) 

        Define_Com Class(#PRIM_TBLO) Name(#Layout1)
        Define_Com Class(#PRIM_TBLO.Row) Name(#Layout1Row1) DisplayPosition(1) Parent(#Layout1)
        Define_Com Class(#PRIM_TBLO.Column) Name(#Layout1Column1) DisplayPosition(1) Parent(#Layout1) 
   
        Define_Com Class(#PRIM_MD.List) Name(#List) DisplayPosition(1) LayoutManager(#Layout) Left(16) Parent(#COM_OWNER) RowHeight(48) TabPosition(1) TabStop(False) ThemeDrawStyle('Card') Top(176) Height(249)
        Define_Com Class(#PRIM_MD.ListLabel) Name(#ListPrimaryText) Caption('Single line item') CaptionAlignment(CenterLeft) DisplayPosition(3) Height(19) Left(16) Parent(#List) TabPosition(3) TabStop(False) ThemeDrawStyle('Heading3') Top(15) Width(246) 

        Define_Com Class(#PRIM_MD.CheckBox) Name(#HandleIconClick) Caption('Handle Icon Click') CheckState(Checked) DisplayPosition(2) Left(304) Parent(#COM_OWNER) TabPosition(2) Top(176) Width(241) Height(33)
        Define_Com Class(#PRIM_MD.Edit) Name(#Check) DisplayPosition(1) Label('Check') Left(16) Parent(#Panel) TabPosition(1) Top(15) Icon('Check') PromptIcon('search')
        Define_Com Class(#PRIM_PANL) Name(#Panel) DisplayPosition(3) Height(140) Left(8) Parent(#COM_OWNER) TabPosition(3) TabStop(False) Top(5) Width(441) ThemeDrawStyle('AlternateItem') 

        Define_Com Class(#Prim_timr) Name(#Timer) Interval(2000) Startup(Manual) 

        Evtroutine Handling(#Check.IconClick) Handled(#Handled) 

           #Handled := (#HandleIconClick.CheckState = Checked)
           #Com_self.AddEntry( "Check IconClick" ) 

        Endroutine 

        Evtroutine Handling(#Check.PromptIconClick) Handled(#Handled) 
  
           #Handled := (#HandleIconClick.CheckState = Checked)
           #Com_self.AddEntry( "Check PromptIconClick" ) 

        Endroutine 

        Evtroutine Handling(#Panel.Click) 

           #Com_self.AddEntry( "Panel" ) 

        Endroutine 
  
        Evtroutine Handling(#Com_Owner.Click) 

           #Com_self.AddEntry( "Page" ) 

        Endroutine 

        Mthroutine Name(AddEntry)
           Define_Map For(*Input) Class(#Prim_str) Name(#Text) 

           Add_Entry To_List(#List)
           #ListPrimaryText.CurrentItem.Caption := #Text 

           #Timer.Start 

        Endroutine 

        Evtroutine Handling(#Timer.Tick) 

           #Timer.Stop
           Clr_List Named(#List) 

        Endroutine 

     End_Com


参照

すべてのコンポーネント クラス
テクニカルリファレンス

  • No labels