This function creates a ‘grayed’ out bitmap.
\nSimply pass it a bitmap and a outline color.<\/p>\n
\n[code lang=”delphi”]function TForm1.CreateDisabledBitmap(FOriginal: TBitmap; OutlineColor: TColor): TBitmap;
\nconst
\n ROP_DSPDxax = $00E20746;
\nvar
\n MonoBmp: TBitmap;
\n IRect: TRect;
\nbegin
\n IRect := Rect(0, 0, FOriginal.Width, FOriginal.Height);
\n Result := TBitmap.Create;
\n try
\n Result.Width := FOriginal.Width;
\n Result.Height := FOriginal.Height;
\n MonoBmp := TBitmap.Create;
\n try
\n with MonoBmp do begin
\n Assign(FOriginal);
\n\t\t\t\t{$IFDEF S_D3}
\n HandleType := bmDDB;
\n \t{$ENDIF}
\n Canvas.Brush.Color := clBlack;
\n if Monochrome then begin
\n Canvas.Font.Color := clWhite;
\n Monochrome := False;
\n Canvas.Brush.Color := clWhite;
\n end;
\n Monochrome := True;
\n end;
\n with Result.Canvas do begin
\n Brush.Color := OutlineColor;
\n FillRect(IRect);
\n Brush.Color := clBtnHighlight;
\n SetTextColor(Handle, clBlack);
\n SetBkColor(Handle, clWhite);
\n BitBlt(Handle, 1, 1, IRect.Right – IRect.Left, IRect.Bottom – IRect.Top, MonoBmp.Canvas.Handle, 0, 0, ROP_DSPDxax);
\n Brush.Color := clBtnShadow;
\n SetTextColor(Handle, clBlack);
\n SetBkColor(Handle, clWhite);
\n BitBlt(Handle, 0, 0, IRect.Right – IRect.Left, IRect.Bottom – IRect.Top, MonoBmp.Canvas.Handle, 0, 0, ROP_DSPDxax);
\n end;
\n finally
\n MonoBmp.Free;
\n end;
\n except
\n Result.Free;
\n raise;
\n end;
\nend;
\n[\/code]
\nAnd this is one way you can call it.<\/p>\n
[code lang=”delphi”]Image2.Picture.Bitmap := CreateDisabledBitmap(Image1.Picture.Bitmap, clBtnFace);
\n[\/code]<\/p>\n
[tags]Delphi, Graphic[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"
This function creates a ‘grayed’ out bitmap. Simply pass it a bitmap and a outline color.<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,101],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-2t","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/153"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=153"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/153\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=153"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=153"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=153"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}