Developing with Graphics/nl: what changed
Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.
| Old | New | Line | |
|---|---|---|---|
| 1 | 1 | ## Overview | |
| 2 | 2 | ||
| 3 | 3 | Deze pagina is de start voor lessen die betrekking hebben op het manipuleren van Bitmap en plaatjes in andere formats. Ik ben geen graphics programmeur, dus iedereen die wel veel met graphics programmeert zou ik willen vragen om deze pagina uit te breiden. Gewoon door een link te maken in de sectie hieronder en dan een Wiki-pagina te vullen. Op deze pagina zal ik een klein voorbeeldje geven van hoe je een fading plaatje kunt maken. | |
| 4 | 4 | ||
| 5 | 5 | ## Lessen in het programmeren met Graphics | |
| 6 | 6 | ||
| 7 | 7 | - Werken met een bitmap | |
| 8 | 8 | - | |
| 9 | 9 | ||
| 10 | 10 | ## Werken met TBitmap | |
| 11 | 11 | ||
| 12 | 12 | Allereerst even een FAQ beantwoorden: Waarom is er (nog) geen ScanLine in Lazarus? Zoals bekend is, moet Lazarus platform onafhankelijk zijn. Dit heeft tot gevolg tot methodes die gebruik maken van de Windows API niet tot de mogelijkheden behoren. ScanLine is zo'n method. ScanLine werkt met DIBs (Device Independant Bitmap) en gebruikt daarbij een aantal functies uit de GDI32.dll. | |
| 13 | 13 | ||
| 14 | 14 | ### Een "fading" voorbeeld | |
| 15 | 15 | ||
| 16 | 16 | Zoals gezegd zou ik hier laten zien hoe je een plaatje langzaam kunt laten opkomen. Een echte Nederlandse term for fading ken ik niet echt. In Delphi zou je volgende doen, omdat het pixel voor pixel benaderen van een plaatje erg langzaam is: | |
| 17 | 17 | ||
| 18 | 18 | `type`\ | |
| 19 | 19 | ` PRGBTripleArray = ^TRGBTripleArray;`\ | |
| 20 | 20 | ` TRGBTripleArray = array[0..32767] of TRGBTriple;`\ | |
| 21 | - | ||
| 21 | + | ||
| 22 | 22 | `procedure TForm1.FadeIn(aBitMap: TBitMap);`\ | |
| 23 | 23 | `var`\ | |
| 24 | 24 | ` Bitmap, BaseBitmap: TBitmap;`\ | |
| 25 | 25 | ` Row, BaseRow: PRGBTripleArray;`\ | |
| 26 | 26 | ` x, y, step: integer;`\ | |
| 27 | 27 | `begin`\ | |
| 28 | 28 | ` Bitmap := TBitmap.Create;`\ | |
| 29 | 29 | ` try`\ | |
| 30 | 30 | ` Bitmap.PixelFormat := pf32bit; // or pf24bit`\ | |
| 31 | 31 | ` Bitmap.Assign(aBitMap);`\ | |
| 32 | 32 | ` BaseBitmap := TBitmap.Create;`\ | |
| 33 | 33 | ` try`\ | |
| 34 | 34 | ` BaseBitmap.PixelFormat := pf32bit;`\ | |
| 35 | 35 | ` BaseBitmap.Assign(Bitmap);`\ | |
| 36 | 36 | ` for step := 0 to 32 do begin`\ | |
| 37 | 37 | ` for y := 0 to (Bitmap.Height - 1) do begin`\ | |
| 38 | 38 | ` BaseRow := BaseBitmap.Scanline[y];`\ | |
| 39 | 39 | ` Row := Bitmap.Scanline[y];`\ | |
| 40 | 40 | ` for x := 0 to (Bitmap.Width - 1) do begin`\ | |
| 41 | 41 | ` Row[x].rgbtRed := (step * BaseRow[x].rgbtRed) shr 5;`\ | |
| 42 | 42 | ` Row[x].rgbtGreen := (step * BaseRow[x].rgbtGreen) shr 5; // Fading`\ | |
| 43 | 43 | ` Row[x].rgbtBlue := (step * BaseRow[x].rgbtBlue) shr 5;`\ | |
| 44 | 44 | ` end;`\ | |
| 45 | 45 | ` end;`\ | |
| 46 | 46 | ` Form1.Canvas.Draw(0, 0, Bitmap);`\ | |
| 47 | 47 | ` InvalidateRect(Form1.Handle, nil, False);`\ | |
| 48 | 48 | ` RedrawWindow(Form1.Handle, nil, 0, RDW_UPDATENOW);`\ | |
| 49 | 49 | ` end;`\ | |
| 50 | 50 | ` finally`\ | |
| 51 | 51 | ` BaseBitmap.Free;`\ | |
| 52 | 52 | ` end;`\ | |
| 53 | 53 | ` finally`\ | |
| 54 | 54 | ` Bitmap.Free;`\ | |
| 55 | 55 | ` end;`\ | |
| 56 | 56 | `end;` | |
| 57 | 57 | ||
| 58 | 58 | In Lazarus is er geen ScanLine en moeten we het dus op een andere manier doen. Hoewel deze manier niet zo snel is als de ScanLine methode is die wel veel sneller dan de Pixel\[x,y\] methode in Delphi. | |
| 59 | 59 | ||
| 60 | 60 | `procedure TForm1.FadeIn(ABitMap: TBitMap);`\ | |
| 61 | 61 | `var`\ | |
| 62 | 62 | ` SrcIntfImg, TempIntfImg: TLazIntfImage;`\ | |
| 63 | 63 | ` ImgHandle,ImgMaskHandle: HBitmap;`\ | |
| 64 | 64 | ` FadeStep: Integer;`\ | |
| 65 | 65 | ` px, py: Integer;`\ | |
| 66 | 66 | ` CurColor: TFPColor;`\ | |
| 67 | 67 | ` TempBitmap: TBitmap;`\ | |
| 68 | 68 | `begin`\ | |
| 69 | 69 | ` SrcIntfImg:=TLazIntfImage.Create(0,0);`\ | |
| 70 | 70 | ` SrcIntfImg.LoadFromBitmap(ABitmap.Handle,ABitmap.MaskHandle);`\ | |
| 71 | 71 | ` TempIntfImg:=TLazIntfImage.Create(0,0);`\ | |
| 72 | 72 | ` TempIntfImg.LoadFromBitmap(ABitmap.Handle,ABitmap.MaskHandle);`\ | |
| 73 | 73 | ` TempBitmap:=TBitmap.Create;`\ | |
| 74 | 74 | ` for FadeStep:=1 to 32 do begin`\ | |
| 75 | 75 | ` for py:=0 to SrcIntfImg.Height-1 do begin`\ | |
| 76 | 76 | ` for px:=0 to SrcIntfImg.Width-1 do begin`\ | |
| 77 | 77 | ` CurColor:=SrcIntfImg.Colors[px,py];`\ | |
| 78 | 78 | ` CurColor.Red:=(CurColor.Red*FadeStep) shr 5;`\ | |
| 79 | 79 | ` CurColor.Green:=(CurColor.Green*FadeStep) shr 5;`\ | |
| 80 | 80 | ` CurColor.Blue:=(CurColor.Blue*FadeStep) shr 5;`\ | |
| 81 | 81 | ` TempIntfImg.Colors[px,py]:=CurColor;`\ | |
| 82 | 82 | ` end;`\ | |
| 83 | 83 | ` end;`\ | |
| 84 | 84 | ` TempIntfImg.CreateBitmap(ImgHandle,ImgMaskHandle,false);`\ | |
| 85 | 85 | ` TempBitmap.Handle:=ImgHandle;`\ | |
| 86 | 86 | ` TempBitmap.MaskHandle:=ImgMaskHandle;`\ | |
| 87 | 87 | ` Canvas.Draw(0,0,TempBitmap);`\ | |
| 88 | 88 | ` end;`\ | |
| 89 | 89 | ` SrcIntfImg.Free;`\ | |
| 90 | 90 | ` TempIntfImg.Free;`\ | |
| 91 | 91 | ` TempBitmap.Free;`\ | |
| 92 | 92 | `end;` | |
| 93 | 93 | ||
| 94 | 94 | De Lazarus code op deze pagina is overgenomen uit het \$LazarusPath/examples/lazintfimage/fadein1.lpi project. Dus als je echt een vliegende start in het programmeren van plaatjes wilt hebben moet dat voorbeeld eens bestuderen. | |
| 95 | 95 | ||
| 96 | 96 | --- | |
| 97 | 97 | *From the Free Pascal wiki, page "Developing with Graphics/nl", as it stood on 2005-10-23 after a change by Sekelsenmat, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).* |