TBitmap

Ta stran je trenutno še v izdelavi.

Razred TBitmap se uporablja za kreiranje, spreminjanje in shranjevanje bitnih slik.

Kreiranje in uničenje bitne slike

Dim B As TBitmap   // deklaracija spremenljivke
B = CreateBitmap   // kreiranje bitne slike

                   // delo s sliko

Destroy (B)        // uničenje bitne slike

CreateBitmap xxx Destroy xxx

Osnovne lastnosti bitne slike

Width

Lastnost Width določa širino bitne slike.

Property TBitmap.Width As Long
Result	Long	Širina bitne slike v pikslih.

Height

Lastnost Height določa višino bitne slike.

Property TBitmap.Height As Long
Result	Long	Višina bitne slike v pikslih.

Nalaganje in shranjevanje bitne slike

Dim B As TBitmap
B = CreateBitmap
B.Load("c:\image.bmp")               // nalaganje iz datoteke
B.Save("c:\image.jpg")               // shranjevanje v drugo datoteko
B.SaveAs("c:\image.tif", ifTifLzw)   // shranjevanje z določenim formatom
Destroy(B)

Load

Metoda Load naloži bitno sliko iz navedene datoteke.

Method TBitmap.Load (FileName As String)
FileName	String	Polna pot do datoteke.

Save

Metoda Save shrani bitno sliko v navedeno datoteko.

Method TBitmap.Save (FileName As String)
FileName	String	Polna pot do datoteke, v katero se bo shranila bitna slika.

SaveAs

Metoda SaveAs shrani bitno sliko v navedeno datoteko v navedenem formatu. Za parameter Format obvezno uporabljajte konstante XXX Formati bitnih slik.

Method TBitmap.SaveAs (FileName As String, Format As Long)
FileName	String	Polna pot do datoteke, v katero se bo shranila bitna slika.
Format	Long	Format datoteke, v katerem se bo shranila bitna slika.

Splošne operacije na bitnih slikah

Dim B As TBitmap
B = CreateBitmap
If B.Scan(True) Then       // skeniranje slike (morate imeti skener)
  B.Crop(0, 0, 600, 600)   // izrez zgornjega levega vogala
  B.Rotate(45)             // rotacija za 45 stopinj v desno
  B.Resize(400, 400)       // pomanjšava slike
  B.Save("c:\image.jpg")   // shranjevanje v novo datoteko
EndIf
Destroy(B)

Copy

Metoda Copy .

Method TBitmap.Copy (Target As TBitmap, X, Y As Long)
Target	TBitmap	.
X	Long	.
Y	Long	.

CopyRectFrom

Metoda CopyRectFrom .

Method TBitmap.CopyRectFrom (Source As TBitmap, SX1, SY1, SX2, SY2, DX1, DY1 As Long)
Source	TBitmap	.
SX1	Long	.
SY1	Long	.
SX2	Long	.
SY2	Long	.
DX1	Long	.
DY1	Long	.

Crop

Metoda Crop odreže bitno sliko izven podanega okna.

Method TBitmap.Crop (Left, Top, Right, Bottom As Long)
Left	Long	Leva stran okna v pikslih,
Top	Long	Zgornja stran okna v pikslih,
Right	Long	Desna stran okna v pikslih,
Bottom	Long	Spodnja stran okna vpikslih.

CropToNew

Lastnost CropToNew .

RO Property TBitmap.CropToNew (Left, Top, Right, Bottom As Long) As TBitmap
Left	Long	.
Top	Long	.
Right	Long	.
Bottom	Long	.
Result	TBitmap	.

CropCircle

Metoda CropCircle .

Method TBitmap.CropCircle (Left, Top, Right, Bottom As Long)
Left	Long	.
Top	Long	.
Right	Long	.
Bottom	Long	.

Resize

Metoda Resize spremeni dimenzije bitne slike.

