1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.
  2. Donation with Paypal!!!

    Go to your paypal account and send directly donation to [email protected]

    1 month - 10 $ - Standart VIP

    6 months - 20 $- Standart VIP

    1 year - 30 $- Standart VIP

    2 years - 50 $- Standart VIP

    Gold member for life - 150 $- Standart VIP

    High Vip (Standart VIP include) group please send PM or email to [email protected] for info

    After Donation please send email to [email protected]

  3. Donation Ways 2020


    Paysend
  4. Telegram
Dismiss Notice

Donation with Paypal!!!

Go to your paypal account and send directly donation to [email protected]

1 month - 10 $ - Standart VIP

6 months - 20 $- Standart VIP

1 year - 30 $- Standart VIP

2 years - 50 $- Standart VIP

Gold member for life - 150 $- Standart VIP

High Vip (Standart VIP include) group please send PM or email to [email protected] for info

After Donation please send email to [email protected]

Dismiss Notice
For open hidden message no need write thanks, thank etc. Enough is click to like button on right side of thread.

TOrImage for Delphi 7

Discussion in 'Delphi Components,Freeware, Open Source' started by AdminDF, Oct 23, 2013.

  1. AdminDF
    Online

    AdminDFAdminDF is a Verified Member Delphifan Staff Member DF Staff

    [​IMG][​IMG][/img]

    Now support Delphi 7
    TOrImage component is a TImage that allow programmer to change picture characteristic: Brightness, Contrast, Lightness, Darkness, Color saturation and add some grafic effects (GrayScale, Invert, ColorNoise, MonoNoise, Posterize, Solorize, Emboss, Mosaic, SplitBlur, GaussianBlur, AntiAlias, Trace, Tile) in design and run time, togethe or by ones.

    To set picture characteristic and grafic effects in design time your can use property editor or Object Inspector directly.

    TOrImage support any of register in your Delphi grafic files format: *.jpg, *.bmp, *.gif, *.wmf, *.ico and other.
    This are TOrImage new or modified propertys and methods:

    public

    property IsMouseEntering: Boolean; readonly; Set to True if mouse above the component

    property Picture: TPicture; readonly; Picture bitmap (TBitmap) after transform (Set automatically from PictureOriginal)

    procedure UpdateEffects; Update Picture transform (use if your change property Picture indirectly)

    procedure ResetEffects; Reset any transform and set Picture to PictureOriginal

    published

    property PictureOriginal: TPicture; Save original picture bitmap as TBitmap (convert from any of register in your Delphi grafic format, successors of TGrafic)

    property PicBrightness: Integer; Brightness: -255..255

    property PicContrast: Integer; Contrast: -255..MaxInt

    property PicGrayScale: Boolean; Gray scale only, if true

    property PicLightness: Integer; Lightness: -MaxInt...255

    property PicDarkness: Integer; Darkness: -MaxInt...255

    property PicSaturation: Integer; Color saturation: -255..MaxInt

    property PicSplitlight: Integer; Split light: 0..10

    property PicInvert: Boolean; Invert colors, if true

    property PicColorNoise: Integer; *1 Add color noise: 0..MaxInt

    property PicMonoNoise: Integer; *1 Add mono noise: 0..MaxInt

    property PicPosterize: Integer; *2 Posterize effect: 0..MaxInt

    property PicSolorize: Integer; *2 Solorize effect: 0..MaxInt

    property PicEmboss: Boolean; *3 Set Emboss effect, if true

    property PicMosaic: Integer; *3 Mosaic effect: 0..MAX(Pic.W,Pic.H)

    property PicSplitBlur: Integer; *3 SplitBlur effect: 0..255;

    property PicGaussianBlur: Integer; *3 GaussianBlur effect: 0..50;

    property PicAntiAlias: Integer; *3 AntiAlias effect: 0..50;

    property PicTrace: Integer; *3 Trace effect: 0..10;

    property PicTile: Integer; *3 Tile effect: 0..MAX(Pic.W,Pic.H)div 10;

    property PictureEffects; Run effects property EDITOR;

    Events:

    property OnMouseEnter: TNotifyEvent; Event handler to respond when the mouse entering to client rectangle

    property OnMouseExit: TNotifyEvent; Event handler to respond when the mouse exiting of client rectangle

    *1, *2, *3 - group of effects. Your can set only one effect from each group at one time. Other automatic set to 0.


    Note:
    Some algoritm of grafic effects are deriving from TProEffectImage, written by Babak Sateli

    Demo
    Full Download with source code
     
    paramithas likes this.
  2. BADBOYIII
    Offline

    BADBOYIII DF Junior

    ThanksĀ  :D
     

Share This Page