paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 18:20:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: hidding the text title for ownerdrawn controls

Browse Source
This commit is contained in:
Dmitry Boyarintsev 2021-10-02 00:23:39 -04:00 committed by Maxim Ganetsky
parent 26930d85c6
commit 49bb85a7ba
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1643,9 +1643,24 @@ var
r : NSRect; r : NSRect;
rr : NSRect; rr : NSRect;
dr : TRect; dr : TRect;
t : NSString;
begin begin
if isOwnerDrawn then
begin
t := title;
if Assigned(t) then t.retain;
setTitle(NSString.string_);
end else
t := nil;
inherited drawRect(dirtyRect); inherited drawRect(dirtyRect);
if Assigned(t) then
begin
setTitle(t);
t.release;
end;
// if ownerDrawn style, then need to call "DrawItem" event // if ownerDrawn style, then need to call "DrawItem" event
if isOwnerDrawn and Assigned(callback) if isOwnerDrawn and Assigned(callback)
and (lastSelectedItemIndex>=0) and (lastSelectedItemIndex<list.Count) and (lastSelectedItemIndex>=0) and (lastSelectedItemIndex<list.Count)