Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  14:56[Войти] | [Зарегистрироваться]
Ответ на вопрос № 40723

13-03-2006 06:31
Подскажите, хочу в DBGrid  сделать фоном картинку. Как это можно реализовать?
Заранее благодарна

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

08-10-2006 04:56
Посмотри ещё »вопрос КС №45653«

17-05-2006 02:28
»вопрос КС №39925«

14-03-2006 04:03
Вообще-то не знаю - я их не использую, но начать можно с www.torry.net может быть это он?: http://www.torry.net/db/visible/db_grids/texdbgrid.zip

14-03-2006 03:55 | Сообщение от автора вопроса
Да, работает не очень хорошо. И я наверное не в силах исправить ситуацию. А где можно взять подобный компонент.

14-03-2006 00:53
Всётаки боюсь что этого кода будет недостаточно. Как минимум тебе будет трудно избавиться от мигания при прокрутке.
В стандартном dbgrid'е все процедуры, отвечающие за его(dbgrid'ное) состояние, "обрублены" т.е. недоступны для потомков, а писать их самому(самой) нужно потрудиться. Лучше найди dbgrid где это уже сделали до/за тебя.

13-03-2006 23:24 | Сообщение от автора вопроса
Большое спасибо за ответ. Обязательно попробую.

13-03-2006 09:14
Это не очень сложно, но проблемки, скорей всего, могут появиться. Набросок:
DFM


object Form1: TForm1
  Left = 240
  Top = 113
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  ParentFont = True
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 18
    Top = 9
    Width = 607
    Height = 211
    DataSource = DataSource1
    TabOrder = 0
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 333
    Top = 225
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'biolife.db'
    Left = 354
    Top = 252
  end
end



PAS


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  DB, DBTables, Grids, DBGrids;

type
  TDBGrid = class(DBGrids.TDBGrid)
  private
    FBmp: TBitmap;
  protected
    procedure Scroll(Distance: Integer); override;
    procedure Paint; override;
    procedure DrawColumnCell(const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Table1: TTable;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TDBGrid }

constructor TDBGrid.Create(AOwner: TComponent);
begin
  inherited;
  FBmp := TBitmap.Create;
  FBmp.LoadFromFile('MyBmp.bmp');
end;

destructor TDBGrid.Destroy;
begin
  FBmp.Free;
  inherited;
end;

procedure TDBGrid.DrawColumnCell(const Rect: TRect; DataCol: Integer;
  Column: TColumn; State: TGridDrawState);
var
  Value: String;
  R: TRect;
begin
  Windows.BitBlt(Canvas.Handle, Rect.Left, Rect.Top, Rect.Right, Rect.Bottom, FBmp.Canvas.Handle, Rect.Left, Rect.Top, SRCCOPY);
  Canvas.Brush.Style := bsClear;
  R := Rect;
  Value := Column.Field.AsString;
  DrawText(Canvas.Handle, PChar(Value), Length(Value), R, DT_LEFT or DT_VCENTER);
  inherited;
end;

procedure TDBGrid.Paint;
var
  DrawInfo: TGridDrawInfo;
begin
  CalcDrawInfo(DrawInfo);
  inherited;
  with DrawInfo do
  begin
    { Fill in area not occupied by cells }
    if Horz.GridBoundary < Horz.GridExtent then
    begin
      Windows.BitBlt(Canvas.Handle, Horz.GridBoundary, 0, Horz.GridExtent, Vert.GridBoundary, FBmp.Canvas.Handle,
        Horz.GridBoundary, 0, SRCCOPY);
    end;
    if Vert.GridBoundary < Vert.GridExtent then
    begin
      Windows.BitBlt(Canvas.Handle, 0, Vert.GridBoundary, Horz.GridExtent, Vert.GridExtent, FBmp.Canvas.Handle,
        0, Vert.GridBoundary, SRCCOPY);
    end;
  end;
end;

procedure TDBGrid.Scroll(Distance: Integer);
begin
  inherited;
  InvalidateRect(Handle, nil, False);
end;

end.


Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
Вода мокрая или сухая?
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования