[Delphi] StringGrid / AdvStringGrid background bitmap

[Verwijderd]

Ik heb een AdvStringGrid op me form staan. Dit hele form gaat een 'skin' krijgen. Graag zou ik ook de achtergrond van me grid een bitmap geven. Suggesties??

Ik hoopte dat het volgende zou werken:
StringgrdBg := TBitmap.Create;
StringgrdBg.LoadFromFile('bg.bmp');
GridBackGround := TBackGround.Create(lbAvailTracks);
GridBackGround.Bitmap := StringgrdBg;

StringgrdBg is een TBitmap
GridBackGround is een TBackground
en lbAvailTracks is een TAdvStringGrid (hanteerd redelijk hetzelfde als een gewone TStringGrid)

[LordLarry]

Wat is een TBackground?

Wat je zou kunnen doen is in de Paint van dat TAdvStringGrid component eerst als achtergrond het plaatje tekenen. Of het WM_ERASEBKGND message afvangen en het daar in doen.

[Verwijderd]

TBackground is volgens mij een uitvinding van het AdvStringGrid. Ik kon er ook geen documentatie over vinden..

Klein code voorbeeldje misschien?? Hoe vang ik het WM_ERASEBKGND message af?

[LordLarry]

Delphi:

procedure WMEraseBkGnd(var Message: TMessage); message WM_ERASEBKGND;

procedure TMyControl.WMEraseBkGnd(var Message: TMessage);
begin
  Canvas.Draw(ClientRect.Left, ClientRect.Top, JeBackgroundBitMap);
  Message.Result := 1;  // Afgehandeld
end;

Maar misschien moet je deze code in de Paint functie zetten, want ik weet niet zeker hoevaak dit message wordt gevuurt. Als je het helemaal in de Paint doet kan je er voor zorgen dat er helemaal nooit een erase background wordt gedaan door het volgende in de create van het component te zetten:

Delphi:

ControlStyle = ControlStyle + [ csOpaque ]

Ook moet je er voor zorgen dat dat component zichzelf er niet weer helemaal overheen tekent. OwnerDraw aan, DefaultDraw uit enzo.

Als dit allemaal klinkt als abba-ka-dabba voor je zou ik niet verder vragen en gewoon eerst zelf maar eens wat leren over het maken van VCL componenten en niet meer verder vragen. Het is niet de bedoeling dat we je aan het handje houden.

[ Voor 35% gewijzigd door LordLarry op 15-01-2003 15:27 ]

[Verwijderd]

In de paint functie van me stringgrid bedoel je??

[LordLarry]

Ja. Je zal een afgeleide moeten maken van je TAdvStringGrid en daarin jouw nieuwe code zetten dmv het overriden van bepaalde functies zoals Paint.

[Verwijderd]

IC... Dat zijn inderdaad geen dingen die ik al eerder heb gedaan en ik inderdaad geen kennis van het maken van VCL componenten. Suggesties waar ik die kan opdoen??

[LordLarry]

De source code van de componenten die bij Delphi geleverd worden.
The Delphi Magazine of The Delphi Informant
De borland usnet news groups en www.tamaracka.com
Boeken
Verschillende Delphi sites
www.google.com

Veel success

[Verwijderd]

Thnx!!! Ik ga daar eens naar kijken..