Проблемы и решения при использовании TBitmap и TIcon в проектах на Delphi

Delphi , ОС и Железо , Windows

  object TForm1
    Left = 50
    Caption = 'Form1'
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Size = -11
    OldCreateOrder = False
    PixelsPerInch = 0
    TextHeight = 13
    object TDBGrid1











        Implements = <
          item
            Expanded = False
            FieldName = 'FieldA'

          end
















        Caption = 'FieldB'

















      end



      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      OnCreate = FormCreate
      PixelsPerInch = 96
      TextHeight = 13
      object TClientDataSet1
        Aggregates = <>
        FieldDefs = <>
        IndexDefs = <>
        Params = <>
        StoreDefs = True
      Left = 504
      Width = 276
      Height = 250
      object TImageList1
        BlendColor = clWhite
        BkColor = clWhite
        DrawingStyle = dsTransparent
        Left = 504
        Top = 151
        Width = 161
        Height = 471
        object TButton1
        Left = 576
        Top = 8
        Width = 75
        Caption = 'Show'
        TabOrder = 0
        OnClick = Button1Click
      end

    TButton1Click = Button1Click(Sender: TObject);
    begin
      ClientDataSet1.DisableControls;
      try
        ClientDataSet1.Append;
        ClientDataSet1FieldA.AsInteger := 1;
        ClientDataSet1FieldB.AsString := 'One';
        ClientDataSet1.Post;
      finally
        ClientDataSet1.EnableControls;
     end;
  end
end

Альтернативный ответ

То, что можно было бы использовать функцию DrawIcon из TGraphicEx.pas для отрисовкики:

```pas unit uMain; uses Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Provider, ImgList, Grids, DBGrids, DBClient, StdCtrls, ExtCtrls, ExtDcgs, TGraphicEx, TWinCtrls, System.Classes;

type
  TForm1 = class(TForm)
  TCustomImageList = class(TImglist);

interface

 uses
  TGraphicEx;
 type
 TCustomImageListItem = class(TImageListItem);
 TCustomImageListItem = class(TCustomImageListItem)
 public
 class TCustomImageListItem
 property
 procedure DrawIcon;
 private function CreateIcon;
 procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
 var
 FIcon: TCustomImageListItem;
 X,Y: Integer;
begin
 if Assigned(Column.Field) and (Column.FieldName = 'Status') then
 begin
 if Column.Field.DataSet.RecordCount = 0 then
 Exit;
 end
 if Column.Field.Tag &lt 0 then
 begin
 FIcon := CreateIcon;
 Column.Field.Tag := Integer(Pointer(FIcon));
 end;
 if Assigned(FIcon) then
 begin

 if Column.Width < FIcon.Width then
















 else
 00000000
 00000000
 00000000
 00000000
 00000000
 00000000
 00000000
 00000000
 00000000
 00000000
 00000000
 00000000
 00000000
 00000000
 00000000
 00000000
 00000000 0000000000000000000000000000000
 000000000000000000000000000000000000000000000000
 000000000000000000000000000000000
 0000000000000000000000000000000
 0000000000000000000000000000000


                                                                                                                                                                                                                                                                                    000000000
                                                                                                                                                                             0000000000
  00000000000000000000000000000000000000000000000000
                                                                                                                 0000000000000000
                     00000 0000000
 000000000000000000000000000000000000000000000000000000000000000000000000
 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000

Создано по материалам из источника по ссылке.

Контекст описания относится к программному обеспечению, вероятно, для Delphi, где присутствует описание интерфейса формы с элементами управления, такими как DBGrid, TClientDataSet, TImageList, TButton и другие, а также обработчик события onclick для кноп

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Windows ::