pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Adds more classes and improves texteditor example

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@576 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2008-09-29 02:17:34 +00:00
parent 135760bc93
commit 4215ae70c6
1 changed files with 15 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
bindings/pascocoa/examples/texteditor/controller.pas
View File

@ -77,7 +77,9 @@ begin
inherited Create;
{ Create objects }
OpenPanel := NSOpenPanel.openPanel;
SavePanel := NSSavePanel.savePanel;
end;
{ Objective-c Methods }
@ -94,20 +96,31 @@ var
begin
{ Show dialog }
if OpenPanel.runModal = NSFileHandlingPanelOKButton then
if SavePanel.runModal = NSFileHandlingPanelOKButton then
begin
{ Now move the contents of the file to the edit control }
FileContents := NSString.initWithContentsOfFile(OpenPanel.filename);
myView.TextField.setStringValue(CFStringRef(FileContents.Handle));
FileContents.writeToFile_atomically(SavePanel.filename, False);
end;
end;
class procedure TMyController.doSaveFile(_self: objc.id; _cmd: SEL;
sender: objc.id); cdecl;
var
FileContents: NSString;
begin
{ Show dialog }
if OpenPanel.runModal = NSFileHandlingPanelOKButton then
begin
{ Now move the contents of the edit control to the file }
FileContents := NSString.CreateWithHandle(objc.id(myView.TextField.StringValue));
myView.TextField.setStringValue(CFStringRef(FileContents.Handle));
end;
end;
class procedure TMyController.doSaveFileAs(_self: objc.id; _cmd: SEL;