If (GetWindowLong(Handle, GWL_STYLE) and BS_SPLITBUTTON) = BS_SPLITBUTTON thenĭrawControlText(Canvas, LDetails, Text, DrawRect, DT_VCENTER or DT_CENTER)
LDetails := StyleServices.GetElementDetails(tbCommandLinkGlyphDisabled) LDetails := StyleServices.GetElementDetails(tbCommandLinkGlyphNormal) LDetails := StyleServices.GetElementDetails(tbCommandLinkGlyphHot) LDetails := StyleServices.GetElementDetails(tbCommandLinkGlyphPressed) StyleServices.DrawText(Canvas.Handle, LDetails, Buffer, DrawRect, Inc(DrawRect.Top, Canvas.TextHeight('Wq') + 2) LTextFormatFlags := TTextFormatFlags(DT_LEFT or DT_WORDBREAK) If Button_GetNote(Handle, PChar(Buffer), BufferLength) then SetLength(Buffer, Button_GetNoteLength(Handle) + 1) StyleServices.DrawText(Canvas.Handle, LDetails, BCaption, DrawRect, LTextFormatFlags, ) If StyleServices.GetElementColor(LDetails, ecTextColor, ThemeTextColor) then LTextFormatFlags := TTextFormatFlags(DT_LEFT) ImageList_Draw(pbuttonImagelist.himl, 0, Canvas.Handle, (DrawRect.Right - IW) div 2, (DrawRect.Height - IH) - 3, ILD_NORMAL) Ĭanvas.Font := TCustomButtonH(Control).Font
ImageList_Draw(pbuttonImagelist.himl, 0, Canvas.Handle, (DrawRect.Right - IW) div 2, 3, ILD_NORMAL) ImageList_Draw(pbuttonImagelist.himl, 0, Canvas.Handle, (DrawRect.Right - IW) div 2, IY, ILD_NORMAL) ImageList_Draw(pbuttonImagelist.himl, 0, Canvas.Handle, DrawRect.Right - IW -3, IY, ILD_NORMAL) ImageList_Draw(pbuttonImagelist.himl, 0, Canvas.Handle, DrawRect.Left + 3, IY, ILD_NORMAL) here the image is drawn properly according to the ImageAlignment valueĬase TCustomButton(Control).ImageAlignment of IY := DrawRect.Top + (DrawRect.Height - IH) div 2 If (GetWindowLong(Handle, GWL_STYLE) and BS_COMMANDLINK) = BS_COMMANDLINK then If Button_GetImageList(handle, pbuttonImagelist) and (pbuttonImagelist.himl 0) and ImageList_GetIconSize(pbuttonImagelist.himl, IW, IH) then StyleServices.DrawElement(Canvas.Handle, LDetails, DrawRect) LDetails := StyleServices.GetElementDetails(tbPushButtonDisabled) LDetails := StyleServices.GetElementDetails(tbPushButtonNormal) LDetails := StyleServices.GetElementDetails(tbPushButtonDefaulted) LDetails := StyleServices.GetElementDetails(tbPushButtonHot) LDetails := StyleServices.GetElementDetails(tbPushButtonPressed) Procedure TButtonStyleHookFix.Paint(Canvas: TCanvas) Procedure Paint(Canvas: TCanvas) override TButtonStyleHookFix = class(TButtonStyleHook)
#GLYPHR STUDIO DEFAULT EXPORT FONT SIZE CODE#
to avoid writting a lot of extra code we are to use TButtonStyleHook class and override the paint method TButtonStyleHookHelper = class Helper for TButtonStyleHook we need this helper to access some strict private fields
#GLYPHR STUDIO DEFAULT EXPORT FONT SIZE PATCH#
So to fix that we must patch the code of the Paint method TButtonStyleHook style hook. This is due which the TButtonStyleHook class (used by the TButton component) ignore the value of the ImageAlignment property. Now if you apply any VCL Style, this is the resultĪs you can see the images are not aligned properly. Tipically when you uses this property in a TButton without a Vcl Style applied you had a result like this. A few weeks ago a fellow Delphi developer ask me via email about a workaround for a bug in the TButton component, when the ImageAlignment property has a value different than iaLeft (btw I just submit this bug to Quality Central).
0 kommentar(er)
