Largura do ComboBox

Question

Massuda · Answer

Este c�digo faz o ajuste da largura do dropdown de um combobox de modo que o texto dos itens � sempre totalmente vis�vel...

procedure AjustarLargura(ComboBox: TComboBox);
var
  I: Integer;
  TextLen: LongInt;
  lf: LOGFONT;
  f: HFONT;
  w: Integer;
begin
  FillChar(lf, SizeOf(lf), 0);

  StrPCopy(lf.lfFaceName, ComboBox.Font.Name);
  lf.lfHeight := ComboBox.Font.Height;
  lf.lfWeight := FW_NORMAL;
  if fsBold in ComboBox.Font.Style then begin
    lf.lfWeight := lf.lfWeight or FW_BOLD;
  end;
  f := CreateFontIndirect(lf);
  if f <> 0 then begin
    try
      ComboBox.Canvas.Handle := GetDC(ComboBox.Handle);
      SelectObject(ComboBox.Canvas.Handle, f);
      try
        w := 0;
        for I := 0 to Pred(ComboBox.Items.Count) do begin
          TextLen := ComboBox.Canvas.TextWidth(ComboBox.Items[I]);
          if TextLen > w then begin
            w := TextLen;
          end;
        end;
        Inc(w, GetSystemMetrics(SM_CYVTHUMB) + GetSystemMetrics(SM_CXVSCROLL));

        SendMessage(ComboBox.Handle, CB_SETDROPPEDWIDTH, w, 0);
      finally
        ReleaseDC(ComboBox.Handle, ComboBox.Canvas.Handle);
      end;
    finally
      DeleteObject(f);
    end;
  end;
end;

A procedure n�o trata o caso de encontrar uma largura muito grande (por exemplo, maior que a tela)... no meu caso isso n�o era problema pois eu sabia a priori o que seria exibido no combobox, mas pode ser problema no seu caso.

Marco Salles · Answer

eu n�o testei o seu c�digo n�o massuda , mas acredito que ele deve funcionar

Mas ha pouco dias atr�s um d�vida parecida com esta foi lan�ada .. A �nica diferen�a � que ao inv�s de se tratar de um comboBox o problema era a respeito da Grid...

A pergunta � , pode se fazer a mesma coisa a respeito das colunas da Grid baseado nesta tua id�ia :?: :?: :?:

Massuda · Answer

[quote:7a4f6ad2e3=�Marco Salles�]...pode se fazer a mesma coisa a respeito das colunas da Grid...[/quote:7a4f6ad2e3]N�o lembro de que t�pico voc� est� falando, mas acho que n�o d�/precisa ser a mesma coisa que foi feita para o combobox... no combobox o processo � mais complicado porque o combobox n�o tem um canvas que pode ser manipulado diretamente pela VCL (o combobox � um controle padr�o do Windows), porisso � preciso fazer alguma �gin�stica� para obter um canvas.

No caso de um grid, se voc� tiver [i:7a4f6ad2e3]a priori[/i:7a4f6ad2e3] uma lista do que vai ser exibido na coluna, basta determinar o maior comprimento de texto (via Grid.Canvas.TextWidth) e fazer esse valor ser a largura da coluna (some 2 (ou 4?) para compensar as linhas do grid).

Se for um dbgrid, o problema � o tempo gasto em obter os valores das colunas para determinar a maior largura. Se for um BD local com poucos dados, provavelmente ser� impercept�vel, mas no caso de um BD SQL com muitos dados, talvez n�o seja aceit�vel.

Marco Salles · Answer

[quote:d38d02f44c]N�o lembro de que t�pico voc� est� falando, [/quote:d38d02f44c]O T�pico � este ://forum.devmedia.com.br/viewtopic.php?t=67061&highlight=dbgrid+largura&sid=c5a936079e90bae5f6667f854b2b9244...

Massuda · Answer

[quote:219b2add75=�Marco Salles�]O T�pico � este...[/quote:219b2add75]Bom, continua valendo o que escrevi no meu post anterior....

Marco Salles · Answer

[quote:c1ec3815e0]Bom, continua valendo o que escrevi no meu post anterior.[/quote:c1ec3815e0]entendido , mas ainda estou com uma duvida[quote:c1ec3815e0]Se for um dbgrid, o problema � o tempo gasto em obter os valores das colunas para determinar a maior largura. Se for um BD local com poucos dados, provavelmente ser� impercept�vel, mas no caso de um BD SQL com muitos dados, talvez n�o seja aceit�vel.[/quote:c1ec3815e0]Mas voce disse que o basta determinar o maior comprimento do texto viaDb DbGrid.Canvas.TextWidth... Mas ai que esta o problema ;1)Em que evento determinar [quote:c1ec3815e0]Mas para obter este valores das colunas , acredito que no proprio OnDrawCollum , n�o daria certo... Porque n�o se sabe exatamente em que ponto se come�a a desenhar na grid... [/quote:c1ec3815e0]2) E como associar o DbGrid.Canvas.TextWidth ao campo especifico que se dejesa dimensionar a largura.. O Que eu quero dizer � que seria mais coerente se existisse Algo assim;DbGrid1.Columns..Canvas.TextWidth , porque ai voce estaria modelando a largura especificamente para a coluna i...

Massuda · Answer

[quote:d9ff03ac1f=�Marco Salles�]1)Em que evento determinar[/quote:d9ff03ac1f]No t�pico que voc� citou, seria num dos eventos de clique do DBGrid, por exemplo, OnCellClick, OnTitleClick ou OnDblClick.

