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".

  • 62 226 203 206 Lines 32 Path dnews 62 226 203 206 Xref dnews borland public delphi winapi 128425 In article José Sebastián Battig wrote Hi I need API fn to get Window title font anyone knows how to do this Procedure GetCaptionFont afont TFont var ncMetrics TNonClientMetrics begin assert assigned afont ncMetrics cbSize sizeof TNonClientMetrics SystemParametersInfo SPI GETNONCLIENTMETRICS sizeof TNonClientMetrics ncMetrics 0 afont Handle CreateFontIndirect ncMetrics lfCaptionFont end The

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



  • It is not yet ready but it works already You need an original image your text orgImg and a new image newImg on your form Then you can use the following method Using canvas it is absolutely slow but by using DDraw that could be solved The problem with that version is that it cannot scroll Just have a look at it and tell me if it is what you were looking for Then I ll finish it procedure TForm1 GetStarWarsText Written by Philipp Crocoll 10 10 1999 var xc yc Integer orgCoord TPoint newTopEdge Integer startX stopX Real mLeftSide Real screenZ screenTopY Integer textY Integer mg1 mg2 Real p1 r1 r2 TPoint param Real begin textY 30 mg1 textY orgImg Width 2 OrgImg Height mg2 textY orgImg Width 2 screenZ Round newImg Height mg1 mg2 screenTopY Round mg1 screenZ newTopEdge Round newImg Width orgImg Width orgImg width 2 orgImg Height 2 mLeftSide newTopEdge newImg Width 2 newImg Height startX newImg Width newTopEdge 2 stopX newImg Width startX p1 x orgImg width div 2 p1 y textY r1 x OrgImg Height r1 y 0 r2 x screenZ for yc 1 to newimg height do begin startX startX mLeftSide stopX stopX

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


  • declarations procedure GetSWText moveY Integer end var Form1 TForm1 implementation R DFM procedure TForm1 GetSWText moveY Integer Written by Philipp Crocoll 10 10 99 and 11 10 99 var xc yc Integer orgCoord TPoint newTopEdge Integer startX stopX Real mLeftSide Real screenZ screenTopY Integer textY Integer mg1 mg2 Real p1 r1 r2 TPoint param Real newBMPPointer orgBMPPointer PWordArray begin Get the background of newBMP newBMP canvas brush color backcolor newBMP canvas pen color backcolor newBMP canvas Rectangle 0 0 newBMP width newBMP height The following code works in space textY 30 mg1 textY orgBmp Width 2 OrgBmp Height mg2 textY orgBmp Width 2 screenZ Round newBMP Height mg1 mg2 screenTopY Round mg1 screenZ newTopEdge is the lenght of the OrgBMPs top side in newBMP newTopEdge Round newBMP Width orgBmp Width orgBmp width 2 orgBmp Height 2 mLeftSide newTopEdge newBMP Width 2 newBMP Height StartX and StopX tell you how wide one line is in newBMP startX newBMP Width newTopEdge 2 stopX newBMP Width startX p1 r1 and r2 x stay the same in the following loops p1 x orgBmp width div 2 p1 y textY r1 x OrgBmp Height r1 y 0 r2 x screenZ for yc 1 to newBMP

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


  • EnumChildWindows var tmpS string theClassName string clrText Integer begin Result True SetLength theClassName 256 GetClassName AHandle PChar theClassName 255 tmpS PChar theClassName if Pos SysListView32 tmpS 0 then begin ColorToRGB clNone clrText 1 Desired background color SendMessage AHandle LVM SETTEXTBKCOLOR 0 clrText clrText FFFFFF Desired text color BGR SendMessage AHandle LVM SETTEXTCOLOR 0 clrText end end procedure TForm1 Button1Click Sender TObject const WM REFRESH DESKTOP A065 var WndClass array 0

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


  • borland public delphi graphics Try this on a blank form with a button procedure TForm1 Button1Click Sender TObject begin with Form1 Canvas do begin Font Color clWhite Brush Style bsClear TextOut 150 100 Now is the time for all good men to come to the aid of their country Font Color clRed TextOut 152 102 Now is the time for all good men to come to the aid of their

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


  • only region but path functions in the WinAPI too which make it much easier to solve this Try this procedure TForm1 Button1Click Sender TObject begin with Canvas do begin Font Size 32 Font Name Arial Font style fsBold BeginPath Handle SetBkMode Handle TRANSPARENT TextOut 100 100 Outline EndPath Handle Pen Color clBlue Brush Color clRed Pen Width 1 Pen Style psDot only for demonstration StrokeAndFillPath Handle end end Note It

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


  • Win9x would be to call BitBlt twice procedure MaskBltC Dest HDC ABitmap TBitmap TransparentColor TColor X Y Integer var Bitmap Mask TBitmap begin Bitmap TBitmap Create Mask TBitmap Create try Bitmap Assign ABitmap Mask Assign ABitmap Mask Mask TransparentColor if TransparentColor skrev i meddelandet news 3ac8ec1a 2 dnews What is the proper way to transparently draw a bitmap I need to use Maskblt because the final image will wind up

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


  • traced those problems to the TransparentStretchBlt function in Graphics pas and made some modifications to fix it You could try it and see if it solves your problem function TransparentStretchBlt DstDC HDC DstX DstY DstW DstH Integer SrcDC HDC SrcX SrcY SrcW SrcH Integer MaskDC HDC MaskX MaskY Integer Boolean const ROP DstCopy 00AA0029 var MemDC HDC MemBmp HBITMAP Save THandle crText crBack TColorRef SavePal HPALETTE begin Result True if Win32Platform VER PLATFORM WIN32 NT and SrcW DstW and SrcH DstH then begin MemBmp GDICheck CreateCompatibleBitmap SrcDC 1 1 MemBmp SelectObject MaskDC MemBmp try MaskBlt DstDC DstX DstY DstW DstH SrcDC SrcX SrcY MemBmp MaskX MaskY MakeRop4 ROP DstCopy SrcCopy finally MemBmp SelectObject MaskDC MemBmp DeleteObject MemBmp end Exit end SavePal 0 MemDC GDICheck CreateCompatibleDC 0 try MemBmp GDICheck CreateCompatibleBitmap SrcDC SrcW SrcH Save SelectObject MemDC MemBmp SavePal SelectPalette SrcDC SystemPalette16 False SelectPalette SrcDC SavePal False if SavePal 0 then SelectObject MemDC Save DeleteObject MemBmp finally if SavePal In my application i use some bitmaps from a resource file I make the bitmaps transparent using TBitmap TransParentColor and it works perfect on my computer The problem is i tested the game on two other computers but the bitmaps isn t

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



  •