[Delphi7] Rysowanie ListView'a

0

Żeby nie znikało niebieskie zaznaczenie po przejściu z ListView'a na np. Edit poradzili mi, żeby samemu obslużyć rysowanie listview'a. Jak to krok po kroku zrobić? [???]

0

Aby zapobiec znikaniu niebieskiej poświaty na skutek naciśnięcia na obiekt Edit należy zdefiniować dla niego zdarzenie OnEnter i wpisać polecenie:

FocusControl(ListView1);

Jednak wtedy edycja zawartości obiektu Edit jest niemożliwa.

0

Jednak wtedy edycja zawartości obiektu Edit jest niemożliwa.

No właśnie... ale coś mi się wydaję, że przez te rysowanie ListView'a da się zrobić :)

Musi się dać na pewno to zrobić bo programik ma tak zrobione. Chcecie linka?

Nadal proszę o pomoc...

0

jak ustawisz HideSelection na false to niebieskie coprawda znika ale zostaje szare.
chyba ze caly czas wolisz niebieskie to jeśli nam pomożecie, to sądzę, że ten cel uda nam się wspólnie osiągnąć... Jak? Pomożecie?... No.

0

Tak... ale te szare ja słabo widoczne na białym (a chce białe)...

Widzę przecież, że na innym programie można na niebiesko...

Myślę, że wy doświadczeni mi pomożecie

0

ha, udalo sie ;]

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
DefaultDraw:=not ((Item.Selected) and (not ListView1.Focused));
end;
0

Dzięki bardzo :)

A mógłbyś powiedzieć skąd wziąłeś to:

DefaultDraw:=not ((Item.Selected) and (not ListView1.Focused));

Chodzi mi o kod... z helpa? Czy sam to wymysliles? :))

0

sam :-) kombinowalem kombinowalem i wykombinowalem :-)
wiesz jak to dziala czy wytlumaczyc? ;]

0

Jak działa wiem!

1 użytkowników online, w tym zalogowanych: 0, gości: 1