• Introduction
  • What is HAL?
  • Get Started
  • Language Reference
    • Declarations, assignments and statements
    • Keywords and operations
• Tutorials
  • Change a window
    • Find the window
    • Modify the window
  • Create a report
• HAL Primitives
• HAL Procedures/Functions
• HAL Discussions

Description:

returns string code by string from system string sets

Parameters:
setcode	system string set code: -1 - Modules, -2 - Registers, -3 - Settings
str	string

function Boolean TTRMapDClassFromRegisterEFAfter(Integer wn,Boolean changedf)
begin
  Boolean res;
  record TTRMapVc TTRMapr;
  
  res = true;
  if (changedf) then begin
    DeselectWindow(wn,false);
    GetWindowRecord(wn,TTRMapr);
    TTRMapr.FromFileName = StringSetFromString(-3,TTRMapr.FromRegister);
    PutWindowRecord(wn,TTRMapr);
  end;
  TTRMapDClassFromRegisterEFAfter = res;
  return;
end;

global
function Boolean TTRMapDClassAfterEditField(Integer wn,string fieldname,Integer fn,Integer rownr,Integer changed)
BEGIN
  Boolean res;
  
  res = true;
  switch (fieldname) begin
    case "FromRegister": res = TTRMapDClassFromRegisterEFAfter(wn,changed!=0);
  end;
  TTRMapDClassAfterEditField = res;
  RETURN;
END;

Related topics: