Once it's in there people will expect it to handle everything. My first thought was to clear the FBuffer in the PaintColorPicker () method as such, FBuffer.Clear ( Color32 ( StyleServices.GetStyleColor ( scWindow ) ) ) works great for non textured styles, but, for styles like Glossy or Jet, not much chop. I would like to merge this enhancement into the standard TImage32 but I'm a bit hesitant to do so.įirst of all it's very rudimentary and as you can see we can expect that there will be scenarios that it doesn't handle (with regard to what's behind the TImage32). 1 I am using the Graphics32 TColorPickerGTK component, unfortunately, it doesn't support VCL Styles. As you can see the transparency works with the TImage but not with the TMemo: I've placed a TImage and a TMemo behind the TImage32 and loaded a semitransparent bitmap into the TImage32. Here's what the standard TImage32 demo looks like with the change. and set the Image.Transparent property to True in code. GR32, GR32_Image, GR32_Resamplers, GR32_RangeBars, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, To use it add the unit to the uses clause after GR32_Image. Procedure TImage32.SetTransparent(const Value: Boolean) Parent.Perform(WM_PAINT, Dest.Handle, 0) Parent.Perform(WM_ERASEBKGND, Dest.Handle, 0) IntersectClipRect(Dest.Handle, 0, 0, Parent.ClientWidth, Parent.ClientHeight) SetViewportOrgEx(Dest.Handle, P.X - Left, P.Y - Top, nil) ((Bitmap nil) and ((BitmapAlign = baTile) or (ScaleMode = smStretch))) then If (not FTransparent) or (Parent = nil) or Procedure TImage32.ExecClearBackgnd(Dest: TBitmap32 StageNum: Integer) Property Transparent: Boolean read FTransparent write SetTransparent Procedure ExecClearBackgnd(Dest: TBitmap32 StageNum: Integer) override Procedure SetTransparent(const Value: Boolean)
0 kommentar(er)
