PROGRAM Colors;
{-- ***************************************************************************
 -- ** Descr. : This script shows how to extract/change the colors
 -- **          of a forms module.
 -- **
 -- ** MINVERS: requires FormsAPI Master 1.0 Build 284 and up
 -- ***************************************************************************
 -- ** 05/04/05 1.001.00 Initial Creation, muellers@orcl-toolbox.com
 -- ***************************************************************************}


{*Global Variable Declaration*}
VAR
  col : TOracleFormsColorAPI;
  i : integer;

{*Main Program Block*}
BEGIN

  //load the test module
  col := API_GetFormsmoduleColors (C_FAPIMASTERDIR+'test.fmb');

  //output all color info to the log
  for i := 0 to col.count-1 do
  begin
    logadd( col.colorname[i] + ' r:'+to_char(col.red[i]) + ' g:'+to_char(col.green[i]) + ' b:'+to_char(col.blue[i])  );
  end;

  //color at index 1 is usually white - change it to pink by setting the red
  //content a bit lower.
  col.red[1] := 32768;

  //save it under a new name
  col.saveform(C_FAPIMASTERDIR+'test_newcol.fmb');

  //release the object from memory
  col.free;

END.