Method TBitmap.Resize (Width, Height As Long)
Width	Long	Nova širina bitne slike v pixel enotah.
Height	Long	Nova višina bitne slike v pixel enotah.

ResizeToNew

Lastnost ResizeToNew .

RO Property TBitmap.ResizeToNew (Width, Height As Long) As TBitmap
Width	Long	.
Height	Long	.
Result	TBitmap	.

Rotate

Metoda Rotate izvede rotacijo bitne slike.

Method TBitmap.Rotate (Angle As Float)
Angle	Float	Kot rotacije v decimalnih stopinjah.

Risanje

DrawLine

Metoda DrawLine .

Method TBitmap.DrawLine (X1, Y1, X2, Y2 As Long, L As TLineType, Faktor As Float)
X1	Long	.
Y1	Long	.
X2	Long	.
Y2	Long	.
L	TLineType	.
Faktor	Float	.

DrawLineColor

Metoda DrawLineColor .

Method TBitmap.DrawLineColor (X1, Y1, X2, Y2 As Long, L As TLineType, Faktor As Float, Color As Long)
X1	Long	.
Y1	Long	.
X2	Long	.
Y2	Long	.
L	TLineType	.
Faktor	Float	.
Color	Long	.

DrawSymbol

Metoda DrawSymbol .

Method TBitmap.DrawSymbol (X, Y As Long, S As TSymbol, Faktor As Float)
X	Long	.
Y	Long	.
S	TSymbol	.
Faktor	Float	.

DrawText

Metoda DrawText .

Method TBitmap.DrawText (X1, Y1 As Long, S As String, Size, Color As Long)
X1	Long	.
Y1	Long	.
S	String	.
Size	Long	.
Color	Long	.

Razno

Dim BM As TBitmap
Dim i,j as Long
BM = CreateBitmap             // Kreiranje novega bitmap razreda
BM.Width = 10                 // Določitev širine
BM.Height = 10                // Določitev višine
For I = 0 To BM.Width - 1     // Določitev barve
  For J = 0 To BM.Height - 1  // za vsak pixel
    BM.Pixel [I,J] = RGB (I * 20, 0, 0)
  Next
Next
BM.SaveAs ("C:\some1.jpg", ifJPG) // Shranitev v novo datoteko
Destroy (BM)                  // Uničenje bitmap razreda

Adjust

Metoda Adjust .

Method TBitmap.Adjust (Contrast, Brightness As Float)
Contrast	Float	.
Brightness	Float	.

Color

Lastnost Color .

Property TBitmap.Color As Long
Result	Long	.

Destroy

Metoda Destroy uniči predhodno kreiran objekta razreda TBitmap. Destroy sprosti spomin alociran za shranitev Tbitmap-a.

Method TBitmap.Destroy

GetGeoInfo

Lastnost GetGeoInfo .

RO Property TBitmap.GetGeoInfo (ByRef Y1, ByRef X1, ByRef Y2, ByRef X2 As Float) As Boolean
Y1	ByRef Float	.
X1	ByRef Float	.
Y2	ByRef Float	.
X2	ByRef Float	.
Result	Boolean	.

GrabCurrentFrame

Metoda GrabCurrentFrame .

Method TBitmap.GrabCurrentFrame

Pixel

Lastnost Pixel določa barvo opredljenega pixla v bistni sliki. Vrednost barve je lahko navedena kot konstantna vrednost, vrednost barve ali RGB funkcija.

Property TBitmap.Pixel (X, Y As Long) As Long
X	Long	Horizontalna vrednost za izbran pixel.
Y	Long	Vertikalna vrednost za izbran pixel.
Result	Long	.

Scan

Metoda Scan omogoča skeniranje bitne slike po TWAIN protokolu.

Method TBitmap.Scan (ShowDialog As Boolean) As Boolean
ShowDialog	Boolean	Če je True se vam aktivira dialog za skeniranje, drugače se skeniranje izvede brez posredovanja operaterja.
Result	Optional Boolean	True, če je bilo skeniranje uspešno.