fpc/packages/amunits/examples/otherlibs/toolmanager2.pas
marco 88851f7852 * amunits moved
git-svn-id: trunk@10043 -
2008-01-27 13:16:04 +00:00

167 lines
4.1 KiB
ObjectPascal

Program ToolManager2;
(*
* OpenTriton -- A free release of the triton.library source code
* Copyright (C) 1993-1998 Stefan Zeiger
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*
* Toolmanager2.c - Looks like the ToolManager demo 2 of GUIFront
*
*)
uses exec, triton, tritonmacros, linklist, utility;
{
A demo in FPC Pascal using triton.library
Updated for fpc 1.0.7
11 Jan 2003.
nils.sjoholm@mailbox.swipnet.se
}
const
cycle_entries : array [0..7] of pchar = ('Exec','Image','Sound','Menu','Icon','Dock','Access',NIL);
liststrings : array [0..8] of pchar = (
'2024view' ,
'Add to archive',
'Delete',
'Edit text',
'Env',
'Exchange',
'Global Help System',
'Multiview',
'Paint');
var
i : longint;
LVList : pList;
MyNode : pFPCNode;
Triton_App : pTR_App;
procedure CleanUp(why : string; err : longint);
begin
if assigned(Triton_App) then TR_DeleteApp(Triton_App);
if assigned(LVList) then DestroyList(LVList);
if why <> '' then writeln(why);
halt(err);
end;
begin
CreateList(LVList);
FOR i := 0 TO 8 DO BEGIN
MyNode := AddNewNode(LVList, liststrings[i]);
END;
Triton_App := TR_CreateAppTags([
TRCA_Name,'ToolManagerGUIDemo2',
TRCA_LongName,'ToolManager GUI demo 2',
TRCA_Info,'Looks like the ToolManager demo 2 of GUIFront',
TAG_END]);
if Triton_App = nil then CleanUp('Can''t create application',20);
ProjectStart;
WindowID(0); WindowPosition(TRWP_MOUSEPOINTER);
WindowTitle('ToolManager GUI demo 2'); WindowFlags(TRWF_NOSIZEGADGET OR TRWF_NODELZIP OR TRWF_ZIPTOCURRENTPOS);
WindowBackfillNone;
VertGroupA;
Space;
HorizGroupAC;
Space;
TextID('_Object Type',1);
Space;
CycleGadget(@cycle_entries,0,1);
Space;
EndGroup;
Space;
HorizGroup;
Space;
NamedFrameBox('Object List');
HorizGroupAC;
Space;
VertGroupA;
Space;
ListSSCN(LVList,2,0,0);
Space;
EndGroup;
Space;
SetTRTag(TRGR_Vert, TRGR_ALIGN OR TRGR_FIXHORIZ);
Space;
Button('Top',3);
Space;
Button('Up',4);
Space;
Button('Down',5);
Space;
Button('Bottom',6);
Space;
Button('So_rt',7);
Space;
EndGroup;
Space;
EndGroup;
Space;
EndGroup;
Space;
HorizGroupEA;
Space;
Button('_New...',8);
Space;
Button('_Edit...',9);
Space;
Button('Co_py',10);
Space;
Button('Remove',11);
Space;
EndGroup;
Space;
HorizGroupEA;
Space;
Button('_Save',12);
Space;
Button('_Use',13);
Space;
Button('_Test',14);
Space;
Button('_Cancel',15);
Space;
EndGroup;
Space;
EndGroup;
EndProject;
i := TR_AutoRequest(Triton_App,NIL,@tritontags);
CleanUp('',0);
end.