Adds status item example.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@369 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
parent
958baedc78
commit
0a3f2310db
289
bindings/pascocoa/examples/statusitem/statusitem.lpi
Normal file
289
bindings/pascocoa/examples/statusitem/statusitem.lpi
Normal file
@ -0,0 +1,289 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="6"/>
|
||||
<General>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=""/>
|
||||
<ActiveEditorIndexAtStart Value="0"/>
|
||||
</General>
|
||||
<VersionInfo>
|
||||
<ProjectVersion Value=""/>
|
||||
<Language Value=""/>
|
||||
<CharSet Value=""/>
|
||||
</VersionInfo>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
<IgnoreBinaries Value="False"/>
|
||||
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
||||
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<local>
|
||||
<FormatVersion Value="1"/>
|
||||
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
||||
</local>
|
||||
</RunParams>
|
||||
<Units Count="33">
|
||||
<Unit0>
|
||||
<Filename Value="statusitem.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="statusitem"/>
|
||||
<CursorPos X="3" Y="47"/>
|
||||
<TopLine Value="37"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="36"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="/System/Library/Frameworks/AppKit.framework/Versions/C/Headers/NSButton.h"/>
|
||||
<CursorPos X="29" Y="59"/>
|
||||
<TopLine Value="56"/>
|
||||
<UsageCount Value="10"/>
|
||||
<SyntaxHighlighter Value="C++"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="../../appkit/NSButton.inc"/>
|
||||
<CursorPos X="32" Y="98"/>
|
||||
<TopLine Value="92"/>
|
||||
<UsageCount Value="21"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="../../appkit/NSApplication.inc"/>
|
||||
<CursorPos X="49" Y="107"/>
|
||||
<TopLine Value="105"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="../../appkit/NSAlert.inc"/>
|
||||
<CursorPos X="1" Y="12"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="19"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="../../appkit/NSStatusItem.inc"/>
|
||||
<CursorPos X="47" Y="26"/>
|
||||
<TopLine Value="21"/>
|
||||
<UsageCount Value="13"/>
|
||||
</Unit5>
|
||||
<Unit6>
|
||||
<Filename Value="../../appkit/AppKit.inc"/>
|
||||
<CursorPos X="51" Y="9"/>
|
||||
<TopLine Value="6"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit6>
|
||||
<Unit7>
|
||||
<Filename Value="/System/Library/Frameworks/AppKit.framework/Versions/C/Headers/NSActionCell.h"/>
|
||||
<CursorPos X="20" Y="30"/>
|
||||
<TopLine Value="24"/>
|
||||
<UsageCount Value="10"/>
|
||||
<SyntaxHighlighter Value="C++"/>
|
||||
</Unit7>
|
||||
<Unit8>
|
||||
<Filename Value="/System/Library/Frameworks/AppKit.framework/Versions/C/Headers/NSButtonCell.h"/>
|
||||
<CursorPos X="34" Y="229"/>
|
||||
<TopLine Value="222"/>
|
||||
<UsageCount Value="10"/>
|
||||
<SyntaxHighlighter Value="C++"/>
|
||||
</Unit8>
|
||||
<Unit9>
|
||||
<Filename Value="/System/Library/Frameworks/AppKit.framework/Versions/C/Headers/NSCell.h"/>
|
||||
<CursorPos X="108" Y="314"/>
|
||||
<TopLine Value="298"/>
|
||||
<UsageCount Value="10"/>
|
||||
<SyntaxHighlighter Value="C++"/>
|
||||
</Unit9>
|
||||
<Unit10>
|
||||
<Filename Value="../../appkit/NSActionCell.inc"/>
|
||||
<CursorPos X="32" Y="7"/>
|
||||
<TopLine Value="3"/>
|
||||
<UsageCount Value="21"/>
|
||||
</Unit10>
|
||||
<Unit11>
|
||||
<Filename Value="../../appkit/NSButtonCell.inc"/>
|
||||
<CursorPos X="44" Y="32"/>
|
||||
<TopLine Value="29"/>
|
||||
<UsageCount Value="21"/>
|
||||
</Unit11>
|
||||
<Unit12>
|
||||
<Filename Value="../../appkit/NSCell.inc"/>
|
||||
<CursorPos X="28" Y="167"/>
|
||||
<TopLine Value="162"/>
|
||||
<UsageCount Value="21"/>
|
||||
</Unit12>
|
||||
<Unit13>
|
||||
<Filename Value="/System/Library/Frameworks/AppKit.framework/Versions/C/Headers/NSControl.h"/>
|
||||
<CursorPos X="29" Y="118"/>
|
||||
<TopLine Value="116"/>
|
||||
<UsageCount Value="10"/>
|
||||
<SyntaxHighlighter Value="C++"/>
|
||||
</Unit13>
|
||||
<Unit14>
|
||||
<Filename Value="../../appkit/NSControl.inc"/>
|
||||
<CursorPos X="26" Y="147"/>
|
||||
<TopLine Value="142"/>
|
||||
<UsageCount Value="24"/>
|
||||
</Unit14>
|
||||
<Unit15>
|
||||
<Filename Value="/System/Library/Frameworks/AppKit.framework/Versions/C/Headers/NSView.h"/>
|
||||
<CursorPos X="10" Y="348"/>
|
||||
<TopLine Value="344"/>
|
||||
<UsageCount Value="10"/>
|
||||
<SyntaxHighlighter Value="C++"/>
|
||||
</Unit15>
|
||||
<Unit16>
|
||||
<Filename Value="../../appkit/NSView.inc"/>
|
||||
<CursorPos X="40" Y="101"/>
|
||||
<TopLine Value="97"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit16>
|
||||
<Unit17>
|
||||
<Filename Value="/System/Library/Frameworks/AppKit.framework/Versions/C/Headers/NSResponder.h"/>
|
||||
<CursorPos X="9" Y="225"/>
|
||||
<TopLine Value="220"/>
|
||||
<UsageCount Value="10"/>
|
||||
<SyntaxHighlighter Value="C++"/>
|
||||
</Unit17>
|
||||
<Unit18>
|
||||
<Filename Value="../../appkit/NSResponder.inc"/>
|
||||
<CursorPos X="46" Y="3"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="22"/>
|
||||
</Unit18>
|
||||
<Unit19>
|
||||
<Filename Value="../../appkit/appkit.pas"/>
|
||||
<UnitName Value="appkit"/>
|
||||
<CursorPos X="13" Y="21"/>
|
||||
<TopLine Value="10"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<UsageCount Value="18"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit19>
|
||||
<Unit20>
|
||||
<Filename Value="../../appkit/NSWindow.inc"/>
|
||||
<CursorPos X="1" Y="522"/>
|
||||
<TopLine Value="508"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="14"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit20>
|
||||
<Unit21>
|
||||
<Filename Value="/System/Library/Frameworks/AppKit.framework/Versions/C/Headers/NSWindow.h"/>
|
||||
<CursorPos X="21" Y="93"/>
|
||||
<TopLine Value="89"/>
|
||||
<UsageCount Value="10"/>
|
||||
<SyntaxHighlighter Value="C++"/>
|
||||
</Unit21>
|
||||
<Unit22>
|
||||
<Filename Value="/System/Library/Frameworks/AppKit.framework/Versions/C/Headers/NSApplication.h"/>
|
||||
<CursorPos X="54" Y="52"/>
|
||||
<TopLine Value="49"/>
|
||||
<UsageCount Value="10"/>
|
||||
<SyntaxHighlighter Value="C++"/>
|
||||
</Unit22>
|
||||
<Unit23>
|
||||
<Filename Value="../../appkit/NSTextField.inc"/>
|
||||
<CursorPos X="47" Y="71"/>
|
||||
<TopLine Value="69"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit23>
|
||||
<Unit24>
|
||||
<Filename Value="../../../cleanroom/packages/fcl-db/src/base/dataset.inc"/>
|
||||
<CursorPos X="38" Y="1522"/>
|
||||
<TopLine Value="1521"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit24>
|
||||
<Unit25>
|
||||
<Filename Value="../../../cleanroom/packages/fcl-db/src/base/datasource.inc"/>
|
||||
<CursorPos X="35" Y="55"/>
|
||||
<TopLine Value="54"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit25>
|
||||
<Unit26>
|
||||
<Filename Value="../../../cleanroom/packages/fcl-db/src/base/fields.inc"/>
|
||||
<CursorPos X="33" Y="647"/>
|
||||
<TopLine Value="642"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit26>
|
||||
<Unit27>
|
||||
<Filename Value="../../../cleanroom/rtl/objpas/classes/classes.inc"/>
|
||||
<CursorPos X="16" Y="459"/>
|
||||
<TopLine Value="453"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit27>
|
||||
<Unit28>
|
||||
<Filename Value="../../foundation/NSObject.inc"/>
|
||||
<CursorPos X="46" Y="102"/>
|
||||
<TopLine Value="94"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit28>
|
||||
<Unit29>
|
||||
<Filename Value="../../appkit/NSStatusBar.inc"/>
|
||||
<CursorPos X="27" Y="15"/>
|
||||
<TopLine Value="5"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<UsageCount Value="14"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit29>
|
||||
<Unit30>
|
||||
<Filename Value="../../foundation/NSAutoreleasePool.inc"/>
|
||||
<CursorPos X="33" Y="43"/>
|
||||
<TopLine Value="37"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit30>
|
||||
<Unit31>
|
||||
<Filename Value="../../../objc/objc-class.inc"/>
|
||||
<CursorPos X="45" Y="161"/>
|
||||
<TopLine Value="159"/>
|
||||
<UsageCount Value="12"/>
|
||||
</Unit31>
|
||||
<Unit32>
|
||||
<Filename Value="../../../objc/objc.inc"/>
|
||||
<CursorPos X="50" Y="52"/>
|
||||
<TopLine Value="49"/>
|
||||
<UsageCount Value="12"/>
|
||||
</Unit32>
|
||||
</Units>
|
||||
<JumpHistory Count="3" HistoryIndex="2">
|
||||
<Position1>
|
||||
<Filename Value="statusitem.pas"/>
|
||||
<Caret Line="80" Column="30" TopLine="69"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="../../appkit/NSWindow.inc"/>
|
||||
<Caret Line="137" Column="17" TopLine="128"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="statusitem.pas"/>
|
||||
<Caret Line="105" Column="15" TopLine="91"/>
|
||||
</Position3>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<SearchPaths>
|
||||
<OtherUnitFiles Value="../../appkit/;../../../objc/;../../foundation/"/>
|
||||
<SrcPath Value="../../appkit/;../../../objc/;../../foundation/"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Options>
|
||||
<PassLinkerOptions Value="True"/>
|
||||
<LinkerOptions Value="-framework cocoa -lobjc"/>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<Verbosity>
|
||||
<ShowSummary Value="True"/>
|
||||
</Verbosity>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
</CONFIG>
|
||||
118
bindings/pascocoa/examples/statusitem/statusitem.pas
Normal file
118
bindings/pascocoa/examples/statusitem/statusitem.pas
Normal file
@ -0,0 +1,118 @@
|
||||
{
|
||||
statusitem.pas
|
||||
|
||||
This example shows how to create a window with several buttons which will
|
||||
control a NSStatusItem (a menubar extras icon).
|
||||
|
||||
Compilation of this example requires the following options:
|
||||
-k-framework -kcocoa -k-lobjc
|
||||
|
||||
This example project is released under public domain
|
||||
|
||||
AUTHORS: Felipe Monteiro de Carvalho
|
||||
}
|
||||
program statusitem;
|
||||
|
||||
{$mode delphi}
|
||||
|
||||
uses
|
||||
objc, ctypes, FPCMacOSAll, AppKit, Foundation;
|
||||
|
||||
const
|
||||
Str_Window_Title = 'StatusItem example project';
|
||||
Str_Show_Button = 'Show StatusItem';
|
||||
var
|
||||
{ classes }
|
||||
pool: NSAutoreleasePool;
|
||||
MainWindow: NSWindow;
|
||||
MainWindowView: NSView;
|
||||
MyButton: NSButton;
|
||||
bar: NSStatusBar;
|
||||
item: NSStatusItem;
|
||||
{ strings }
|
||||
CFTitle, CFButtonText: CFStringRef;
|
||||
{ sizes }
|
||||
MainWindowRect, ButtonRect: NSRect;
|
||||
|
||||
type
|
||||
TMyWindow = class(NSWindow)
|
||||
public
|
||||
{ Extra binding functions }
|
||||
function getClass: objc.id; override;
|
||||
end;
|
||||
|
||||
procedure doShowStatusitem(param1: objc.id; param2: SEL; param3: objc.id); cdecl;
|
||||
begin
|
||||
item := bar.statusItemWithLength(NSSquareStatusItemLength);
|
||||
end;
|
||||
|
||||
function TMyWindow.getClass: objc.id;
|
||||
var
|
||||
method_list: Pobjc_method_list;
|
||||
begin
|
||||
Result := objc_getClass(Str_NSWindow);
|
||||
|
||||
{ Adds methods to the class }
|
||||
|
||||
method_list := GetMem(SizeOf(objc_method_list)); { We can't free this until the last instance is freed }
|
||||
|
||||
method_list.method_count := 1;
|
||||
method_list.method_list[0].method_name := sel_registerName('doShowStatusitem:');
|
||||
{ The first parameter is the result (v = void),
|
||||
followed by self and _cmd (@ = id and : = SEL),
|
||||
and on the end "sender" (@ = id) }
|
||||
method_list.method_list[0].method_types := 'v@:@';
|
||||
method_list.method_list[0].method_imp := IMP(@doShowStatusitem);
|
||||
class_addMethods(Result, method_list);
|
||||
end;
|
||||
|
||||
begin
|
||||
{ Creates the AutoreleasePool }
|
||||
pool := NSAutoreleasePool.Create;
|
||||
|
||||
{ Creates the application NSApp object }
|
||||
NSApp := NSApplication.sharedApplication;
|
||||
|
||||
{ Creates a simple window }
|
||||
|
||||
MainWindowRect.origin.x := 300.0;
|
||||
MainWindowRect.origin.y := 300.0;
|
||||
MainWindowRect.size.width := 300.0;
|
||||
MainWindowRect.size.height := 500.0;
|
||||
|
||||
MainWindow := TMyWindow.initWithContentRect(MainWindowRect,
|
||||
NSTitledWindowMask or NSClosableWindowMask or NSMiniaturizableWindowMask or NSResizableWindowMask,
|
||||
NSBackingStoreBuffered, NO);
|
||||
MainWindowView := NSView.CreateWithHandle(MainWindow.contentView);
|
||||
|
||||
CFTitle := CFStringCreateWithPascalString(nil, Str_Window_Title, kCFStringEncodingUTF8);
|
||||
MainWindow.setTitle(CFTitle);
|
||||
|
||||
{ Puts some buttons on the window }
|
||||
|
||||
CFButtonText := CFStringCreateWithPascalString(nil, Str_Show_Button, kCFStringEncodingUTF8);
|
||||
ButtonRect.origin.x := 50.0;
|
||||
ButtonRect.origin.y := MainWindowRect.size.height - 50.0;
|
||||
ButtonRect.size.width := 100.0;
|
||||
ButtonRect.size.height := 25.0;
|
||||
MyButton := NSButton.initWithFrame(ButtonRect);
|
||||
MyButton.setStringValue(CFButtonText);
|
||||
MyButton.setBezelStyle(NSRoundedBezelStyle);
|
||||
MyButton.setAction(sel_registerName('doShowStatusitem:'));
|
||||
MyButton.setTarget(MainWindow.Handle);
|
||||
MainWindowView.addSubview(MyButton);
|
||||
|
||||
{ Initializes the StatusBar object }
|
||||
|
||||
bar := NSStatusBar.systemStatusBar();
|
||||
|
||||
{ Enters main message loop }
|
||||
|
||||
MainWindow.orderFrontRegardless;
|
||||
|
||||
NSApp.run;
|
||||
|
||||
{ Releases the AutoreleasePool }
|
||||
pool.Free;
|
||||
end.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user