zuzuのなでしこ学習帳(主になでしこ自体の改造など) RSSフィード

2007-10-15[なでしこ]【未完成】(TSonEdit)vnakoへのコンポーネントの追加方法

どうもzuzuです。

一応ですが、vnakoへのコンポーネント追加が出来ましたので、ここで少しばかりやりかたを書こうと思います。

それではレッツゴー!

はTSonEditの追加方法を書こうと思います。

の一

vnako_function.pasのuses節へ追加したコンポーネント名を追加する。

はuses節に「SonEdit」を追加しました。

の二

const節の「VCL_GUI_BUTTON = 0;」とか書いている部分を書き加える。

どうやらここVCLに番号を振って管理しているようです。

は「VCL_GUI_ULABEL = 47;」に下に数字が出来るだけ被らないようにと「VCL_GUI_SONEDIT = 99;」を追加しました。

の三

functionのvcl_createに書き加えイベントを追加する。

の場合は「THiEdit」のイベントの下に追加しました。

    VCL_GUI_SONEDIT    :
      begin
        o := TSonEdit.Create(Bokan);
        with TSonEdit(o) do begin
          OnClick     := Bokan.eventClick;
          OnDblClick  := Bokan.eventDblClick;
          OnChange    := Bokan.eventChange;
          OnKeyDown   := Bokan.eventKeyDown;
          OnKeyPress  := Bokan.eventKeyPress;
          OnKeyUp     := Bokan.eventKeyUp;
          OnDragOver  := Bokan.eventDragOver;
          OnDragDrop  := Bokan.eventDragDrop;
        end;
      end;

ちなみにここで実際にコンポーネントの生成をしているので、初期設定なども追記しても良いと思います。

の四

functionのvcl_getpropに書き加える。

まあ実際、これはテキストプロパティを使えるようにするものです。

は、

VCL_GUI_SONEDIT : res := TSonEdit(obj).Text;

と書き加えました。

の五

functionのvcl_commandにコマンドを追加する。

  procedure _VCL_GUI_SONEDIT;
  var e: TSonEdit;
  begin
    e := TSonEdit(obj);
    if cmd = '文字書体GET' then begin Result := hi_var_new; hi_setStr(Result, e.Font.Name); end else
    if cmd = '文字書体SET' then begin setFontName(e.Font, hi_str(v)); end else
    if cmd = '文字サイズGET' then begin Result := hi_var_new; hi_setInt(Result, e.Font.Size); end else
    if cmd = '文字サイズSET' then begin e.Font.Size := hi_int(v); end else
    if cmd = '文字色GET' then setRes(Color2RGB(e.Font.Color))  else
    if cmd = '文字色SET' then e.Font.Color := RGB2Color( hi_int(v) ) else
    if cmd = '背景色取得' then setRes(Color2RGB(e.Color))  else
    if cmd = '背景色設定' then e.Color := RGB2Color(hi_int(v)) else
    if cmd = 'UNDO'  then e.Undo else
    if cmd = 'REDO'  then e.Redo else
    if cmd = 'COPY'  then e.TxtCopy    else
    if cmd = 'CUT'   then e.Cut     else
    if cmd = 'PASTE' then e.Paste else
    if cmd = 'SELECTALL' then e.SelectAll else
    if cmd = 'POPUP' then e.PopupMenu := TPopupMenu( hi_int(v) ) else
    //if cmd = 'GETROW' then setRes(0) else
    //if cmd = 'GETCOL' then setRes(e.SelStart) else
    //if cmd = 'SETROW' then  else
    if cmd = '編集設定' then e.ReadOnly := not hi_bool(v) else
    if cmd = '編集取得' then Result := hi_newBool(not e.ReadOnly) else
    //if cmd = 'IME取得' then Result := hi_newStr(e.GetImeStatus) else
    //if cmd = 'IME設定' then e.SetImeStatus := setControlIME(hi_str(v)) else
    ;
  end;

まあこんな感じに追加してみました。


さてのは未完成版です。

どこが未完成かというこれはTSonEditの場合のみのことで、さらにTSonEditもうまく実装できていません。

またこれから先、コンポーネント追加した場合は同じように書こうと思います。

