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

  • to do is make sure you choose a font that is scalable True Type like Arial and set all of your forms properties Scaled False this will make it so that even if the fonts are set to large your application will keep it s look about it Douglas Sim Zacks wrote When Large fonts is chosen as a system setting all of our applications get all out of whack

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



  • 52 19 0400 Sim Zacks wrote When Large fonts is chosen as a system setting all of our applications get all out of whack I assume there s an easy way to handle this as I didn t see any other applications looking that bad The problem is the buttons all get bigger so they don t fit on the screen anymore and the panels get bigger and it doesn

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


  • X Trace news101 telia com 921171806 3016 194 255 245 204 11 Mar 1999 17 03 26 GMT Organization Customer at Telia Danmark http www telia dk NNTP Posting Date 11 Mar 1999 17 03 26 GMT Newsgroups borland public delphi graphics Set your forms Scaled property to False Remi van Dongen skrev i meddelelsen Hi I have a problem with Delphi and the windows fontsize The executable is different

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


  • telepath com Newsgroups borland public delphi graphics On Thu 19 Aug 1999 21 19 14 0200 Jens Gruschel wrote FontListBox Items Screen Fonts how can I delete non truetype fonts from the list Select each font into a device context and then call GetTextMetrics the tmPitchAndFamily member of the TTextMetric structure will tell you if the font is TrueType or not function IsTrueType const FaceName String Boolean var Canvas TCanvas

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


  • To 100113 1101 compuXXserve com Newsgroups borland public delphi vcl components using In article Tts wrote I attempted to add Gold like color to TFont but found out that TFont selects the nearest clean color and do not accept Dirthered colors There is a limitation on the Windows GDI text output functions if i remember correctly they do not accept dithered colors for text or background The reason is that

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


  • COLOR ACTIVECAPTION else SetBkColor MyHDC GetSysColor COLOR INACTIVECAPTION This enables to view gradient color change under Windows 2000 SetBkMode MyHDC TRANSPARENT Text color must be retrieved from system also if Active then SetTextColor MyHDC GetSysColor COLOR CAPTIONTEXT else SetTextColor MyHDC GetSysColor COLOR INACTIVECAPTIONTEXT Here is actual text output on the caption DrawText MyHDC sc title 1 MyRect DT LEFT ReleaseDC Handle MyHDC end You have to write a handler for form s OnCreate event as follows procedure TForm1 FormCreate Sender TObject begin Just set canvas font to your font I used this to write Lithuanian font text on the systems which doesn t supported Lithuanian language Well this may contradict to Microsoft rule that form s caption must be written in System s font but I denied it for the sake of Lithuanian user Font Name TimesLT Stressed Font Size 12 Font Charset ANSI CHARSET Canvas Font Name TimesLT Stressed Canvas Font Size 12 Canvas Font Charset ANSI CHARSET It is necessary to set Form s caption to empty string in order system doesn t implement Caption drawing Caption Form has to be repainted when a user switches to another application s window Application OnDeactivate AppDeactivate end procedure TForm1 AppDeactivate Sender TObject begin Form1 Repaint end Also form has to be repainted here too procedure TForm1 FormDeactivate Sender TObject begin Form1 Repaint end Take into account Microsoft rule there must be no bitmaps in form s caption area There are some other rules but this is most important Well but you can avoid it always on your own will I hope it helps Also in case you will know any Delphi or MS VisualC projects which need programmer let me know I am doing off site projects in Delphi Visual C Kind regards Renaldas Urniezius Kaunas Lithuania the Baltic States

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


  • define a rectangle and save this as a bitmap if I can save as PNG even better I mean save what I can see as a bitmap with memo canvas and statictext You can create a canvas for the complete screen and copy a part of that to a bitmaps canvas If you define the rectangle on the form so in the forms client coordinates you need to convert that to screen relative coordinates Example untesed Procedure CopyFormrectToBitmap aForm Tform aRect TRect aBitmap TBitmap Var cv TCanvas Begin Assert Assigned aform Assert Assigned aBitmap cv TCanvas Create try cv Handle CreateDC DISPLAY Nil Nil Nil try MapWindowPoints aForm handle HWND DESKTOP aRect 2 aBitmap Width arect right arect left aBitmap Height arect bottom arect top aBitmap Canvas Copymode cmSrcCopy aBitmap Canvas CopyRect aBitmap Canvas Cliprect cv aRect finally DeleteDC cv Handle cv Handle 0 End Try finally Finally cv free End Try finally End You need to pass an existing bitmap instance to the procedure which you can then save to file For PNG you need to find some conversion routine or component on the web Search one of the sites below http www borland com delphi resources deltools html

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


  • for mail MIME Version 1 0 Content Type text plain charset iso 8859 1 X MimeOLE Produced By Microsoft MimeOLE V5 50 4133 2400 Content Transfer Encoding quoted printable X ELN Date 19 Mar 1999 14 23 24 GMT X ELN Insert Date Fri Mar 19 06 25 10 1999 Organization EarthLink Network Inc X Newsreader Microsoft Outlook Express 4 72 3155 0 Lines 49 NNTP Posting Host sdn ar 001paphilp250 dialsprint net Message ID Xref wn8 comp lang pascal delphi components misc 18697 procedure TMainForm ResizeToFullScreen var c TComponent theLeft theTop theHeight theWidth theSize Longint i integer theRatio Double begin theRatio 3DScreen Width Self Width Self Width 3DScreen Width Self Height 3DScreen Height Left 3D0 Top 3D0 if you don t need resize to full screen use other way to calculate theRatio for i 3D0 to ComponentCount 1 do begin c 3DComponents i if c is TControl then begin theLeft 3DRound c as TControl Left theRatio theTop 3DRound c as TControl Top theRatio theHeight 3DRound c as TControl Height theRatio theWidth 3DRound c as TControl Width theRatio c as TControl Left 3DtheLeft c as TControl Top 3DtheTop c as TControl Height 3DtheHeight c as TControl Width 3DtheWidth if c

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



  •