Personalizar TMainMenu

[Angel.Matilla]

Estaba probando un código que hay en otro foro al que estoy apuntado (Colores dentro del TMenu), y me ha surgido un pequeño problema. Os explico.


La primera imagen es SIN utilizar el código de César. Como véis hay un opción que tiene un submenú. Sin embargo, si uso el código del hilo ocurre lo de la segunda imagen, que el texto "invade" la zona del gráfico y no acabo de ver como evitarlo. En el fichero adjunto está el código en el que no soy capaz de encontrar como evitar ese problema.

[ecfisa]

Hola.

Revisa que el item "Devoluciones" (así como todos), tenga asignada la función de dibujado en el evento OnDrawItem.

Saludos

[Angel.Matilla]

Empezado por ecfisa

Revisa que el item "Devoluciones" (así como todos), tenga asignada la función de dibujado en el evento OnDrawItem.

Gracias. Todas las opciones del menú tienen asignado el evento. Evidentemente, todas ellas apuntan al mismo. El código lo he escrito en OnDrawItem de la primera opción del menú (Personas); no creo que eso influya, pero no lo sé.

[ecfisa]

Hola.

Por un lado la página del enlace me pedía registro para acceder y por otro no podía abrir el adjunto.

Ahora que pude abrir y ver el adjunto, usando el primer código del mismo, creo que podes hacer de este modo:

Código PHP:

// ...
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  int x, y, maxLen = 0;

  // hallar el texto mas largo
  for (x = 0; x < MainMenu1->Items->Count; x++)
  {
    TMenuItem* mi = static_cast<TMenuItem*>(MainMenu1->Items->Items[x]);
    for (y = 0; y < mi->Count; y++)
      if (mi->Items[y]->Caption.Length() > maxLen)
        maxLen = mi->Items[y]->Caption.Length();
  }

  // agregar 5 espacios (o los que gustes) e igualar largos
  maxLen += 5;
  for (x = 0; x < MainMenu1->Items->Count; x++)
  {
    TMenuItem* mi = static_cast<TMenuItem*>(MainMenu1->Items->Items[x]);
    for (y = 0; y < mi->Count; y++)
      mi->Items[y]->Caption +=  mi->Items[y]->Caption.StringOfChar(' ',
        maxLen-mi->Items[y]->Caption.Length());
  }
}

void __fastcall TForm1::Listados1DrawItem(TObject *Sender, TCanvas *ACanvas,
  TRect &ARect, bool Selected)
{
  TRect FocusRectBorder = ARect;
  TRect FocusRectFill   = ARect;
  TRect TextRect        = ARect;
  TMenuItem *MenuItem   = ((TMenuItem*)Sender);
  AnsiString Text = MenuItem->Caption;

  if(Text == "") return;

  ACanvas->Brush->Color = MainMenuBackground;
  ACanvas->FillRect(ARect);

  if(Selected)
  {
   ACanvas->Brush->Color = BorderColor;
   ACanvas->FrameRect(FocusRectBorder);
   FocusRectFill.Top    += 1;
   FocusRectFill.Right  -= 1;
   FocusRectFill.Left   += 1;
   FocusRectFill.Bottom -= 1;
   ACanvas->Brush->Color = MainMenuHighlightColor;
   ACanvas->FillRect(FocusRectFill);
   ACanvas->Font->Color = MainMenuHighlightTextColor;
  }
  else
    ACanvas->Font->Color = MainMenuTextColor;

  InflateRect(&TextRect,-1,-1);
  DrawText(ACanvas->Handle, Text.c_str(), Text.Length(),
    &TextRect, DT_SINGLELINE);
} 


Resultado:


Saludos

[Angel.Matilla]

Gracias ecfisa. Me he vuelto loco tratando de encontrar una solución similar a la que sugieres.