それでは!

EnformaEnforma2012/09/13 08:44Thanks for the insight. It bnrigs light into the dark!

mzultyqmzultyq2012/09/14 01:24vy3VCs <a href="http://bxwxunxvvwdg.com/">bxwxunxvvwdg</a>

tjwyghqswbtjwyghqswb2012/09/14 05:58EvxvEL , [url=http://uwgybuegookl.com/]uwgybuegookl[/url], [link=http://oiqrsarrsbxq.com/]oiqrsarrsbxq[/link], http://gvufspszrslb.com/

wavglcnarwavglcnar2012/09/17 03:00J0GfD2 , [url=http://dqbixeuomhiu.com/]dqbixeuomhiu[/url], [link=http://zuaiwmmlbdac.com/]zuaiwmmlbdac[/link], http://okimqmkhagxw.com/

kfcznoyklzkfcznoyklz2014/06/05 22:57rkwjyobeftjlp, <a href="http://www.uadwwdeked.com/">aihpuilwyf</a>

pzvudlhnlbpzvudlhnlb2014/06/12 21:30iithfobeftjlp, http://www.ogdpnulfhj.com/ lclkvigrdv

azfzxypdzoazfzxypdzo2014/06/17 21:35ssmieobeftjlp, [url=http://www.acdzcktehj.com/]rjeokouais[/url]

KirgrotlyKirgrotly2018/04/25 03:53Feline Urinary Tract Infection And Amoxicillin isotretinoin 10mg no prior script Buy Viagra In Brisbane 58 <a href=http://ciali5mg.com>buy generic cialis online</a> Usa Levitra

WilliamniGWilliamniG2019/02/02 09:55cialis 20mg sans ordonnance a vendre
buying cialis in singapore
<a href=https://greatwinesgrandhouses.com>Cheap cialis buy online</a>
buy cialis from boots
cialis precio oficial
https://greatwinesgrandhouses.com
buy cialis online dubai
cialis every day review
<a href=https://kellyannehulme.com>buy cialis</a>
good place to buy generic cialis
cialis daily side effects
https://kellyannehulme.com

WilliamniGWilliamniG2019/02/02 09:55cialis by mail with prescription
acquistare cialis online con postepay
<a href=https://greatwinesgrandhouses.com>20 mg cialis buy</a>
aurochem cialis review
trusted cialis online
https://greatwinesgrandhouses.com
cialis 20mg bestellen
canadian online pharmacy for cialis
<a href=https://greatwinesgrandhouses.com>cialis</a>
cialis sales south africa
cialis on sale pay-pal
https://kellyannehulme.com

WilliamniGWilliamniG2019/02/02 09:56cialistpassword index
fake cialis
<a href=https://greatwinesgrandhouses.com>Cialis 20 mg cheap price</a>
cialis mdma
cialis for women does it work
https://greatwinesgrandhouses.com
liquid cialis reviews
once a day cialis cheap
<a href=https://greatwinesgrandhouses.com>Cheap cialis buy</a>
order cialis from canada
buy female cialis without prescription
https://greatwinesgrandhouses.com

ArnoldBaictArnoldBaict2019/02/05 18:00adderall mixed with cialis
best cialis online discount prices
<a href="http://cialisfurr.com">Buy Cialis Online</a>
cialis generico paypal
buy authentic cialis online
<a href="http://cialisfurr.com">Buy Cheap Cialis Online</a>
cialis doc morris
does aetna pay for cialis
<a href="http://cialistlm.com">Buy Cheap Cialis Online</a>

ArnoldBaictArnoldBaict2019/02/05 18:00cialis generique
cialis generico dove comprare
<a href="http://cialistlm.com">Cheap Cialis</a>
cheap cialis usa
free prescription drug low dose cialis
<a href="http://xcialisxx.com">buy cialis</a>
genuine brand name cialis
wo kann man cialis kaufen
<a href="http://cialistlm.com">buy cialis</a>

ArnoldBaictArnoldBaict2019/02/05 18:02donde comprar comprar cialis
buy cialis cape town
<a href="http://xcialisxx.com">Cheap Cialis buy</a>
generic cialis for daily use
cost of generic 5mg cialis
<a href="http://cialisfurr.com">Cheap Cialis buy</a>
cialis 100 mg prezzo
cialis 20 mg cost
<a href="http://cialisfurr.com">Cheap Cialis buy</a>

jlaestrrukjlaestrruk2019/02/21 02:57**31490678980410642 <a href="http://lookevision.org/forums/topic/ciprofloxacin-500mg-sale">ciprofloxacin 500mg sale</a> 779454615715 &&

jlaesteydhjlaesteydh2019/03/01 19:09**52671148550460825 <a href="http://lookevision.org/forums/topic/ciprofloxacin-500mg-sale">ciprofloxacin 500mg sale</a> 54395135744 &&

blaestrxyiblaestrxyi2019/03/01 22:10**107484966224370686 <a href="http://lookevision.org/forums/topic/ciprofloxacin-500mg-sale">ciprofloxacin 500mg sale</a> 984253747371 &&

tlaestwmdntlaestwmdn2019/03/02 01:11**8580418452646434 <a href="http://lookevision.org/forums/topic/ciprofloxacin-500mg-sale">ciprofloxacin 500mg sale</a> 275265776656 &&

mlaestyhjlmlaestyhjl2019/03/02 04:16**56947468724697804 <a href="http://lookevision.org/forums/topic/ciprofloxacin-500mg-sale">ciprofloxacin 500mg sale</a> 665267291385 &&

mlaestrhpnmlaestrhpn2019/03/02 07:10**827541571104245420 <a href="http://lookevision.org/forums/topic/ciprofloxacin-500mg-sale">ciprofloxacin 500mg sale</a> 355175370939 &&

AfrasiaAfrasia2019/03/06 22:17Dear Sir / Madam Here is nice offers for you. I want to offer the possibility of sending your commercial offers or messages through feedback forms. Mailing is made in the same way as you received this message.
Details on this link. http://bit.ly/2TWM22A
If you register using this link, you will receive a 20% discount on your first purchase. http://bit.ly/2GOMvku
Best wishes

olaestgthiolaestgthi2019/03/09 15:28**29247453825286276 <a href="http://lookevision.org/forums/topic/ciprofloxacin-500mg-sale">ciprofloxacin 500mg sale</a> 167719237151 &&

zlaestvfbizlaestvfbi2019/03/09 18:10**807909911582390779 <a href="http://lookevision.org/forums/topic/ciprofloxacin-500mg-sale">ciprofloxacin 500mg sale</a> 786232852 &&

qlaestaobyqlaestaoby2019/03/09 20:34**700938560301665545 <a href="http://lookevision.org/forums/topic/ciprofloxacin-500mg-sale">ciprofloxacin 500mg sale</a> 286213853678 &&

llaestfsywllaestfsyw2019/03/09 22:56**439327476937836720 <a href="http://lookevision.org/forums/topic/ciprofloxacin-500mg-sale">ciprofloxacin 500mg sale</a> 387783354878 &&

ezikenotofeezikenotofe2019/03/11 03:35http://theprettyguineapig.com/amoxicillin/ - Amoxicillin 500 Mg <a href="http://theprettyguineapig.com/amoxicillin/">Amoxicillin</a> http://theprettyguineapig.com/amoxicillin/

ukhixaalukhixaal2019/03/11 03:40http://theprettyguineapig.com/amoxicillin/ - Amoxicillin <a href="http://theprettyguineapig.com/amoxicillin/">Amoxicillin</a> http://theprettyguineapig.com/amoxicillin/

eyqiyaweyqiyaw2019/03/11 03:45http://theprettyguineapig.com/amoxicillin/ - Generic Amoxicillin 500 Mg <a href="http://theprettyguineapig.com/amoxicillin/">Amoxicillin Without Prescription</a> http://theprettyguineapig.com/amoxicillin/

oqudeditofipoqudeditofip2019/03/11 03:58http://theprettyguineapig.com/amoxicillin/ - Amoxicillin <a href="http://theprettyguineapig.com/amoxicillin/">Amoxil</a> http://theprettyguineapig.com/amoxicillin/