Search found 554 matches
- Sat Dec 27, 2025 9:58 am
- Forum: Mac OSX
- Topic: ExplorerTreeGadget color
- Replies: 8
- Views: 863
Re: ExplorerTreeGadget color
Here, under macOS 14.8.2, I can't see any problem.
- Fri Dec 26, 2025 6:36 pm
- Forum: Mac OSX
- Topic: ExplorerTreeGadget color
- Replies: 8
- Views: 863
Re: ExplorerTreeGadget color
Do you mean something like this?
If OpenWindow(0, 0, 0, 300, 300, "ExplorerTreeGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ExplorerTreeGadget(0, 10, 10, 280, 280, "*.pb;*.pbi")
CocoaMessage(0, GadgetID(0), "setBackgroundColor:", CocoaMessage(0, 0, "NSColor systemRedColor ...
If OpenWindow(0, 0, 0, 300, 300, "ExplorerTreeGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ExplorerTreeGadget(0, 10, 10, 280, 280, "*.pb;*.pbi")
CocoaMessage(0, GadgetID(0), "setBackgroundColor:", CocoaMessage(0, 0, "NSColor systemRedColor ...
- Wed Nov 12, 2025 9:16 pm
- Forum: Mac OSX
- Topic: NSPopOver Functions
- Replies: 3
- Views: 1099
Re: NSPopOver Functions
Nice!
A smal variation with a list...
#NSMaxYEdge = 2 ; 0-3 change the orientation
#NSFocusRingTypeNone = 1
Global popover = 0
Global vc = 0
Global contentView = 0
Global label = 0
Global NSTableView
; Create
Procedure.i CreateContentView(width, height)
Protected rect.NSRect
rect\origin\x = 0 ...
A smal variation with a list...
#NSMaxYEdge = 2 ; 0-3 change the orientation
#NSFocusRingTypeNone = 1
Global popover = 0
Global vc = 0
Global contentView = 0
Global label = 0
Global NSTableView
; Create
Procedure.i CreateContentView(width, height)
Protected rect.NSRect
rect\origin\x = 0 ...
- Thu Sep 18, 2025 7:01 pm
- Forum: Mac OSX
- Topic: Change Theme
- Replies: 7
- Views: 2907
Re: Change Theme
Code: Select all
mask = CocoaMessage(0, #window, "styleMask")
mask | #NSBorderlessWindowMask
CocoaMessage(0, #window,"setStyleMask:", mask)
- Mon Sep 08, 2025 7:08 pm
- Forum: Tricks 'n' Tips
- Topic: Select folder dialog
- Replies: 15
- Views: 7850
Re: Select folder dialog
Thank you very much! This is such a great community.
- Sun Sep 07, 2025 9:45 pm
- Forum: Tricks 'n' Tips
- Topic: Select folder dialog
- Replies: 15
- Views: 7850
Re: Select folder dialog
Can someone give me an example for the AddCheckButton() Method please?
- Wed Jul 30, 2025 2:40 pm
- Forum: Coding Questions
- Topic: GetExtensionPart fails with a space
- Replies: 17
- Views: 1915
Re: GetExtensionPart fails with a space
Procedure.s MyGetExtensionPart3(*p)
*str.string = @*p
length = StringByteLength(*str\s)
*char.character = *p +length
Repeat
*char -SizeOf(character)
If *char\c = 46
*char +SizeOf(character)
*str = @*char
ProcedureReturn *str\s
EndIf
Until *char = *str ...
- Sat Jul 12, 2025 1:07 am
- Forum: Coding Questions
- Topic: Order of JSON items
- Replies: 9
- Views: 1123
Re: Order of JSON items
Hello Sergey,
your example does not work in my case.
I want to get the name in the same order as it is written, but I get Tom, Michel, Peter.
Global NewList packages.s()
Declare findUser(JSONValue, getMembers=#NO)
Procedure.i findUser(JSONValue, getMembers=#NO)
Protected key$
Select ...
your example does not work in my case.
I want to get the name in the same order as it is written, but I get Tom, Michel, Peter.
Global NewList packages.s()
Declare findUser(JSONValue, getMembers=#NO)
Procedure.i findUser(JSONValue, getMembers=#NO)
Protected key$
Select ...
- Fri Jul 11, 2025 10:01 am
- Forum: Coding Questions
- Topic: Order of JSON items
- Replies: 9
- Views: 1123
Re: Order of JSON items
Sounds good, but how can I get the address of the object if I use NextJSONMember() ?Sergey wrote: Thu Jul 10, 2025 7:09 pm I'm used a pointer to json object in memory (from min to max), maybe this help you order json members![]()
- Tue Jul 08, 2025 2:45 pm
- Forum: Coding Questions
- Topic: Order of JSON items
- Replies: 9
- Views: 1123
Order of JSON items
Why is the order of the items in this example different from the order I see in a text editor?
Global NewList packages.s()
Declare findIsMandatory(JSONValue, getMembers=#NO)
Procedure.i findIsMandatory(JSONValue, getMembers=#NO)
Protected key$
Select JSONType(JSONValue)
Case #PB_JSON ...
Global NewList packages.s()
Declare findIsMandatory(JSONValue, getMembers=#NO)
Procedure.i findIsMandatory(JSONValue, getMembers=#NO)
Protected key$
Select JSONType(JSONValue)
Case #PB_JSON ...
- Mon Jun 23, 2025 9:39 pm
- Forum: Mac OSX
- Topic: ListIconGadget with Icon and Text example
- Replies: 0
- Views: 1249
ListIconGadget with Icon and Text example
Here is an example of a ListIconGadget under macOS with icons with variable size.
Unfortunately, the constrain does not work as it should or as I expect it to. If anyone has a suggestion for improvement, please post it.
Global mainWindow, NSTableView
CreateImage(0, 32, 32, 32, $FF0000 ...
Unfortunately, the constrain does not work as it should or as I expect it to. If anyone has a suggestion for improvement, please post it.
Global mainWindow, NSTableView
CreateImage(0, 32, 32, 32, $FF0000 ...
- Thu Jun 19, 2025 11:45 am
- Forum: Mac OSX
- Topic: Cocoa: How to feed an OutlineView Programatically
- Replies: 6
- Views: 3892
Re: Cocoa: How to feed an OutlineView Programatically
I guess that's the right...
Global RootNode = CocoaMessage(0, 0, "NSTreeNode treeNodeWithRepresentedObject:$", @"Root node")
CocoaMessage(0, RootNode, "retain")
ChildNode1 = CocoaMessage(0, 0, "NSTreeNode treeNodeWithRepresentedObject:$", @"Child node 1")
ChildNode2 = CocoaMessage(0, 0 ...
Global RootNode = CocoaMessage(0, 0, "NSTreeNode treeNodeWithRepresentedObject:$", @"Root node")
CocoaMessage(0, RootNode, "retain")
ChildNode1 = CocoaMessage(0, 0, "NSTreeNode treeNodeWithRepresentedObject:$", @"Child node 1")
ChildNode2 = CocoaMessage(0, 0 ...
- Thu Jun 19, 2025 8:34 am
- Forum: Mac OSX
- Topic: Cocoa: How to feed an OutlineView Programatically
- Replies: 6
- Views: 3892
Re: Cocoa: How to feed an OutlineView Programatically
Unfortunately I get an error "[ERROR] Illegal instruction. (executing binary Data?)" on line 43.
Can someone explain me why?
Code: Select all
ProcedureReturn CocoaMessage(0, item, "representedObject") ;<-- hier it crashes- Tue Jun 17, 2025 8:26 am
- Forum: Mac OSX
- Topic: How can I unfold a TreeGadget?
- Replies: 8
- Views: 1611
Re: How can I unfold a TreeGadget?
Here is what I was looking for...
Code: Select all
CocoaMessage(0, GadgetID(tree), "expandItem:", #nil, "expandChildren:", #YES)- Mon Jun 16, 2025 7:39 pm
- Forum: Mac OSX
- Topic: How can I unfold a TreeGadget?
- Replies: 8
- Views: 1611
Re: How can I unfold a TreeGadget?
No, it does not help.
If I use a shortcut (option + arrowRight) it opens in a second.
If I use a shortcut (option + arrowRight) it opens in a second.