Se quiser que o DBGrid j� apare�a com as colunas dimensionadas conforme o conte�do delas, o pr�prio DBGrid n�o teria um evento apropriado, melhor seria fazer um m�todo (no form ou num derivado de TDBGrid) que fizesse o redimensionamento e que fosse chamado no OnCreate ou OnShow do form depois do DataSet ligado ao DBGrid estar pronto para uso.

[quote:d9ff03ac1f=�Marco Salles�]...para obter este valores das colunas , acredito que no proprio OnDrawCollum , n�o daria certo...[/quote:d9ff03ac1f]A largura da coluna n�o tem rela��o com o desenho da coluna... voc� pode a qualquer instante mudar a largura das colunas usando a propriedade TDBGrid.Columns[].Width. Entretanto, o fato de voc� alterar a largura de uma coluna ir� disparar um evento de desenho, j� que o desenho da coluna precisar� ser atualizado.

[quote:d9ff03ac1f=�Marco Salles�]E como associar o DbGrid.Canvas.TextWidth ao campo especifico que se dejesa dimensionar a largura...[/quote:d9ff03ac1f]Quando for fazer o c�lculo da largura, imagino que seria algo assim...[list:d9ff03ac1f][*:d9ff03ac1f]dar um DisableControls no DataSet[*:d9ff03ac1f]gerar um bookmark da posi��o atual no DataSet[*:d9ff03ac1f]ir para o in�cio do DataSet[*:d9ff03ac1f]percorrer o DataSet procurando pelo maior comprimento, em pixels (use TDBGrid.Canvas.TextWidth), do texto da coluna do DataSet[*:d9ff03ac1f]ajustar o valor de TDBGrid.Columns[].Width[*:d9ff03ac1f]mover para a posi��o original do DataSet, previamente salva num bookmark[*:d9ff03ac1f]dar um EnableControls no DataSet[/list:u:d9ff03ac1f]
[quote:d9ff03ac1f=�Marco Salles�]...DbGrid1.Columns[i]..Canvas.TextWidth[/quote:d9ff03ac1f]N�o faz sentido pois o canvas � toda a superf�cie de desenho do controle. O fato do controle ser subdividido em colunas n�o implica em criar subjanelas (aqui janela no sentido Windows). Um exemplo � o TLabel, que n�o tem canvas pr�prio, embora seja algo que � desenhado no form.

Massuda · Answer

Percebi que n�o expliquei como saber qual coluna deve ser tratada no caso de optar por fazer num dos eventos de clique do TDBGrid.

No caso do OnCellClick e OnTitleClick, o (tratador do) evento recebe um objeto Column, basta pegar o valor Column.Field que voc� tem acesso ao campo no DataSet.

No caso do OnDblClick, teria que capturar a posi��o do mouse usando um dos eventos de mouse (por exemplo, OnMouseDown) e no (tratador do) evento OnDlbClick, pegar a posi��o do mouse e converter em coordenadas do DBGrid usando o m�todo TDBGrid.MouseCoord. Sabendo qual coluna foi clicada, basta usar TDBGrid.Columns para obter o Column correspondente e da� � igual ao caso anterior.

@modera��o:
Talvez parte deste t�pico devesse ser movido para o t�pico que o Marco Salles citou?

Sandra · Answer

[quote:3631c27ba2=�Massuda�]@modera��o:Talvez parte deste t�pico devesse ser movido para o t�pico que o Marco Salles citou?[/quote:3631c27ba2]Massuda,*Quebrar um t�pico* at� tem jeito mas, infelizmente, o php n�o permite mover parte do t�pico e juntar ao outro, como acontece com o IPB, assim como n�o sei dizer tamb�m se com outras atualiza��es (do phpBB) isto seja poss�vel.No caso, ter� que responder l� tamb�m. Ou ent�o, uma maneira menos redundante, responder ao t�pico direcionando respostas e questionamentos (futuros) para este.No que precisar, questione! :D...

Massuda · Answer

[quote:9298b7e3b6=�sandra�]...responder ao t�pico direcionando respostas e questionamentos (futuros) para este.[/quote:9298b7e3b6]Farei isso. Obrigado pelo esclarecimento....

Marco Salles · Answer

[quote:2c82471823]dar um DisableControls no DataSetgerar um bookmark da posi��o atual no DataSetir para o in�cio do DataSetpercorrer o DataSet procurando pelo maior comprimento, em pixels (use TDBGrid.Canvas.TextWidth), do texto da coluna do DataSetajustar o valor de TDBGrid.Columns[].Widthmover para a posi��o original do DataSet, previamente salva num bookmarkdar um EnableControls no DataSet[/quote:2c82471823][quote:2c82471823]percorrer o DataSet procurando pelo maior comprimento, em pixels (use TDBGrid.Canvas.TextWidth), do texto da coluna do DataSet[/quote:2c82471823][b:2c82471823]Usar um While not eof do Mesmo ne massusa , seguido de codigo para se guardar o maior valor encontrado[/b:2c82471823]  :?:  :?:  :?: e para finalisar a minha duvida quanto :[quote:2c82471823]2) E como associar o DbGrid.Canvas.TextWidth ao campo especifico que se dejesa dimensionar a largura..[/quote:2c82471823] :!:  :!:  :!: eu n�o tinha ainda verificado os parametros do metodo TDBGrid.Canvas.TextWidth..   Fui conferiri e vi que necessita de um TextoEnt�o � so colocar o texto da coluna que se quer determinar.. Sem problemaQuanto ao t�pico esta no lugar errado, eu tentei apenas encaixar , algo a mais no presente t�pico.... Uma discuss�o de algo que ja apareceu publicamente no forum e n�o se teve resposta... Sinceramente , eu nen estou precisando desse m�todo mas � sempre bom participar de um debate com o massuda. A gente ganha muito....

F�rum Largura do ComboBox #292783