paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-25 05:28:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

Cocoa/ComboBox: fix OwnerDraw rect in csOwnerDrawFixed style

Browse Source
This commit is contained in:
rich2014 2024-08-31 18:12:51 +08:00
parent a0b4ab416c
commit fcd3e2ca62
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/cocoa/cocoatextedits.pas
View File

@ -667,6 +667,7 @@ end;
procedure TCocoaReadOnlyView.drawRect(dirtyRect: NSRect);
var
ctx : TCocoaContext;
ctxRect: TRect;
begin
inherited drawRect(dirtyRect);
@ -674,8 +675,9 @@ begin
ctx := TCocoaContext.Create(NSGraphicsContext.currentContext);
try
ctx.InitDraw(Round(dirtyRect.size.width), Round(dirtyRect.size.height));
combobox.callback.ComboBoxDrawItem(itemIndex, ctx, NSRectToRect(frame), isMouseOver);
ctxRect:= NSRectToRect( bounds );
ctx.InitDraw( ctxRect.Width, ctxRect.Height );
combobox.callback.ComboBoxDrawItem(itemIndex, ctx, ctxRect, isMouseOver);
finally
ctx.Free;
end;