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

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

    HandleEvent
    cmInit:
    {
    inherited::handleEvent(cmInit);       
    cfsSetCurrentContainer('L_ADVREP::DOGURGENT');

       cfsSetProp('BRURGENTM', cfpRectB_Y ,17); // было 20
       cfsCreateObject('screen', 'L_ADVREP::DOGURGENT', 'scrPrint', FALSE, scrPrint); // создали скрин с нужными размерами
       cfsSetProp ( scrPrint, cfpRectA_X, 1 );
       cfsSetProp ( scrPrint, cfpRectA_Y, 18 );
         cfsSetProp ( scrPrint, cfpRectB_X, 115 );
       cfsSetProp ( scrPrint, cfpRectB_Y, 19);
       cfsSetProp ( scrPrint, cfpVisible,TRUE);       

       cfsCreateObject('button', 'scrPrint', 'ButPrint', FALSE, ButPrint);//создали кнопку 
       cfsSetProp ( ButPrint, cfpOrigin_X, 17 );
       cfsSetProp ( ButPrint, cfpOrigin_Y, 10 );
       cfsSetProp ( ButPrint, cfpSize_X, 119 );
       cfsSetProp ( ButPrint, cfpSize_Y, 29 );

       cfsSetProp ( ButPrint, cfpCommand, cmPrintMes );
       cfsSetProp ( ButPrint, cfpTitle, 'ПЕЧАТЬ' );

    }
    cmPrintMes:
    {
      Message('Print?',0);
    }

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

#component 'm_mnplan'
  const
    cmMyTestButton = 9987;
  end;
alter interface irmnplan;
overload end;
HandleEvent
  cmInit: {
    inherited::handleevent(cmInit);
    Message('cfsGetCurrentContainerSelf = '+cfsGetCurrentContainerSelf);
   if (cfsSetCurrentContainer('M_MNPLAN::IRMNPLAN') <> cfOk) {                  // <- Здесь ошибка!!!
     Message(''#3'Ошибка установки корневого контейнера', Error);
     Exit;}
    var l: longint;
    if ( cfsCreateObject('Button', 'IRMNPLAN', 'cmMyTestButton', False, l) = cfErrCreateObjectError) {
    Message(''#3'Ошибка создания объекта', Error);
    Exit;
    }
    cfsSetProp(l, cfpOrigin_X, 5);
    cfsSetProp(l, cfpOrigin_Y, 110);
    cfsSetProp(l, cfpSize_X, 140);
    cfsSetProp(l, cfpSize_Y, 25);
    cfsSetProp(l, cfpTitle, 'TestButton');
    cfsSetProp(l, 'Command', cmMyTestButton);

  }
  cmMyTestButton: {message('gotcha!');
  }
  end;
end.

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

#component 'm_mnplan'
  const
    cmMyTestButton = 9987;
  end;
alter interface IRSPMNPLAN;
overload end;
HandleEvent
  cmInit: {
    inherited::handleEvent(cmInit);
    cfsSetCurrentContainer('M_MNPLAN::IRSPMNPLAN');

       cfsSetProp('SCRMNPLAN', cfpRectB_X ,100); // было 111  < - Здесь ошибка!!
       cfsCreateObject('screen', 'M_MNPLAN::IMNPLANEDIT', 'scrPrint', FALSE, scrPrint); // создали скрин с нужными размерами
       cfsSetProp ( scrPrint, cfpRectA_X, 101 );
       cfsSetProp ( scrPrint, cfpRectA_Y, 1 );
       cfsSetProp ( scrPrint, cfpRectB_X, 110 );
       cfsSetProp ( scrPrint, cfpRectB_Y, 6);
       cfsSetProp ( scrPrint, cfpVisible,TRUE);

       cfsCreateObject('button', 'scrPrint', 'ButPrint', FALSE, ButPrint);//создали кнопку
       cfsSetProp ( ButPrint, cfpOrigin_X, 17 );
       cfsSetProp ( ButPrint, cfpOrigin_Y, 2 );
       cfsSetProp ( ButPrint, cfpSize_X, 109 );
       cfsSetProp ( ButPrint, cfpSize_Y, 5 );

       cfsSetProp ( ButPrint, cfpCommand, cmPrintMes );
       cfsSetProp ( ButPrint, cfpTitle, 'ПЕЧАТЬ' );
  }
  cmMyTestButton: {message('gotcha!');
  }
  end;
end.

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

#component "M_MNPLAN"
const
 cmButSP1=121129;
end;
alter interface IRSPMNPLAN;
var ButSP1: longint;
overload Function InitVidWindow : Boolean; end;
   Function InitVidWindow : Boolean; {
      inherited::InitVidWindow;
      if PWORKTYPE=17
	  {
		cfsSetCurrentContainer('SCRMNPLAN');
   	  if  cfsCreateObject ('button','SCRMNPLAN','ButSP1',true,ButSP1)=0
              {
 	    cfsCreateObject ('button','SCRMNPLAN','ButSP1',false,ButSP1)
	    cfsSetProp('ButSP1','Origin_X',950);
	    cfsSetProp('ButSP1','Origin_Y',3);
	    cfsSetProp('ButSP1','Size_X',185);
	    cfsSetProp('ButSP1','Size_Y',25);
	    cfsSetProp('ButSP1','Title','Текст кнопки');
	    cfsSetProp('ButSP1','StatusCtx',sci13Esc);
	    cfsSetProp('ButSP1','Command',cmButSP1);
            }
         }
     }
handleevent
 cmButSP1:{
                   message('Надавили на батон :-)')
		}

	end;
end.

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

#Component "L_BASEDOC"
#include Galnet.inc
alter interface VSCHETB;
window WVSCHET;
  const
    cmBut = 9987;
    cmPanelInput = 11111;
  end;
  HandleEvent
  cmInit:
  {
    inherited::handleEvent(cmInit);
    if (cfsSetCurrentContainer('L_BASEDOC::vschetb') <> cfOk) {                 
    Message(''#3'Ошибка установки контейнера L_BASEDOC::vschetb', Error);
    Exit;}
    var l1, l2: longint;
    cfsCreateObject('Button', 'SCVSCHET', 'cmMnPlan', False, l1);
    cfsSetProp(l1, cfpOrigin_X, 278);
    cfsSetProp(l1, cfpOrigin_Y, 201);
    cfsSetProp(l1, cfpSize_X, 77);
    cfsSetProp(l1, cfpSize_Y, 19);
    cfsSetProp(l1, cfpTitle, 'Кнопка');
    cfsSetProp(l1, 'Command', cmBut);
   if cfsCreateObject('PanelInputLine', 'SCVSCHET', 'cmPanelInput', FALSE, l2) = cfErrCreateObjectError
     {
        Message(''#3'Ошибка создания cPanelInput, cfErrCreateObjectError = '+cfErrCreateObjectError, Error);
     }
   cfsSetProp(l2,'Size_X',179);
   cfsSetProp(l2,'Size_Y',12);
   cfsSetProp(l2,'Origin_X', 359);
   cfsSetProp(l2,'Origin_Y', 204);
   if cfsSetProp(l2, 'StatusCtx', sci1378Esc) <> cfOk then message(''#3'Ошибка StatusCtx', Error);
   if cfsSetProp(l2, 'pickButton', cmPick)    <> cfOk then message(''#3'Ошибка pickButton', Error); ;
  }
  cmBut:
  {
    message('gotcha!');
   }
  cmPanelInput:
  {
  }
  end;
end;
end.