Barvy ve StringGridu (Delphi)

Programovacie jazyky, rady, poradňa...
Leo
Novice
Novice
Príspevky: 7
Registrovaný: 29 dec 2011, 7:04

Barvy ve StringGridu (Delphi)

Príspevok od používateľa Leo »

Zdravím.
Toto vykresli bunku ve StringGridu v proceduře DrawCell.

Kód: Vybrať všetko

 case ACol of 1:
                if (gdSelected in State) or (gdFocused in State) then begin
                  CV.Brush.Color := 65535; //žluta
                  CV.FillRect(Rect);
                  CV.TextOut(Rect.Left + 2, Rect.Top + 2, sCellString);
                end
                else
                begin
                  CV.Brush.Color := 12632256; //šeda
                  CV.FillRect(Rect);
                  CV.TextOut(Rect.Left + 2, Rect.Top + 2, sCellString);
                end;
A vysledek je tady
//obrázok patrí do prílohy, prečítaj si pravidlá

Jak však vykreslit cele pozadí bunky, aby tam nebyly ty bile mezery.
Prostě chci aby byl vybarven cely řadek.
Tu bilou mezeru děla to +2
CV.TextOut(Rect.Left + 2, Rect.Top + 2, sCellString);
audiotrack
VIP
VIP
Používateľov profilový obrázok
Príspevky: 25958
Registrovaný: 09 sep 2005, 18:39
Kontaktovať používateľa:

Re: Barvy ve StringGridu (Delphi)

Príspevok od používateľa audiotrack »

Leo napísal:
Jak však vykreslit cele pozadí bunky, aby tam nebyly ty bile mezery.
Prostě chci aby byl vybarven cely řadek.
Tu bilou mezeru děla to +2
CV.TextOut(Rect.Left + 2, Rect.Top + 2, sCellString);
veď si tam sám odpovedáš
Leo
Novice
Novice
Príspevky: 7
Registrovaný: 29 dec 2011, 7:04

Re: Barvy ve StringGridu (Delphi)

Príspevok od používateľa Leo »

audiotrack napísal: veď si tam sám odpovedáš
No jo ale pokud to upravím tak, se posune i ten vykreslovany text.
Na netu jsem čet že musim první vybarvít to pozadi a pak tam vykreslit ten text.
Tebo to nechat tak a ty mezery nechat dobarvit
Ale jak na to tam nebylo.

Aby to vypadako takto.

Kód: Vybrať všetko

http://www.swissdelphicenter.ch/torry/showcode.php?id=273
Ve skutečnosti ten zdrojak to posmoli stejně jak ten muj :sneaky:

//autoeditácia príspevku (15 Apr 2012, 12:14)
Tak by mně zajimalo zda to nejde,nebo tu není nikdo, kdo by věděl jak na to. :smt015
Napísať odpoveď