Dismiss Notice

REGISTRATION IS AFTER ADMIN ACTIVATION

DONATIONS WITH PAYPAL CLICK TO BUTTON

1 MONTH VIP - 5$; 3 MONTHS VIP - 10$; 6 MONTHS VIP - 20$; 1 YEAR VIP - 30$; 2 YEARS VIP - 50$; GOLD USER FOR LIFE VIP - 150$

DONATIONS WITH Bitcoin Address:3NRs3CK3fhXifrNYxHEZKpETDd9vNLMsMD

Dismiss Notice
The registration is approved by the Administrator. It takes about 1 day to approve your registration
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' started by N0body, Oct 23, 2013.

  1. N0body
    Online

    N0bodyN0body is a Verified Member DelphiFan Administrator 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
     
  2. BADBOYIII
    Offline

    BADBOYIII DF Junior

    Thanks  :D
     

Share This Page

Laws
Our website, law, laws, copyright and aims to be respectful of individual rights. Our site, as defined in the law of 5651 serves as a provider of space. According to the law, contrary to the law of site management has no obligation to monitor content. Therefore, our site has adopted the principle of fit and remove. Works are subject to copyright laws and is shared in a manner that violated their legal rights, or professional associations, rights holders who, adsdelphi@gmail.com I can reach us at e-mail address. Complaints considered to be infringing on the examination of the content will be removed from our site.
Donate Help To Us and Be VIP
DONATIONS WITH PAYPAL CLICK TO BUTTON
6 MONTHS VIP - 20$; 1 YEAR VIP - 30$; 2 YEARS VIP - 50$; GOLD USER FOR LIFE VIP - 150$
Social Block