Zeile einer Listbox blau hinterlegen

Beppo

Hallo,

hat funktioniert.
kann man nachträglich den Code abändern und die Komponente updaten ?

Gruß Siegfried

akari

Hallo

klar.
du öffnest das erstellte Package (Package_ListBoxEx.bpk), änderst den Code und compilierst und installierst das Package neu. Die alte Version wird dann ersetzt.

bis bald
akari

Beppo

Hallo,

hat auch funktioniert.
Habe aber noch ein Problem. Habe im OI die Schrift auf Fett eingestellt. Wenn ich mit der Maus über die Zeilen fahre, wandelt sich der Text in normal um.

wo muß ich noch eine Änderung durchführen ?

Gruß Siegfried

akari

Hallo

einfach die Funktion DrawItem so erweitern

void __fastcall TListBoxEx::DrawItem(int Index,
      const TRect &Rect, TOwnerDrawState State)
{
  Canvas->Font = Font; // übernimmt den Font des Controls zum Darstellen
  ...

bis bald
akari

Beppo

Hallo,

funktioniert, so wie ich es wollte.

Danke !!!

Gruß Siegfried

Beppo

Hallo @akari

die Komponente funktioniert gut.
Jetzt wollte ich "OnMouseMove" zusätzlich nutzen. Klappt leider nicht.
OnMouseDown und OnMouseUp klappt.

brauche Hilfe!

Gruß Siegfried

akari

Hallo

liegt daran, das in der abgeleiteten Komponente ja die MouseMove-Botschaft abgefangen wird. Alles was du tun must, ist den OnMouseMove-Event selber auszulösen

void __fastcall TListBoxEx::wmMouseMove(TMessage& Msg)
{
  ...
  if (OnMouseMove) OnMouseMove(this, TShiftState(), 0, 0);
  }

DIe letzten drei Parameters kannst du auch noch bestimmen, u.a. aus den Message-Parametern.

/Edit : Oder besser der Vorschlag von Jansen.

bis bald
akari

Jansen

In den MessageHandlern fehlt das Dispatch().
Siehe auch den entsprechenden FAQ-Eintrag im Abschnitt "System".

Beppo

Hallo,
Danke an alle für die Hilfe.

void __fastcall TListBoxEx::wmMouseMove(TMessage& Msg)
{
// OnMouseMove Ereignis auswerten
if (OnMouseMove) OnMouseMove(this, TShiftState(), 0, 0);
//
//
  TPoint CursorPoint; // aktueller Punkt des Mauscursors
  GetCursorPos(&CursorPoint); // Cursor ermitteln
  CursorPoint = ScreenToClient(CursorPoint); // Cursor auf dieses Control umrechnen
  int CursorIndex = ItemAtPos(CursorPoint, true); // Item unter Cursor ermitteln

  // Wenn Item unter Cursor vorhanden, dieses neu zeichnen
  if (CursorIndex != -1)
  {
    TRect Rect = ItemRect(CursorIndex);
    DrawItem(CursorIndex, Rect, GetItemState(CursorIndex));
    }

  // Wenn vor dem Aufruf ein anderes Item hervorgehoben war, dieses
  // ermitteln und neu ohne Vorhebung zeichnen
  if ((iLastIndex != CursorIndex) && (iLastIndex > -1))
  {
    TRect Rect = ItemRect(iLastIndex);
    int Buffer = iLastIndex;
    iLastIndex = CursorIndex;
    DrawItem(Buffer, Rect, GetItemState(Buffer));
    }
  iLastIndex = CursorIndex; // neuen Index übernehmen
  }
//---------------------------------------------------------------------------

Zeile eingefügt, funktioniert! Habe aber noch ein Problem. Wie bekomme ich den "CursorIndex" an die Form gemeldet ?
Bin bei solchen Code überfragt. Kann man mir hier auch helfen ?
Hintergrund ist folgender. Beim überfahren der ListBox ändert sich die Zeilenfarbe. Dies ist alles ok. Nun möchte ich aber beim überfahren der Zeilen auch dessen Inhalt auslesen, ohne einen Maus Click ausführen zu müssen. Wenn dieses nicht der richtige Weg ist, lasst mich es wissen.

Gruß Siegfried

akari

Hallo

Du machst eine Nur-Lesen Eigenschaft für iLastIndex. Dann kannst du diesen Wert beliebig oft abrufen, und als Index für Items->Strings benutzen.

bis bald
akari

Jansen

Dispatch!

Beppo

Hallo,
nochmals vielen Dank für die Hilfe. Habe eine Möglichkeit gefunden, meine Wünsche zu verwirklichen. Ich gehe davon aus, wenn ihr meine Lösung lest, das ihr die Hände über dem Kopf .....

void __fastcall TListBoxEx::wmMouseMove(TMessage& Msg)
{
//
//
  TPoint CursorPoint; // aktueller Punkt des Mauscursors
  GetCursorPos(&CursorPoint); // Cursor ermitteln
  CursorPoint = ScreenToClient(CursorPoint); // Cursor auf dieses Control umrechnen
  int CursorIndex = ItemAtPos(CursorPoint, true); // Item unter Cursor ermitteln

  // Wenn Item unter Cursor vorhanden, dieses neu zeichnen
  if (CursorIndex != -1)
  {
//************************************************************
// OnMouseMove Ereignis auswerten
if (OnMouseMove) OnMouseMove(this, TShiftState(), 0, CursorIndex);
//************************************************************
    TRect Rect = ItemRect(CursorIndex);
    DrawItem(CursorIndex, Rect, GetItemState(CursorIndex));
    }

  // Wenn vor dem Aufruf ein anderes Item hervorgehoben war, dieses
  // ermitteln und neu ohne Vorhebung zeichnen
  if ((iLastIndex != CursorIndex) && (iLastIndex > -1))
  {
    TRect Rect = ItemRect(iLastIndex);
    int Buffer = iLastIndex;
    iLastIndex = CursorIndex;
    DrawItem(Buffer, Rect, GetItemState(Buffer));
    }
  iLastIndex = CursorIndex; // neuen Index übernehmen
  }
//---------------------------------------------------------------------------

Wenn auch meine Möglichkeit getrickst ist, hat es mir den Erfolg gebracht.
Über "Dispatch" können wir uns später unterhalten. Ich arbeite mit C++ seit etwa 6 Monate, komme aus der untersten Ebene über VB6 zu C++. Also muß ich sehr gut zuhören, was man mir vorschlägt. Es kann nur besser werden.
bis bald
Siegfried