|
|
|
код Delphi переписать на Builder
|
|||
|---|---|---|---|
|
#18+
Есть пример в Help procedure TForm1.AddAnyItemClick(Sender: TObject); var ABarManager : TdxBarManager; ABar : TdxBar; begin ABarManager := GetBarManagerByForm(Form1); with ABarManager do begin ABar := BarByCaption('Custom 1'); if ABar <> nil then begin BeginUpdate; try with ABar.ItemLinks.AddItem(TdxBarEdit) do //-----------?? begin Item.Caption := 'TextEdit'; TdxBarEdit(Item).ShowCaption := True; end; finally EndUpdate; end; end; end; end; Непонятно как это будет на Builder C, особенно интересует помеченная вопросом строка Если впрямую назвать имя типа, то транслятор С пишет Improper use of typedef 'TdxBarEdit' Описание метода выглядит так: Creates an instance of the AItemClass item and a link to it and appends this link to the current collection. type TdxBarItemClass = class of TdxBarItem; function AddItem(AItemClass: TdxBarItemClass): TdxBarItemLink; ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 31.08.2007, 13:49 |
|
||
|
код Delphi переписать на Builder
|
|||
|---|---|---|---|
|
#18+
Gwa Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. я е компилил, но по идее так Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 31.08.2007, 21:10 |
|
||
|
код Delphi переписать на Builder
|
|||
|---|---|---|---|
|
#18+
Gwa procedure TForm1.AddAnyItemClick(Sender: TObject); var ABarManager : TdxBarManager; ABar : TdxBar; begin ABarManager := GetBarManagerByForm(Form1); ... end; а это по идее так: Код: plaintext 1. 2. 3. 4. 5. 6. 7. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 31.08.2007, 21:13 |
|
||
|
|

start [/forum/topic.php?fid=57&gotonew=1&tid=2028272]: |
0ms |
get settings: |
7ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
177ms |
get topic data: |
6ms |
get first new msg: |
4ms |
get forum data: |
2ms |
get page messages: |
26ms |
get tp. blocked users: |
1ms |
| others: | 230ms |
| total: | 466ms |

| 0 / 0 |
