Bitmap'ı kod içine gömmek

[cengaver]

Merhaba arkadaşlar,

Bir bileşen yazıyorum. Bu bileşen bir TEdit'ten türüyor fakat üzerinde butonlar da var. Bu butonların üzerine Bitmap basmak istiyorum, DFM dosyalarını incelerken aşağıdaki gibi bir kodla karşılaştım. Derdim şu; Aşağıdakine benzer bir ifadeyi (yani OptionsImage.Glyph.Data = {....} ile başlayan kısmı) pascal olarak nasıl yazabilirim?

Kod: Tümünü seç

object cxButton1: TcxButton
  Left = 938
  Top = 202
  Width = 93
  Height = 46
  Caption = 'cxButton1'
  OptionsImage.Glyph.Data = {
    36030000424D3603000000000000360000002800000010000000100000000100
    18000000000000030000C40E0000C40E00000000000000000000FFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFF90909077777778787878787878787877777777777777
    77777777777777777777777777777777777777777777777F7F7F777777FFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF777777A1A1
    A1989898A2A2A2777777777777FFFFFFDCDCDCD2D2D2D0D0D0CDCDCDE9E9E9E6
    E6E6E2E2E2E0E0E0FFFFFF777777868686636363989898767676777777FFFFFF
    7B78777B79777B78777A7776E9E9E9E7E7E7E4E4E4E1E1E1FFFFFF7777777777
    77777777777777787878777777FFFFFFDEDEDED4D4D4D1D1D1D0D0D0CECECECD
    CDCDE5E5E5E3E3E3FFFFFF777777BBBBBBB9B9B9DCDCDC777777777777FFFFFF
    7D7A797C7A787C79787B78787A7877797776E6E6E6E4E4E4FFFFFF777777BCBC
    BCBABABADCDCDC777777777777FFFFFFE0E0E0D4D4D4D3D3D3D1D1D1CFCFCFCE
    CECECBCBCBE3E3E3FFFFFF777777BDBDBDBBBBBBDCDCDC777777787878FFFFFF
    7E7A797D7B797D7A787C79777A77767A7776797675E6E6E6FFFFFF777777BEBE
    BEBBBBBBDCDCDC777777777777B88F7CA36D58A26C57A36D59A36E59A36E59A3
    6E59A46E59A36E59B88E7C777777C0C0C0BDBDBDDCDCDC777777777777B98E7D
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFA36D59B98F7D777777C0C0
    C0BFBFBFDCDCDC787878777777B88E7CA36E59A36D58A26C57A36E59A26D58A3
    6E59A36E59A26C57B98F7D767676777777777777777777777777777777FFFFFF
    807C7B807D7C7E7B7A7D7A7A7C79777B7876EEEEEEEAEAEAFFFFFF7777778C8C
    8C6969699D9D9D777777787878FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFFFF777777A1A1A1999999A2A2A2777777909090777777
    7777777777777777777777777777777777777777777777777777777777777777
    777777777676767F7F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
  TabOrder = 9
end

[freeman35]

.tostring, yada componentwritetostring procedurelerini incele
kolay gele

[ikra]

Bitmaplerin sabit olacak ise Bitmap'leri RES dosyasi olarak hazirlayip projende kullanabilirsin.

[cengaver]

Res dosyası kullanmak istemiyorum.

[mrmarman]

bkz bu link

[cengaver]

Muharrem Hocam, Sen benim için bu dünyaya gönderilmişsin