Закладки

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Alexander
Местный житель
Сообщения: 248
Зарегистрирован: 28 ноя 2006, 13:29

Закладки

Сообщение Alexander »

Не пойму как на одной закладке расположить 2 Browse, например....
Подскажите, плз, с маленьким примером... :)
Алексей
Местный житель
Сообщения: 2896
Зарегистрирован: 24 июн 2005, 12:12
Откуда: Иркутская область

Сообщение Алексей »

browse b1
show at(x,y,x,y) // верхний левый угол, нижний правый
.......................
end;
Alexander
Местный житель
Сообщения: 248
Зарегистрирован: 28 ноя 2006, 13:29

Сообщение Alexander »

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

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

tabbedsheet tb;
   browse b1;
   end;
   browse b2;
   end;
end;
делает 2 закладки.....
Алексей
Местный житель
Сообщения: 2896
Зарегистрирован: 24 июн 2005, 12:12
Откуда: Иркутская область

Сообщение Алексей »

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

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;
Alexander
Местный житель
Сообщения: 248
Зарегистрирован: 28 ноя 2006, 13:29

Сообщение Alexander »

сделал 2 закладки....
Max_Fin
На пенсии
Сообщения: 797
Зарегистрирован: 29 мар 2005, 17:49
Откуда: г. Тюмень
Контактная информация:

Сообщение Max_Fin »

На одной закладке можно расположить несколько объектов только при использовании встоенных интерфейсов.
Жду выхода Вселенная 2.12!
san
Местный житель
Сообщения: 412
Зарегистрирован: 28 апр 2005, 11:34
Откуда: Галактика Млечный Путь

Сообщение san »

Max_Fin, встоенных интерфейсов, это что значит?
Gameus_
Местный житель
Сообщения: 209
Зарегистрирован: 18 окт 2006, 17:03
Откуда: Ростов на Дону Новочеркасск Новороссийск
Контактная информация:

Сообщение Gameus_ »

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

http://www.tyumbit.ru/gal_forum/viewtop ... ocpick+txt
Alexander
Местный житель
Сообщения: 248
Зарегистрирован: 28 ноя 2006, 13:29

Сообщение Alexander »

а можно коротенькие пример встраивания своего интерфейса, с закладкой... Плиз!
Max_Fin
На пенсии
Сообщения: 797
Зарегистрирован: 29 мар 2005, 17:49
Откуда: г. Тюмень
Контактная информация:

Сообщение Max_Fin »

Создание встраиваемого интерфейса ни чем не отличается от разработки обычного интерфейса. Для него создается 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.
Жду выхода Вселенная 2.12!
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

а что panel не прокатит? а в panel несколько объектов.
вроде формат в TabbedSheet я так переключал - хотя давно это было.
Алексей
Местный житель
Сообщения: 2896
Зарегистрирован: 24 июн 2005, 12:12
Откуда: Иркутская область

Сообщение Алексей »

edward_K
в панель можно делать несколько, причем мешать и браузеры и скрины.
Alexander
Местный житель
Сообщения: 248
Зарегистрирован: 28 ноя 2006, 13:29

Сообщение Alexander »

Алексей
А можно хотя бы "рыбу" как делать????
целый день вчера убил зря...
Алексей
Местный житель
Сообщения: 2896
Зарегистрирован: 24 июн 2005, 12:12
Откуда: Иркутская область

Сообщение Алексей »

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

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

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

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

end; // browse
end; // panel
Alexander
Местный житель
Сообщения: 248
Зарегистрирован: 28 ноя 2006, 13:29

Сообщение Alexander »

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

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

<панель с вкладками> ::=
tabbedsheet [<позиция переключателя>] <имя> [;]
[<координаты>]
[<лист>]
{ <таблица>
| <экран>
| <редактор мемо-поля>
| <окно перехода>
| <обработчик событий>
}
end [;]
что такое [<лист>]??? и как его записать???
Хелп такой, что хочется составителей расстрелять, честное слово...
:-(
Похоже, что только один объект можно на странице использовать.... млин... :-((
Последний раз редактировалось Alexander 05 дек 2006, 08:33, всего редактировалось 1 раз.
Ответить