Inicializando o IWForm com alguns controles desabilitados

Continuação do artigo Delphi Intraweb – JavaScript II (Continua)

Eu tenho no IWForm dois IWComboBoxes (CMBTIPOEMAIL e IWComboBox1) e um IWEdit (EDTEMAIL).
Podemos definir na propriedade “ExtraTagParams” valores específicos para cada tag original de um controle Intraweb. Por exemplo:

procedure TZnIWForm.DesabilitaControles;
begin
  IWComboBox1.ExtraTagParams.Add('disabled="true"');
  IWComboBox1.ExtraTagParams.Add('style=background:#E7E7E7');

  EDTEMAIL.ExtraTagParams.Add('disabled="true"');
  EDTEMAIL.BgColor := RGB(231, 231, 231);
  CMBTIPOEMAIL.ExtraTagParams.Add('disabled="true"');
  CMBTIPOEMAIL.ExtraTagParams.Add('style=background:#E7E7E7');
end;

No trecho de código acima, na linha 3, definimos a propriedade “disabled” do objeto, select, que será criado na página HTML, referente ao controle VCL “IWComboBox1”.

Na linha 4, definimos a propriedade “style” do objeto, select, para que o “background” seja cinza.
.
Na linha 5, assim como fizemos na linha 3, definimos a propriedade “disabled” do objeto, input text, que será criado na página HTML, referente ao controle VCL “EdtMail”.
Na linha 6, definimos a cor do input através da propriedade “BgColor”. A função RGB, permite que possamos definir as cores usando números inteiros de 0 a 255 representando as 256 variações de intensidade no o padrão RGB (Red, Green, Blue). OBS: A função “RGB” está definida na unit “Windows”, portanto declare essa unit na seção “uses”.
OBS: Por falar em RGB achei esse artigo sobre converter, em Delphi, RGB para CMYK (Cyan, Magenta, Yellow, Black - Key Plate), se é isso que vc procura veja em(http://delphi.about.com/od/delphitips2007/qt/rgb_cmyk.htm).

Agora, mais uma vez no evento OnCreate do IWForm faça a chamada a este novo método:

procedure TZnIWForm.IWAppFormCreate(Sender: TObject);
begin
  LoadCmbTipoEmail;
  DesabilitaControles;

IWComboBox



Adicione ao IWForm um IWComboBox (Palheta IWStandard). Em seguida codificaremos um método que irá preenchê-lo. Vou declarar uma seção “private” na definição da classe do IWForm. Nesta seção vou codificar o cabeçalho do método “LoadComboBandas”:

  procedure LoadComboBandas;

Codificando o corpo do procedimento ..

procedure TZnIWForm.LoadComboBandas;
begin
  IWComboBox1.Items.Add('Police');
  IWComboBox1.Items.Add('Man At Work');
  IWComboBox1.Items.Add('Pealr Jam');
  IWComboBox1.Items.Add('The Smith');
  IWComboBox1.Items.Add('U2');
  IWComboBox1.Items.Add('Dire Straits');
  IWComboBox1.Items.Add('Siouxsie & the Banshees');
end;

No evento OnCreate do IWForm você pode fazer chamada a este método.

procedure TZnIWForm.IWAppFormCreate(Sender: TObject);
begin
  LoadCmbTipoEmail;
  DesabilitaControles; 
  (*excuta a chamada ao método que carrega a IWCombo Bandas de Rock*)
  LoadComboBandas;
end;

Continua em ...