Ja mislim da je taj DFM snimljen binarno, a ne kao tekst?
Ako je snimljen kao tekst, trebalo bi da slika bude opisana ovako:
Code:
object Image1: TImage
Left = 200
Top = 16
Width = 105
Height = 105
Picture.Data = {
07544269746D6170E61D0000424DE61D00000000000036000000280000003200
0000320000000100180000000000B01D0000C40E0000C40E0000000000000000
0000732926722825772B287C2F2C7429266A232080312E67211E7228257E302D
81322F8333307C2F2C7E302D7A2D2A7C2F2C7A2D2A7429267F302D81312E772B
28772B286F2623792C297C2F2C792C29772B28762A277C2F2C7B2E2B7A2D2A6F
262366201D81322F6E2522742926762A2768211E752A27772B287228256E2522
6F2623641E1B6D2421752A276A23207127247B2E2B7A2D2A00007E302D7E302D
772B28772B286E25226E25227A2D2A6F26237429267B2E2B81322F7E302D7A2D
2A7E302D7A2D2A7B2E2B772B287228257B2E2B81322F772B28772B286E252277
2B762A27752A2780312E782C297329260000}
end
Ako je tako, onda samo obrisi od Picture.Data= do zatvorene viticaste zagrade (ukljucujuci i taj red). Izgubices sliku, ali pretpostavljam da to nije problem.
Ako je u binarnom formatu, onda je malo teze. Probaj ovako:
nadji u dfm-u gde pise
TImageXImage1
(umesto X ce biti neki drugi znak, a umesto Image1 ce biti konkretno ime te slike koja zeza)
Iza TImageXImage1 ce biti jos neke vidljive stvari (width, height etc.), onda Picture.Data, onda TBitmap i onda sledi brdo "djubreta" tj necitljivog. Iza svega toga ce se pojaviti opis sledeceg objekta - prvo ide ime klase pa ime promenljive. Treba da obrises od "TImageXImage1" i SVE sto sledi do opisa sledeceg objekta.
Na primer:
TFORM1 0Ï. TPF0TForm1Form1Leftù Topâ WidthHeightCaptionForm1Color clBtnFaceFont.CharsetDEFAULT_CHARSET
Font.ColorclWindowTextFont.Heightõ Font.Name
MS Sans Serif
Font.Style Menu MainMenu1OldCreateOrder
PixelsPerInch`
TextHeight
TImageImage1LeftÈ TopWidthiHeightiPicture.Data
ò TBitmapæ BMæ 6 ( 2 2 ° Ä Ä s)&r(%w+(|/,t)&j# €1.g!r(%~0-2/ƒ30|/,~0-z-*|/,z-*t)&0-1.w+(w+(o&#y,)|/,y,)w+(v*'|/,{.+z-*o&#f 2/n%"t)&v*'h!u*'w+(r(%n%"o&#dm$!u*'j# q'${.+z-* ~0-~0-w+(w+(n%"n%"z-*o&#t)&{.+2/~0-z-*~0-z-*{.+w+(r(%{.+2/w+(w+(n%"w+({.+z-*q'$q'${.+y,)y,)n%"i"€1.q'${.+0-s)&|/,~0-y,)u*'{.+r(%r(%do&#g!p&#h!g!r(%p&#x,)i"€1.z-*j# {.+{.+w+(~0-€1.{.+v*'u*'€1.x,)s)& TAdvMemoeCodeLeft Top
Brises sve sto je crveno. U ovom slucaju izgubice se i sam TImage objekat, ali opet pretpostavljam da to nije problem.
Naravoucenije: slike ucitavaj u FormCreate a DFM snimaj tekstualno.