Table of Content
HAL Forum
procedure EndDrawer (
)
Description:
Will end drawer that has been created with BeginDrawer. Only usable with MacOS X. Used inside WindowBegin/EndWindow block.
event DefineWindows
begin
  real x,h,h1,h2,h3,h4,h5,h6,h7,hs,v,v2,l,vs,vm,vm2,f,t,hw;
  
  SetLangMode(LangEnglish,"ENG",0);

  WindowBegin("Note",NotepadDClass,CGview,NotepadView);
  UseView(NotepadVc);
  SetWRect(130,80,570,350);
  BrowseButtons(false);
  Sizeable(-1,-1,0,0);
  MailBackground;
//  EditField(60,6,82,"No.",ViewOnly,SerNr,false,TSerSClass);
  if (GuiType==kGuiCocoa) then begin
    SoftEditField(65,6,-17,"Comment",Normal,"NotepadRLinkComment",false,0,M4Str,255);
    TextField(0,29,-1,-1,Math,0);
    BeginDrawer(200,300);
    h = 100;
    EditField(h,6,82,"Language",Normal,LangCode,false,LangSClass);
    EditField(h,26,82,"Classification",Normal,Classification,false,0);
    EndDrawer;
  end else begin
    TextField(10,6,-21,-70,Math,0);
    h = 100;
    SoftEditField(h,-63,-40,"Comment",Normal,"NotepadRLinkComment",false,0,M4Str,255);
    EditField(h,-43,82,"Language",Normal,LangCode,false,LangSClass);
    EditField(h,-23,82,"Classification",Normal,Classification,false,0);
  end;
  EndWindow;
  return;
end;
Related topics:
««