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もうまく実装できていません。

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

それでは!

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

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

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

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

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

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

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

KirgrotlyKirgrotly 2018/04/25 03:53 Feline 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

WilliamniGWilliamniG 2019/02/02 09:55 cialis 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

WilliamniGWilliamniG 2019/02/02 09:55 cialis 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

WilliamniGWilliamniG 2019/02/02 09:56 cialistpassword 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

ArnoldBaictArnoldBaict 2019/02/05 18:00 adderall 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>

ArnoldBaictArnoldBaict 2019/02/05 18:00 cialis 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>

ArnoldBaictArnoldBaict 2019/02/05 18:02 donde 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>

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

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

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

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

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

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

AfrasiaAfrasia 2019/03/06 22:17 Dear 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

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

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

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

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

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

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

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

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

ゲスト



トラックバック - http://nadesiko.g.hatena.ne.jp/zuzu_sion/20071015