archive-com.com » COM » E » EFG2.COM

Total: 878

Choose link from "Titles, links and description words view":

Or switch to "Titles and links view".

  • ScanLine and Canvas PenPos were minimized and the code assumes PixelFormat pf32Bit pixels are treated as 32 bit integers All loops were semi unrolled to process pixels in pairs this has several benefits 1 The loop counters are tested half as often as they otherwise would be 2 The if statement within the diagonal line loop is also tested half as often 3 The lines are guaranteed to be symmetrical 4 Modern processors can pair up the pixel operations and execute them simultaneously since they are not dependent on each other procedure TEnhBitmap LineTo const X2 Integer const Y2 Integer var DX Integer X dimension of the line segment DY Integer Y dimension of the line segment Delta Integer total distance remaining to next minor axis Epsilon Integer aspect ratio of the line segment Index Integer loop counter Pixel1 PInteger pixel pointers Pixel2 PInteger RowOffset Integer pointer offset for adjacent rows MajorOffset Integer RowOffset or ColOffset as appropriate MinorOffset Integer RowOffset or ColOffset as appropriate DiagonalOffset Integer MajorOffset MinorOffset for 45 angles Count Integer number of pixel pairs in the line segment const ColOffset 1 pointer offset for adjacent columns begin if X1 Width or X2 Width or Y1 Height

    Original URL path: http://www.efg2.com/Lab/Library/Delphi/Graphics/GaryWillilams_EnhBitmap.TXT (2016-02-14)
    Open archived version from archive



  • then begin ShowMessage GetWindowRect failed exit end Build the region point by point points 0 x 0 points 0 y 0 points 1 x 0 points 1 y GetSystemMetrics SM CYMENU GetSystemMetrics SM CYCAPTION points 2 x wrect right wrect left div 2 points 2 y wrect bottom wrect top points 3 x wrect right wrect left points 3 y GetSystemMetrics SM CYMENU GetSystemMetrics SM CYCAPTION points 4 x wrect

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1998/0716.txt (2016-02-14)
    Open archived version from archive


  • default drawing parameters brush and pen The TCanvas Pie can be used to get what you want with a little trig The following has 0 degrees being to the right as in trig classes with a positive angle in the counterclockwise direction as in trig classes USES Math DegToRad PROCEDURE DrawPieSlice CONST Canvas TCanvas CONST Center TPoint CONST Radius INTEGER CONST StartDegrees StopDegrees Double CONST Offset 0 to make 0 degrees start to the right VAR X1 X2 X3 X4 INTEGER Y1 Y2 Y3 Y4 INTEGER BEGIN X1 Center X Radius Y1 Center Y Radius X2 Center X Radius Y2 Center Y Radius negative signs on Y values to correct for flip from normal math defintion for Y dimension X3 Center X Round Radius COS DegToRad Offset StartDegrees Y3 Center y Round Radius SIN DegToRad Offset StartDegrees X4 Center X Round Radius COS DegToRad Offset StopDegrees Y4 Center y Round Radius SIN DegToRad Offset StopDegrees Canvas Pie X1 Y1 X2 Y2 X3 Y3 X4 Y4 END Pie procedure TForm1 Button1Click Sender TObject VAR Center TPoint Bitmap TBitmap Radius INTEGER begin ASSERT Image1 Width Image1 Height Assume square for now Bitmap TBitmap Create TRY Bitmap Width Image1 Width Bitmap Height Image1

    Original URL path: http://www.efg2.com/Lab/Library/Delphi/Graphics/DrawPieSlice.txt (2016-02-14)
    Open archived version from archive


  • Host 213 118 209 40 Message ID X Trace dnews 1009133909 213 118 209 40 23 Dec 2001 10 58 29 0800 Path dnews Xref dnews borland public delphi objectpascal 221211 D Jellema schreef in bericht news 3c261a08 1 dnews How can I make sure that when I resize a form I get an resizing rectangle instead of a flickering resizing of the form which is standard in Windows XP

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2001/1223.txt (2016-02-14)
    Open archived version from archive


  • Mike How to I go about imbedding a AVI file in to my app so I do not an external avi file Create a text file with an RC extension Do not name this file the same as any form or with the same name as your project The file should contain AVI For example in MyRes rc MYAVI AVI C MyApp MyAVI avi In Delphi 6 or 7 use

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2003/0227b.txt (2016-02-14)
    Open archived version from archive


  • ISO 8859 1 Content Transfer Encoding 8bit NNTP Posting Host 62 224 193 34 Message ID X Trace newsgroups borland com 1035162406 62 224 193 34 20 Oct 2002 18 06 46 0700 Lines 52 Path newsgroups borland com not for mail Xref newsgroups borland com borland public delphi graphics 52422 Hi Ingo Ingo Wulf wrote in I want to place a 24bit Bitmap in my recource but I have found no way to do this The in Delphi 4 und also 6 included brcc32 can only handle up to 256 color bitmaps I don t know this for Delphi 4 but in Delphi 5 and later you can use a rc File in your Delphi project 1 Create a empty file with the file type rc 2 Call shift F11 add a file to the project Datei zum Projekt hinzufügen 3 Choose file type resource files rc 4 Choose your file 5 Write a line MYBITMAP BITMAP path filename bmp The first part is the resource name you should use only uppercase letters digits and The last part is the path and filename relative or absolute to your bitmap You can write furthermore lines for furthermore bitmaps Ready A

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2002/1020.txt (2016-02-14)
    Open archived version from archive


  • able to include the wav in my program executable but how can I do this I ve seen a few times that external files can be saved in some sort of resource file but where would I then point PlaySound to if the file is stored in the exe Here s a couple of alternatives procedure TFrmWaves PlayTheSound AName PChar var resInfo THandle wavHdl THandle wavPtr Pointer begin case RgrMethod

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2001/0104.txt (2016-02-14)
    Open archived version from archive


  • message Scott Tesch stated How do I save a WAV file to a RES file so that I can build it into my EXE Scott if you re using Delphi 5 simply build an rc file that looks like CORRECT WAVE correct wav DOG WAVE dog wav FROG WAVE frog wav GIVEUP WAVE giveup wav GOODBYE WAVE goodbye wav INCORREC WAVE incorrec wav OPEN WAVE OPEN WAV PIG WAVE pig

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/1109.txt (2016-02-14)
    Open archived version from archive



  •