Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure TfrmMain.MyVSTHeaderDrawQueryElements(Sender: TVTHeader;
- var PaintInfo: THeaderPaintInfo; var Elements: THeaderPaintElements);
- begin
- Elements := [hpeBackground];
- end;
- procedure TfrmMain.MyVSTAdvancedHeaderDraw(Sender: TVTHeader;
- var PaintInfo: THeaderPaintInfo; const Elements: THeaderPaintElements);
- begin
- if hpeBackground in Elements then
- begin
- PaintInfo.TargetCanvas.Brush.Color := clFuchsia; // <-- your color here
- if Assigned(PaintInfo.Column) then
- DrawFrameControl(PaintInfo.TargetCanvas.Handle, PaintInfo.PaintRectangle, DFC_BUTTON, DFCS_FLAT or DFCS_ADJUSTRECT); // <-- I think, that this keeps the style of the header background, but I'm not sure about that
- PaintInfo.TargetCanvas.FillRect(PaintInfo.PaintRectangle);
- end;
- end;
- procedure TfrmDepositDefrayalSingly.vstItemsManuallyHeaderDrawQueryElements(Sender: TVTHeader;
- var PaintInfo: THeaderPaintInfo; var Elements: THeaderPaintElements);
- begin
- Elements := [hpeBackground];
- end;
- procedure TfrmDepositDefrayalSingly.vstItemsManuallyAdvancedHeaderDraw(Sender: TVTHeader;
- var PaintInfo: THeaderPaintInfo; const Elements: THeaderPaintElements);
- begin
- if hpeBackground in Elements then
- begin
- PaintInfo.TargetCanvas.Brush.Color := cGlobalVar.BasicColor;
- PaintInfo.TargetCanvas.FillRect(PaintInfo.PaintRectangle);
- if Assigned(PaintInfo.Column) then
- begin
- PaintInfo.TargetCanvas.Brush.Color := clGray;
- PaintInfo.TargetCanvas.FrameRect(PaintInfo.PaintRectangle);
- end;
- end;
- end;
Add Comment
Please, Sign In to add comment