|
Revision 28703, 0.8 kB
(checked in by isaisstillalive, 4 years ago)
|
- ComboBox::BaseとListBox::Baseの意味的な違いがわかりづらくなってしまっていたので、「実装」の意味を込めてComboBox::Implementationにリネーム。「Base」は型(+実装)継承、「Implementation」は実装継承とする。
|
| Line | |
|---|
| 1 | module Ruwin
|
|---|
| 2 | class ComboBox < Control
|
|---|
| 3 | module Implementation
|
|---|
| 4 | include ListBox::Base
|
|---|
| 5 | include Const::ComboBox
|
|---|
| 6 |
|
|---|
| 7 | CLASS_NAME = "COMBOBOX"
|
|---|
| 8 |
|
|---|
| 9 | GETCOUNT = CB_GETCOUNT
|
|---|
| 10 | ADDSTRING = CB_ADDSTRING
|
|---|
| 11 | INSERTSTRING = CB_INSERTSTRING
|
|---|
| 12 | DELETESTRING = CB_DELETESTRING
|
|---|
| 13 | RESETCONTENT = CB_RESETCONTENT
|
|---|
| 14 | GETTEXTLEN = CB_GETLBTEXTLEN
|
|---|
| 15 | GETTEXT = CB_GETLBTEXT
|
|---|
| 16 | GETCURSEL = CB_GETCURSEL
|
|---|
| 17 | SETCURSEL = CB_SETCURSEL
|
|---|
| 18 | FINDSTRING = CB_FINDSTRING
|
|---|
| 19 | FINDSTRINGEXACT = CB_FINDSTRINGEXACT
|
|---|
| 20 | ERR = CB_ERR
|
|---|
| 21 | end
|
|---|
| 22 |
|
|---|
| 23 | include Implementation
|
|---|
| 24 | STYLE = superclass::STYLE|CBS_SIMPLE
|
|---|
| 25 |
|
|---|
| 26 | class Dropdown < ComboBox
|
|---|
| 27 | STYLE = superclass::STYLE&~CBS_SIMPLE|CBS_DROPDOWN
|
|---|
| 28 | end
|
|---|
| 29 | end
|
|---|
| 30 | end
|
|---|