|
|
| 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;
««
