Галактика в вопросах и ответах

Не пойму как на одной закладке расположить 2 Browse, например....
Подскажите, плз, с маленьким примером...

browse b1
show at(x,y,x,y) // верхний левый угол, нижний правый
.......................
end;

не в этом дело...

tabbedsheet tb;
   browse b1;
   end;
   browse b2;
   end;
end;

делает 2 закладки.....

так тоже не работает?

tabbedsheet tb;
show at(1,1,100,20)
browse b1;
show at(2,2,99,9)
end;
browse b2;
show at(1,10,99,19)
end;
end;

сделал 2 закладки....

На одной закладке можно расположить несколько объектов только при использовании встоенных интерфейсов.

Max_Fin, встоенных интерфейсов, это что значит?

Если правильно понял -
Список стандартных интерфейсов выбора Галактики - описано в DoPick.txt

http://www.tyumbit.ru/gal_forum/viewtop ... ocpick+txt

а можно коротенькие пример встраивания своего интерфейса, с закладкой... Плиз!

Создание встраиваемого интерфейса ни чем не отличается от разработки обычного интерфейса. Для него создается vih, который потом будет использоваться в интерфейсе в который предполагается встроить интерфейс.

Небольшой пример.

Заголовочный файл testemb.vih

Код: Выделить всё

#ifndef _TESTEMB_
#define _TESTEMB_

objinterface ITestEmb;
  procedure MsgTest;
end;

vipinterface TestEmb implements ITestEmb
#ifdef ATL51
#end
;
#end

Встроеный интерфейс testemb.vip

Код: Выделить всё

#include testemb.vih
interface TestEmb 'Встраиваемый интерфейс'
          (,,sci1Esc) EscClose, Blue; 
show at (,,70,15);

create view
as select * 
from
  KatOrg, BaseDoc
where
((
  Word(101) == BaseDoc.VidDoc and
  KatOrg.nRec == BaseDoc.cOrg
));                                                                  	

Browse brwOrg 'Организации';
show at (,,,7);
table KatOrg;
fields
  KatOrg.Name 'Контрагент' ('Контрагент'): [50], Protect;
end;

Browse brwSopr 'Накладная';
show at (,8,,);
table BaseDoc;
fields
  BaseDoc.NoDoc 'Номер' ('Номер'): [15], Protect;
  BaseDoc.dDoc 'Дата' ('Дата'): [15], Protect;
  BaseDoc.Name 'Примечание' ('Примечание'): [40], Protect;
end;

PUBLIC procedure MsgTest;
{
  Message('Здесь я', Information);
}

HandleEvent
cmInit:
{
}
cmDone:
{
}
cmOnVipLoad:
{
}
cmOnVipUnload:
{
}
end;

end.

Интерфейс с 2-мя закладками

Код: Выделить всё

#include testemb.vih
interface TESTIT 'Использование встроенного интерфейса'
          (,,sci1Esc) EscClose, Blue; 
Show at (,,50,15);

create view
var
  TE: ITestEmb;
;

TabbedSheet TOP tshMain;
Show at (,,,);

Screen scrMain 'Основная';
Show at(,,,);
Buttons
  cmMSG,,,'';
<<

      <. Получить сообщение .>

>>
end;

Embedded brwOrgBDoc 'Встроенный интерфейс' interface TE
show (,,,) 
end;

end;

HandleEvent
cmInit:
{
  LoadVipRef(TE, 'TestEmb');
  if NullVipRef(TE)
  {
    Message('Ошибка загрузки встроенного интерфейса', Error);
    Abort;
    Exit;
  }
}
cmDone:
{
  if not NullVipRef(TE)
    FreeVipInterface(TE);
}
cmMSG:
{
  TE.MsgTest;
}
end;

end.

а что panel не прокатит? а в panel несколько объектов.
вроде формат в TabbedSheet я так переключал - хотя давно это было.

edward_K
в панель можно делать несколько, причем мешать и браузеры и скрины.

Алексей
А можно хотя бы "рыбу" как делать????
целый день вчера убил зря...

edward_K
Alexander
так. извините.

я панелями пользовался без TabbedSheet.
как с ними работать будет - не заню

попробуйте перед объявлением браузера сделать ещё панель
panel p1
browse br1

..................

end; // browse
end; // panel

не катит....
tabbedsheet автоматом вытаскивает скрины, таблицы и т.п. и запихивает по разным закладкам...
Из хелпа:

Код: Выделить всё

<панель с вкладками> ::=
tabbedsheet [<позиция переключателя>] <имя> [;]
[<координаты>]
[<лист>]
{ <таблица>
| <экран>
| <редактор мемо-поля>
| <окно перехода>
| <обработчик событий>
}
end [;]

что такое [<лист>]??? и как его записать???
Хелп такой, что хочется составителей расстрелять, честное слово...

Похоже, что только один объект можно на странице использовать.... млин...

(

Галактика в вопросах и ответах

Закладки

Закладки