>does anybody here knows how can I do a RC file with an animated cursor? Borland’s resource compiler does not understand the ANICURSOR resource type, so you have to use the numeric id (21). For example, you can add Sample.rc … Weiterlesen →

animierte Cursor benutzen Frequently Asked Questions – Using an animated cursor. Question: How do use an animated cursor? Answer: You will first need to get a handle to a Windows cursor and assign it to the TScreen component’s Cursors array. … Weiterlesen →

Bezier curves Kurven füllen von Polygonen When I try this… var p: array[0..20] of TPoint; begin canvas.MoveTo(50, 10); p[0].x := 10; p[0].y := 10; p[1].x := 50; p[1].y := 100; p[2].x := 10; p[2].y := 100; canvas.Brush.Style := bsSolid; canvas.brush.color … Weiterlesen →

Luis Antonio wrote in message news:7ksu6u$ c3l14@forums.borland.com… > Hello: > > I’m making a cartographic program that use an TImage with an > cartographic map image in jpeg format as background. This map is inside a > scrollbox because is … Weiterlesen →

Here’s the code. This is particularly neat to use if you want to place text on a bitmap and guarantee that the text is readable without completely obscuring the image underneath; simply tint the area underneath the text with clBlack, … Weiterlesen →

On Tue, 31 Aug 1999 14:51:36 +0800, “xiaomin” wrote: >how to adjust Bright and constant for any format >of bitmap(pf4 ,pf8…). > brightness, just add an equal value to each channel. contrast, multiply with a value, either > 1 (for … Weiterlesen →

This function creates a ‘grayed’ out bitmap. Simply pass it a bitmap and a outline color. This function creates a ‘grayed’ out bitmap. Simply pass it a bitmap and a outline color. Tags: Delphi, Graphic

Thanks, that’s what I was looking for! Paul Nicholls schrieb: > Hi Philipp, you could try this: > > r := (value shr 10) and 31; > g := (value shr 5) and 31; > b := value and 31; … Weiterlesen →

// Make sure to add Math to your uses clause. procedure TForm1.bmp_rotate(src,dst:tbitmap;angle:extended); var   c1x,c1y,c2x,c2y:integer;   p1x,p1y,p2x,p2y:integer;   radius,n:integer;   alpha:extended;   c0,c1,c2,c3:tcolor; begin    //calculate the angle to pi-format   angle := (angle / 180) * pi;    // … Weiterlesen →