2 respuestas en este tema

[TiammatMX]

¡¡Éjele que pensaron "TiammatMX no puso pregunta rara ésta semana"!!..., pues les falló, jóvenes.

Tengo un TCheckListBox que lleno con ésta rutinita:

delphi

procedure TfrmContenedor.LlenaDocumentos(sConsPac: string);
var
  iIndice : integer;
begin
  with qryDocumentos do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select C42_Documento_STR, '+
            'case when C42_Documento_ID In (Select C42_Documento_ID from HY1_Documentos_Pac where (E2_Ctrl_Pac = '+sConsPac+')) then 1 else 0 end as Existe, '+
            'case when C42_Documento_ID In (Select C42_Documento_ID from HY11_DocumentosPacElec where (E2_Ctrl_Pac = '+sConsPac+')) then 1 else 0 end as Guardado '+
            'from C42_TSDocumentos;');
    Open;
    if RecordCount > 0 then
    begin
      chklstDocumentos.Items.Clear;
      chklstDocumentos.Enabled := True;
      First;
      while NOT Eof do
      begin
        with chklstDocumentos do
        begin
          Items.Add(FieldValues['C42_Documento_STR']);
          iIndice := Items.Count -1;
          if FieldValues['Existe'] then
            Checked[iIndice] := True;
 
        end;
        Next;
      end;
    end;
  end;
end;

Ahora, el problema es que cuando el valor del campo "Guardado" sea igual a 1, debo cambiar el color de éste ítem por cualquier otro que me apetezca..., ¿alguna idea? ¿Sugerencias?

Como siempre, agradecido de antemano.

[cadetill]

Buenas,

Es sencillo. Sólo establece la propiedad Style a lbOwnerDrawVariable y programa el evento OnDrawItem con algo así

delphi

procedure TForm1.CheckListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  if CheckListBox1.Checked[Index] then
    CheckListBox1.Canvas.Brush.Color := clRed
  else
    CheckListBox1.Canvas.Brush.Color := clWhite;
  CheckListBox1.Canvas.FillRect(Rect);
  CheckListBox1.Canvas.TextOut(Rect.Left, Rect.Top, CheckListBox1.Items[Index]);
end;

Lo suyo es tener en cuenta si el Item está o no seleccionado para darle el color pertinente, pero eso ya te lo dejo a ti ;-)

Nos leemos

[TiammatMX]

Buenas,

Es sencillo. Sólo establece la propiedad Style a lbOwnerDrawVariable y programa el evento OnDrawItem con algo así

delphi

procedure TForm1.CheckListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  if CheckListBox1.Checked[Index] then
    CheckListBox1.Canvas.Brush.Color := clRed
  else
    CheckListBox1.Canvas.Brush.Color := clWhite;
  CheckListBox1.Canvas.FillRect(Rect);
  CheckListBox1.Canvas.TextOut(Rect.Left, Rect.Top, CheckListBox1.Items[Index]);
end;

Lo suyo es tener en cuenta si el Item está o no seleccionado para darle el color pertinente, pero eso ya te lo dejo a ti ;-)

Nos leemos

Pues es como la Sección Amarilla: Sí funciona y funciona muy bien. Gracias, Cadetill...

delphi

procedure TfrmContenedor.chklstDocumentosDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
  with chklstDocumentos do
  begin
    if lblExpediente.Caption <> '' then
    begin
      if RevisaContenido(Texto2ID(Items.Strings[Index]),lblExpediente.Caption) then
        Canvas.Font.Color := clGrayText
      else
        Canvas.Font.Color := clWindowText;
 
      Canvas.FillRect(Rect);
      Canvas.TextOut(Rect.Left, Rect.Top, Items[Index]);
    end;
  end;
end;