... := 1 local lCase := .t., lWord := .f. oNormal := TFont():New( "Arial", 0, 20,.F.,.F., 0, 0, 0,.F.,.F.) oNorway := TFont():New( "Norwegian", 0, 20,.F.,.F., 0, 0, 0,.F.,.F.) DEFINE DIALOG oDlg RESOURCE "Test" REDEFINE GET oFind VAR cFind1 ID 101 OF oDlg FONT oNormal ...