Menu
▾
▴
[Wxdsgn-svn] SF.net SVN: wxdsgn: [790] branches/XRC/Designerfrm.pas
|
From: <lo...@us...> - 2006-12-30 12:58:38
|
Revision: 790
http://svn.sourceforge.net/wxdsgn/?rev=790&view=rev
Author: lowjoel
Date: 2006-12-30 04:58:36 -0800 (Sat, 30 Dec 2006)
Log Message:
-----------
Made a branch for Tony's and Nuklear's XRC changes.
Added Paths:
-----------
branches/XRC/Designerfrm.pas
Copied: branches/XRC/Designerfrm.pas (from rev 789, trunk/wxdevcpp/source/Designerfrm.pas)
===================================================================
--- branches/XRC/Designerfrm.pas (rev 0)
+++ branches/XRC/Designerfrm.pas 2006-12-30 12:58:36 UTC (rev 790)
@@ -0,0 +1,1791 @@
+{
+
+$Id$
+
+wxDialog Designer
+Copyright (c) 2003 Guru Kathiresan gr...@nj...
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions
+are met:
+1. Redistributions of source code must retain the above copyright
+ notice, this list of conditions and the following disclaimer.
+2. Redistributions in binary form must reproduce the above copyright
+ notice, this list of conditions and the following disclaimer in the
+ documentation and/or other materials provided with the distribution.
+3. The name of the author may not be used to endorse or promote products
+ derived from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
+IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
+INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+}
+
+unit Designerfrm;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+ ExtCtrls, Buttons, StdCtrls, DbugIntf,
+ WxEdit, WxStaticText, WxButton, wxUtils, WXRadioButton, WXCheckBox,
+ Wxcombobox, WxToolButton, WxSeparator, wxChoice,
+ WxListbox, WxGauge, wxListCtrl, wxTreeCtrl, WxMemo, wxScrollbar, wxSpinButton,
+ WxSizerPanel, WxSplitterWindow,
+ ComCtrls, SynEdit, Menus, xprocs, version;
+
+type
+
+ TfrmNewForm = class(TForm, IWxComponentInterface,IWxDesignerFormInterface,IWxImageContainerInterface)
+ procedure CreateInitVars;
+ procedure FormCreate(Sender: TObject);
+ procedure FormResize(Sender: TObject);
+ procedure NewFormResize(Sender: TObject);
+ procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
+ procedure FormDestroy(Sender: TObject);
+ procedure FormKeyDown(Sender: TObject; var Key: word; Shift: TShiftState);
+ procedure SetFrameProperties();
+ procedure SetDialogProperties();
+
+ function GetBitmapCount:Integer;
+ function GetBitmap(Idx:Integer;var bmp:TBitmap; var PropertyName:string):boolean;
+ function GetPropertyName(Idx:Integer):String;
+
+ private
+ { Private declarations }
+ FWxFrm_IDName: string;
+ FWxFrm_IDValue: longint;
+ FWxFrm_Class: string;
+ FWxFrm_Center: boolean;
+ FWxFrm_ToolTips: string;
+ FWxFrm_Hidden: boolean;
+ FWxFrm_GeneralStyle: TWxStdStyleSet;
+ FWxFrm_DialogStyle: TWxDlgStyleSet;
+ FWxFrm_SizeToContents: Boolean;
+ fsynEdit: TSynEdit;
+
+ FEVT_CHAR, FEVT_KEY_UP, FEVT_KEY_DOWN, FEVT_ERASE_BACKGROUND,
+ FEVT_SIZE, FEVT_SET_FOCUS, FEVT_KILL_FOCUS, FEVT_ENTER_WINDOW,
+ FEVT_LEAVE_WINDOW, FEVT_MOTION, FEVT_LEFT_DOWN, FEVT_LEFT_UP,
+ FEVT_RIGHT_DOWN, FEVT_RIGHT_UP, FEVT_MIDDLE_DOWN, FEVT_MIDDLE_UP,
+ FEVT_LEFT_DCLICK, FEVT_RIGHT_DCLICK, FEVT_MIDDLE_DCLICK, FEVT_PAINT,
+ FEVT_INIT_DIALOG, FEVT_SCROLLWIN, FEVT_SCROLLWIN_TOP, FEVT_SCROLLWIN_BOTTOM,
+ FEVT_SCROLLWIN_LINEUP, FEVT_SCROLLWIN_LINEDOWN, FEVT_SCROLLWIN_PAGEUP,
+ FEVT_SCROLLWIN_PAGEDOWN, FEVT_SCROLLWIN_THUMBTRACK, FEVT_SCROLLWIN_THUMBRELEASE,
+ FEVT_SYS_COLOUR_CHANGED, FEVT_UPDATE_UI, FEVT_CLOSE: string;
+ FEVT_IDLE, FEVT_ACTIVATE, FEVT_ACTIVATE_APP, FEVT_QUERY_END_SESSION,
+ FEVT_END_SESSION, FEVT_DROP_FILES, FEVT_SPLITTER_SASH_POS_CHANGED,
+ FEVT_SPLITTER_UNSPLIT, FEVT_SPLITTER_DCLICK, FEVT_JOY_BUTTON_DOWN,
+ FEVT_JOY_BUTTON_UP, FEVT_JOY_MOVE, FEVT_JOY_ZMOVE, FEVT_MENU_OPEN,
+ FEVT_MENU_CLOSE, FEVT_MENU_HIGHLIGHT_ALL, FEVT_MOUSEWHEEL, FEVT_MOUSE_EVENTS: string;
+
+ FWx_Name: string;
+ FWx_ICON: TPicture;
+ FWx_ProxyBGColorString: TWxColorString;
+ FWx_ProxyFGColorString: TWxColorString;
+ FWxDesignerType: TWxDesignerType;
+ wx_PropertyList: TStringList;
+ FWx_EventList: TStringList;
+
+ public
+ function GenerateControlIDs: string;
+ function GenerateEnumControlIDs: string;
+ function GenerateEventTableEntries(CurrClassName: string): string;
+ function GenerateGUIControlCreation: string;
+ function GenerateXRCControlCreation(IndentString: string): TStringList;
+ function GenerateGUIControlDeclaration: string;
+ function GenerateHeaderInclude: string;
+ function GenerateImageInclude: string;
+ function GetIDName: string;
+ function GetIDValue: longint;
+ function GetPropertyList: TStringList;
+ function GetWxClassName: string;
+ procedure SetIDName(IDName: string);
+ procedure SetIDValue(IDValue: longint);
+ procedure SetWxClassName(wxClassName: string);
+ procedure FormMove(var Msg: TWMMove); message WM_MOVE;
+ function GetDialogStyleString: string;
+ function GetEventList: TStringList;
+ function GetParameterFromEventName(EventName: string): string;
+ function GetTypeFromEventName(EventName: string): string;
+ procedure SaveControlOrientation(ControlOrientation: TWxControlOrientation);
+ function GetFGColor: string;
+ procedure SetFGColor(strValue: string);
+ function GetBGColor: string;
+ procedure SetBGColor(strValue: string);
+ function GetGenericColor(strVariableName:String): string;
+ procedure SetGenericColor(strVariableName,strValue: string);
+
+ function GetBorderAlignment: TWxBorderAlignment;
+ procedure SetBorderAlignment(border: TWxBorderAlignment);
+ function GetBorderWidth: integer;
+ procedure SetBorderWidth(width: integer);
+ function GetStretchFactor: integer;
+ procedure SetStretchFactor(intValue: integer);
+ procedure SetDesignerType(Value: TWxDesignerType);
+ //Form Interface functions
+ function GetFormName: string;
+ procedure SetFormName(StrValue: string);
+
+ procedure CreateNewXPMs(strFileName:String);
+
+ published
+ property EVT_INIT_DIALOG: string Read FEVT_INIT_DIALOG Write FEVT_INIT_DIALOG;
+ property EVT_CHAR: string Read FEVT_CHAR Write FEVT_CHAR;
+ property EVT_KEY_UP: string Read FEVT_KEY_UP Write FEVT_KEY_UP;
+ property EVT_KEY_DOWN: string Read FEVT_KEY_DOWN Write FEVT_KEY_DOWN;
+ property EVT_ERASE_BACKGROUND: string Read FEVT_ERASE_BACKGROUND Write FEVT_ERASE_BACKGROUND;
+ property EVT_SIZE: string Read FEVT_SIZE Write FEVT_SIZE;
+ property EVT_SET_FOCUS: string Read FEVT_SET_FOCUS Write FEVT_SET_FOCUS;
+ property EVT_KILL_FOCUS: string Read FEVT_KILL_FOCUS Write FEVT_KILL_FOCUS;
+ property EVT_ENTER_WINDOW: string Read FEVT_ENTER_WINDOW Write FEVT_ENTER_WINDOW;
+ property EVT_LEAVE_WINDOW: string Read FEVT_LEAVE_WINDOW Write FEVT_LEAVE_WINDOW;
+ property EVT_MOTION: string Read FEVT_MOTION Write FEVT_MOTION;
+ property EVT_LEFT_DOWN: string Read FEVT_LEFT_DOWN Write FEVT_LEFT_DOWN;
+ property EVT_LEFT_UP: string Read FEVT_LEFT_UP Write FEVT_LEFT_UP;
+ property EVT_RIGHT_DOWN: string Read FEVT_RIGHT_DOWN Write FEVT_RIGHT_DOWN;
+ property EVT_RIGHT_UP: string Read FEVT_RIGHT_UP Write FEVT_RIGHT_UP;
+ property EVT_MIDDLE_DOWN: string Read FEVT_MIDDLE_DOWN Write FEVT_MIDDLE_DOWN;
+ property EVT_MIDDLE_UP: string Read FEVT_MIDDLE_UP Write FEVT_MIDDLE_UP;
+ property EVT_LEFT_DCLICK: string Read FEVT_LEFT_DCLICK Write FEVT_LEFT_DCLICK;
+ property EVT_RIGHT_DCLICK: string Read FEVT_RIGHT_DCLICK Write FEVT_RIGHT_DCLICK;
+ property EVT_MIDDLE_DCLICK: string Read FEVT_MIDDLE_DCLICK Write FEVT_MIDDLE_DCLICK;
+ property EVT_PAINT: string Read FEVT_PAINT Write FEVT_PAINT;
+ property EVT_SCROLLWIN: string Read FEVT_SCROLLWIN Write FEVT_SCROLLWIN;
+ property EVT_SCROLLWIN_TOP: string Read FEVT_SCROLLWIN_TOP Write FEVT_SCROLLWIN_TOP;
+ property EVT_SCROLLWIN_BOTTOM: string Read FEVT_SCROLLWIN_BOTTOM Write FEVT_SCROLLWIN_BOTTOM;
+ property EVT_SCROLLWIN_LINEUP: string Read FEVT_SCROLLWIN_LINEUP Write FEVT_SCROLLWIN_LINEUP;
+ property EVT_SCROLLWIN_LINEDOWN: string Read FEVT_SCROLLWIN_LINEDOWN Write FEVT_SCROLLWIN_LINEDOWN;
+ property EVT_SCROLLWIN_PAGEUP: string Read FEVT_SCROLLWIN_PAGEUP Write FEVT_SCROLLWIN_PAGEUP;
+ property EVT_SCROLLWIN_PAGEDOWN: string Read FEVT_SCROLLWIN_PAGEDOWN Write FEVT_SCROLLWIN_PAGEDOWN;
+ property EVT_SCROLLWIN_THUMBTRACK: string Read FEVT_SCROLLWIN_THUMBTRACK Write FEVT_SCROLLWIN_THUMBTRACK;
+ property EVT_SCROLLWIN_THUMBRELEASE: string Read FEVT_SCROLLWIN_THUMBRELEASE Write FEVT_SCROLLWIN_THUMBRELEASE;
+ property EVT_SYS_COLOUR_CHANGED: string Read FEVT_SYS_COLOUR_CHANGED Write FEVT_SYS_COLOUR_CHANGED;
+ property EVT_UPDATE_UI: string Read FEVT_UPDATE_UI Write FEVT_UPDATE_UI;
+ property EVT_CLOSE: string Read FEVT_CLOSE Write FEVT_CLOSE;
+ property EVT_IDLE: string Read FEVT_IDLE Write FEVT_IDLE;
+ property EVT_ACTIVATE: string Read FEVT_ACTIVATE Write FEVT_ACTIVATE;
+ property EVT_ACTIVATE_APP: string Read FEVT_ACTIVATE_APP Write FEVT_ACTIVATE_APP;
+ property EVT_QUERY_END_SESSION: string Read FEVT_QUERY_END_SESSION Write FEVT_QUERY_END_SESSION;
+ property EVT_END_SESSION: string Read FEVT_END_SESSION Write FEVT_END_SESSION;
+ property EVT_DROP_FILES: string Read FEVT_DROP_FILES Write FEVT_DROP_FILES;
+ property EVT_SPLITTER_SASH_POS_CHANGED: string Read FEVT_SPLITTER_SASH_POS_CHANGED Write FEVT_SPLITTER_SASH_POS_CHANGED;
+ property EVT_SPLITTER_UNSPLIT: string Read FEVT_SPLITTER_UNSPLIT Write FEVT_SPLITTER_UNSPLIT;
+ property EVT_SPLITTER_DCLICK: string Read FEVT_SPLITTER_DCLICK Write FEVT_SPLITTER_DCLICK;
+ property EVT_JOY_BUTTON_DOWN: string Read FEVT_JOY_BUTTON_DOWN Write FEVT_JOY_BUTTON_DOWN;
+ property EVT_JOY_BUTTON_UP: string Read FEVT_JOY_BUTTON_UP Write FEVT_JOY_BUTTON_UP;
+ property EVT_JOY_MOVE: string Read FEVT_JOY_MOVE Write FEVT_JOY_MOVE;
+ property EVT_JOY_ZMOVE: string Read FEVT_JOY_ZMOVE Write FEVT_JOY_ZMOVE;
+ property EVT_MENU_OPEN: string Read FEVT_MENU_OPEN Write FEVT_MENU_OPEN;
+ property EVT_MENU_CLOSE: string Read FEVT_MENU_CLOSE Write FEVT_MENU_CLOSE;
+ property EVT_MENU_HIGHLIGHT_ALL: string Read FEVT_MENU_HIGHLIGHT_ALL Write FEVT_MENU_HIGHLIGHT_ALL;
+ property EVT_MOUSEWHEEL: string Read FEVT_MOUSEWHEEL Write FEVT_MOUSEWHEEL;
+ property EVT_MOUSE_EVENTS: string Read FEVT_MOUSE_EVENTS Write FEVT_MOUSE_EVENTS;
+
+ property synEdit: TSynEdit Read fsynEdit Write fsynEdit;
+ property Wx_ICON: TPicture Read FWx_ICON Write FWx_ICON;
+ property Wx_Name: string Read FWx_Name Write FWx_Name;
+ property Wx_IDName: string Read FWxFrm_IDName Write FWxFrm_IDName;
+ property Wx_IDValue: longint Read FWxFrm_IDValue Write FWxFrm_IDValue;
+ property Wx_Class: string Read FWxFrm_Class Write FWxFrm_Class;
+ property Wx_Center: boolean Read FWxFrm_Center Write FWxFrm_Center;
+ property Wx_Hidden: boolean Read FWxFrm_Hidden Write FWxFrm_Hidden;
+ property Wx_ToolTips: string Read FWxFrm_ToolTips Write FWxFrm_ToolTips;
+ property Wx_SizeToContents: boolean Read FWxFrm_SizeToContents Write FWxFrm_SizeToContents;
+
+ property Wx_GeneralStyle: TWxStdStyleSet Read FWxFrm_GeneralStyle Write FWxFrm_GeneralStyle;
+ property Wx_DialogStyle: TWxDlgStyleSet Read FWxFrm_DialogStyle Write FWxFrm_DialogStyle;
+ property Wx_DesignerType: TWxDesignerType Read FWxDesignerType Write SetDesignerType default dtWxDialog;
+
+ property Wx_Border: integer Read GetBorderWidth Write SetBorderWidth default 5;
+ property Wx_BorderAlignment: TWxBorderAlignment Read GetBorderAlignment Write SetBorderAlignment default [wxALL];
+ property Wx_StretchFactor: integer Read GetStretchFactor Write SetStretchFactor default 0;
+
+ property Wx_ProxyBGColorString: TWxColorString Read FWx_ProxyBGColorString Write FWx_ProxyBGColorString;
+ property Wx_ProxyFGColorString: TWxColorString Read FWx_ProxyFGColorString Write FWx_ProxyFGColorString;
+ end;
+
+var
+ frmNewFormX: TfrmNewForm;
+
+procedure GenerateCpp(frmNewForm: TfrmNewForm; strClassName: string;
+ synEdit: TSynEdit; strFileName: string);
+procedure GenerateHpp(frmNewForm: TfrmNewForm; strClassName: string; synEdit: TSynEdit);
+procedure GenerateXPM(frmNewForm: TfrmNewForm; strFileName: string;
+ onlyForForm: boolean = False);
+procedure GenerateXRC(frmNewForm: TfrmNewForm; strClassName: string;
+ synEdit: TSynEdit; strFileName: string);
+
+implementation
+
+uses dmCodeGen, main, WxStaticBitmap;
+
+{$R *.DFM}
+
+procedure GenerateCpp(frmNewForm: TfrmNewForm; strClassName: string;
+ synEdit: TSynEdit; strFileName: string);
+var
+ i: integer;
+ intBlockStart, intBlockEnd: integer;
+ intManualBlockStart, intManualBlockEnd: integer;
+ wxcompInterface: IWxComponentInterface;
+ varIntf:IWxVariableAssignmentInterface;
+ strEntry, strEventTableStart, strEventTableEnd: string;
+ isSizerAvailable: boolean;
+ strHdrValue: string;
+ strStartStr, strEndStr: string;
+ strLst, strlstManualCode: TStringList;
+ CntIntf: IWxContainerAndSizerInterface;
+ strTemp: string;
+begin
+ if GetBlockStartAndEndPos(synEdit, strClassName, btClassNameGUIItemsCreation, intBlockStart, intBlockEnd) then
+ begin
+ //Clear Declaration and Creation Field
+ DeleteAllClassNameGUIItemsCreation(synEdit, strClassName, intBlockStart, intBlockEnd);
+
+ isSizerAvailable := False;
+ for I := 0 to frmNewForm.ComponentCount - 1 do // Iterate
+ begin
+ if frmNewForm.Components[i].GetInterface(IID_IWxContainerAndSizerInterface, CntIntf) then
+ begin
+ isSizerAvailable := True;
+ break;
+ end;
+ end;
+
+ if isSizerAvailable then
+ begin
+ AddClassNameGUIItemsCreation(synEdit, strClassName, intBlockStart, intBlockEnd, frmNewForm.GenerateGUIControlCreation);
+
+ //Add the Code Generation Items that need to be added after the creation with new
+ for I := frmNewForm.ComponentCount - 1 downto 0 do // Iterate
+ begin
+ if not frmNewForm.Components[i].GetInterface(IID_IWxContainerAndSizerInterface, CntIntf) then
+ continue;
+ strTemp := CntIntf.GenerateLastCreationCode;
+ if trim(strTemp) = '' then
+ continue;
+ AddClassNameGUIItemsCreation(synEdit, strClassName, intBlockStart, intBlockEnd, strTemp);
+ AddClassNameGUIItemsCreation(synEdit, strClassName, intBlockStart, intBlockEnd, '');
+ end; // for
+ end;
+
+ if not isSizerAvailable then
+ begin
+ for I := 0 to frmNewForm.ComponentCount - 1 do // Iterate
+ begin
+ if frmNewForm.Components[i].GetInterface(IID_IWxContainerAndSizerInterface, CntIntf) then
+ continue;
+ if frmNewForm.Components[i].GetInterface(IID_IWxComponentInterface, wxcompInterface) then
+ AddClassNameGUIItemsCreation(synEdit, strClassName, intBlockStart, intBlockEnd, wxcompInterface.GenerateGUIControlCreation);
+ AddClassNameGUIItemsCreation(synEdit, strClassName, intBlockStart, intBlockEnd, '');
+ end// for
+ end
+ else
+ for I := frmNewForm.ComponentCount - 1 downto 0 do // Iterate
+ begin
+ if frmNewForm.Components[i].GetInterface(IID_IWxComponentInterface, wxcompInterface) then
+ begin
+ strTemp := wxcompInterface.GenerateGUIControlCreation;
+ AddClassNameGUIItemsCreation(synEdit, strClassName,intBlockStart, intBlockEnd, wxcompInterface.GenerateGUIControlCreation);
+ end;
+ AddClassNameGUIItemsCreation(synEdit, strClassName, intBlockStart, intBlockEnd, '');
+ end;// for
+
+ //Form data should come first, if not the child will be resized to
+ if not isSizerAvailable then
+ AddClassNameGUIItemsCreation(synEdit, strClassName, intBlockStart, intBlockEnd, frmNewForm.GenerateGUIControlCreation);
+ end;
+
+ // RHS Variable
+ if GetBlockStartAndEndPos(synEdit, strClassName, btRHSVariables, intBlockStart, intBlockEnd) then
+ begin
+ DeleteAllRHSVariableList(synEdit, strClassName,intBlockStart, intBlockEnd);
+ for I := frmNewForm.ComponentCount - 1 downto 0 do // Iterate
+ begin
+ // if frmNewForm.Components[i] is TPanel then
+ // continue;
+ if frmNewForm.Components[i].GetInterface(IID_IWxVariableAssignmentInterface, varIntf) then
+ begin
+ strTemp :=varIntf.GetRHSVariableAssignment;
+ if (strTemp) = '' then
+ continue;
+ AddRHSVariableList(synEdit, strClassName,intBlockStart, intBlockEnd, varIntf.GetRHSVariableAssignment);
+ end;
+ AddRHSVariableList(synEdit, strClassName, intBlockStart, intBlockEnd, '');
+ end// for;
+
+ end;
+
+ // LHS Variable
+ if GetBlockStartAndEndPos(synEdit, strClassName, btLHSVariables, intBlockStart, intBlockEnd) then
+ begin
+ DeleteAllLHSVariableList(synEdit, strClassName,intBlockStart, intBlockEnd);
+ for I := frmNewForm.ComponentCount - 1 downto 0 do // Iterate
+ begin
+ // if frmNewForm.Components[i] is TPanel then
+ // continue;
+ if frmNewForm.Components[i].GetInterface(IID_IWxVariableAssignmentInterface, varIntf) then
+ begin
+ strTemp :=varIntf.GetLHSVariableAssignment;
+ if (strTemp) = '' then
+ continue;
+ AddLHSVariableList(synEdit, strClassName,intBlockStart, intBlockEnd, varIntf.GetLHSVariableAssignment);
+ end;
+ AddLHSVariableList(synEdit, strClassName, intBlockStart, intBlockEnd, '');
+ end// for;
+ end;
+
+ // Event table
+ if GetBlockStartAndEndPos(synEdit, strClassName, btClassNameEventTableEntries, intBlockStart, intBlockEnd) then
+ begin
+ GetStartAndEndBlockStrings('', btManualCode, strStartStr, strEndStr);
+
+ if GetBlockStartAndEndPos(synEdit, strClassName, btManualCode, intManualBlockStart, intManualBlockEnd) then
+ strlstManualCode := GetBlockCode(synEdit, strClassName, btManualCode, intManualBlockStart, intManualBlockEnd)
+ else
+ strlstManualCode := TStringList.Create;
+
+ try
+
+ DeleteAllClassNameEventTableEntries(synEdit, strClassName, intBlockStart, intBlockEnd);
+
+ strEventTableEnd := 'END_EVENT_TABLE()';
+ AddClassNameEventTableEntries(synEdit, strClassName, intBlockStart, intBlockEnd, strEventTableEnd, False);
+
+
+ //EVT_CLOSE(%CLASS_NAME%:: OnQuit )
+ for I := 0 to frmNewForm.ComponentCount - 1 do // Iterate
+ begin
+ wxcompInterface := nil;
+ if frmNewForm.Components[i].GetInterface(IID_IWxComponentInterface, wxcompInterface) then
+ begin
+ strEntry := wxcompInterface.GenerateEventTableEntries(strClassName);
+ //SendDebug(strEntry);
+ AddClassNameEventTableEntries(synEdit, strClassName, intBlockStart, intBlockEnd, strEntry);
+ end;
+ //AddClassNameEventTableEntries(strCppSrc, strClassName, intBlockStart, intBlockEnd, '');
+ end; // for
+ //Form data should come first, if not the child will be resized to
+ strEntry := frmNewForm.GenerateEventTableEntries(strClassName);
+ //SendDebug(strEntry);
+ AddClassNameEventTableEntries(synEdit, strClassName, intBlockStart,intBlockEnd, strEntry);
+
+ //Manual Code Clear Declaration and Creation Field
+
+ AddClassNameEventTableEntries(synEdit, strClassName, intBlockStart,intBlockEnd, strEndStr);
+ for I := strlstManualCode.Count - 1 downto 0 do // Iterate
+ AddClassNameEventTableEntries(synEdit, strClassName, intBlockStart, intBlockEnd,
+ strlstManualCode[i]); // for
+
+ finally
+ strlstManualCode.Destroy;
+ end;
+
+ AddClassNameEventTableEntries(synEdit, strClassName, intBlockStart, intBlockEnd,strStartStr);
+
+ strEventTableStart := Format('BEGIN_EVENT_TABLE(%s,%s)',[frmNewForm.Wx_Name, frmNewForm.Wx_Class]);
+ AddClassNameEventTableEntries(synEdit, strClassName, intBlockStart, intBlockEnd,strEventTableStart, False);
+ end;
+
+ //Adding XPM Header files
+ //A stupid way to find
+ if GetBlockStartAndEndPos(synEdit, strClassName, btHeaderIncludes, intBlockStart,intBlockEnd) then
+ begin
+ //Clear Declaration and Creation Field
+ DeleteAllClassNameIncludeHeader(synEdit, strClassName, intBlockStart, intBlockEnd);
+ strHdrValue := '';
+ strLst := TStringList.Create;
+ for I := 0 to frmNewForm.ComponentCount - 1 do // Iterate
+ if frmNewForm.Components[i].GetInterface(IID_IWxComponentInterface,wxcompInterface) then
+ begin
+ strHdrValue := wxcompInterface.GenerateImageInclude;
+ if strLst.indexOf(strHdrValue) = -1 then
+ begin
+ strLst.add(strHdrValue);
+ AddClassNameIncludeHeader(synEdit, strClassName,
+ intBlockStart, intBlockEnd, strHdrValue);
+ end;
+ end;
+
+ strHdrValue := trim(frmNewForm.GenerateImageInclude);
+ if strHdrValue <> '' then
+ if strLst.indexOf(strHdrValue) = -1 then
+ begin
+ strLst.add(strHdrValue);
+ AddClassNameIncludeHeader(synEdit, strClassName, intBlockStart, intBlockEnd, strHdrValue);
+ end;
+
+ strLst.Destroy;
+ end;
+end;
+
+procedure GenerateXRC(frmNewForm: TfrmNewForm; strClassName: string;
+ synEdit: TSynEdit; strFileName: string);
+var
+ i: integer;
+ wxcompInterface: IWxComponentInterface;
+ tempstring: TStringList;
+begin
+
+ synEdit.Clear;
+ synEdit.Lines.Add('<?xml version="1.0" encoding="ISO-8859-1"?>');
+ synEdit.Lines.Add('<resource version="2.3.0.1">');
+ synEdit.Lines.Add('<!-- Created by wxDev-C++ ' + DEVCPP_VERSION + ' -->');
+
+ synEdit.Lines.Add(Format('<object class="%s" name="%s">',
+ [frmNewForm.Wx_class, frmNewForm.Wx_Name]));
+ synEdit.Lines.Add(Format('<title>%s</title>', [frmNewForm.Caption]));
+ synEdit.Lines.Add(Format('<IDident>%s</IDident>', [frmNewForm.Wx_IDName]));
+ synEdit.Lines.Add(Format('<ID>%d</ID>', [frmNewForm.Wx_IDValue]));
+ synEdit.Lines.Add(Format('<pos>%d,%d</pos>', [frmNewForm.Left, frmNewForm.Top]));
+ synEdit.Lines.Add(Format('<size>%d,%d</size>',
+ [frmNewForm.Width, frmNewForm.Height]));
+
+ if GetStdStyleString(frmNewForm.Wx_GeneralStyle) = '' then
+ if strEqual(frmNewForm.Wx_class, 'WxFrame') then
+ synEdit.Lines.Add('<style>wxDEFAULT_FRAME_STYLE</style>')
+ else
+ synEdit.Lines.Add('<style>wxDEFAULT_DIALOG_STYLE</style>')
+ else
+ synEdit.Lines.Add(Format('<style>%s</style>',
+ [GetStdStyleString(frmNewForm.Wx_GeneralStyle)]));
+
+ for i := 0 to frmNewForm.ComponentCount - 1 do // Iterate
+ if frmNewForm.Components[i].GetInterface(IID_IWxComponentInterface,
+ wxcompInterface) then
+ // Only add the XRC control if it is a child of the top-most parent (the form)
+ // If it is a child of a sizer, panel, or other object, then it's XRC code
+ // is created in GenerateXRCControlCreation of that control.
+ if (frmNewForm.Components[i].GetParentComponent.Name = 'frmNewForm') then
+ begin
+ tempstring := wxcompInterface.GenerateXRCControlCreation(' ');
+ try
+ synEdit.Lines.AddStrings(tempstring);
+ finally
+ tempstring.Free;
+ end
+ end; // for
+
+ synEdit.Lines.Add('</object>');
+ synEdit.Lines.Add('</resource>');
+
+end;
+
+procedure GenerateHpp(frmNewForm: TfrmNewForm; strClassName: string; synEdit: TSynEdit);
+var
+ i: integer;
+ intBlockStart, intBlockEnd: integer;
+ wxcompInterface: IWxComponentInterface;
+ strLst: TStringList;
+ strHdrValue, strIDValue, strLine: string;
+begin
+ if GetBlockStartAndEndPos(synEdit, strClassName, btClassNameGUIItemsDeclaration,
+ intBlockStart, intBlockEnd) then
+ begin
+ //Clear Declaration and Creation Field
+ DeleteAllClassNameGUIItemsDeclaration(synEdit, strClassName, intBlockStart,
+ intBlockEnd);
+ for I := 0 to frmNewForm.ComponentCount - 1 do // Iterate
+ if frmNewForm.Components[i].GetInterface(IID_IWxComponentInterface,
+ wxcompInterface) then
+ AddClassNameGUIItemsDeclaration(synEdit, strClassName, intBlockStart,
+ intBlockEnd, wxcompInterface.GenerateGUIControlDeclaration());
+ end;
+
+ //For Old #define styled Control Ids
+ if GetBlockStartAndEndPos(synEdit, strClassName, btClassNameControlIdentifiers,
+ intBlockStart, intBlockEnd) then
+ begin
+ //Clear Declaration and Creation Field
+ DeleteAllClassNameControlIndentifiers(synEdit, strClassName, intBlockStart,
+ intBlockEnd);
+ strLst := TStringList.Create;
+ for I := 0 to frmNewForm.ComponentCount - 1 do // Iterate
+ if frmNewForm.Components[i].GetInterface(IID_IWxComponentInterface,
+ wxcompInterface) then
+ begin
+ //If the user is using a predefined ID then we dont generate ids for them
+ if IsIDPredefined(trim(wxcompInterface.GetIDName), MainForm.strStdwxIDList) then
+ continue;
+ strIDValue := wxcompInterface.GenerateControlIDs;
+ if trim(strIDValue) <> '' then
+ if strLst.indexOf(strIDValue) = -1 then
+ begin
+ strLst.Add(strIDValue);
+ AddClassNameControlIndentifiers(synEdit, strClassName, intBlockStart,
+ intBlockEnd, strIDValue);
+ end;
+ end;
+ strLst.Destroy;
+ end;
+ //New Enum Based Control Ids
+ if GetBlockStartAndEndPos(synEdit, strClassName, btClassNameEnumControlIdentifiers,
+ intBlockStart, intBlockEnd) then
+ begin
+ //Clear Declaration and Creation Field
+ DeleteAllClassNameEnumControlIndentifiers(synEdit, strClassName,
+ intBlockStart, intBlockEnd);
+ strLst := TStringList.Create;
+ for I := 0 to frmNewForm.ComponentCount - 1 do // Iterate
+ if frmNewForm.Components[i].GetInterface(IID_IWxComponentInterface,
+ wxcompInterface) then
+ begin
+ //If the user is using a predefined ID then we dont generate ids for them
+ if IsIDPredefined(trim(wxcompInterface.GetIDName), MainForm.strStdwxIDList) then
+ continue;
+ strIDValue := wxcompInterface.GenerateEnumControlIDs;
+ if trim(strIDValue) <> '' then
+ if strLst.indexOf(strIDValue) = -1 then
+ begin
+ strLst.Add(strIDValue);
+ AddClassNameEnumControlIndentifiers(synEdit,
+ strClassName, intBlockStart, intBlockEnd, strIDValue);
+ end;
+ end;
+ strLst.Destroy;
+ end;
+
+ if GetBlockStartAndEndPos(synEdit, strClassName, btDialogStyle, intBlockStart,
+ intBlockEnd) then
+ begin
+ //Clear Declaration and Creation Field
+
+ // We want to parse the #define line and just extract the name of
+ // the constant. The name used to be hardcoded as THIS_DIALOG_STYLE
+ // Now we'll use a name based on the CLASSNAME, but for backwards
+ // compatibility we need to just change the options, not the name
+ // itself.
+ // Get the #define line (it should be just after the start of the block)
+ for I := intBlockStart to intBlockEnd do // Iterate
+ if (strContainsU('#define', synEdit.Lines[I])) then
+ strLine := Trim(synEdit.Lines[I]);
+
+ // Tokenize the line by spaces
+ strLst := TStringList.Create; // Create a string list
+ strTokenToStrings(strLine, ' ', strLst);
+ // Break up the line wherever there is a space
+ strLine := '#undef ' + strLst.Strings[1] + #13#10;
+ strLine := strLine + strLst.Strings[0] + ' ' + strLst.Strings[1] +
+ ' ' + frmNewForm.GetDialogStyleString; // Get the first and second strings
+
+ strLst.Destroy; // Destroy the string list
+
+ DeleteAllDialogStyleDeclaration(synEdit, strClassName, intBlockStart,
+ intBlockEnd);
+ AddDialogStyleDeclaration(synEdit, strClassName, intBlockStart, intBlockEnd,
+ strLine);
+
+ end;
+
+ if GetBlockStartAndEndPos(synEdit, strClassName, btHeaderIncludes,
+ intBlockStart, intBlockEnd) then
+ begin
+ //Clear Declaration and Creation Field
+ DeleteAllClassNameIncludeHeader(synEdit, strClassName, intBlockStart,
+ intBlockEnd);
+ strLst := TStringList.Create;
+ for I := 0 to frmNewForm.ComponentCount - 1 do // Iterate
+ if frmNewForm.Components[i].GetInterface(IID_IWxComponentInterface,
+ wxcompInterface) then
+ begin
+ strHdrValue := wxcompInterface.GenerateHeaderInclude;
+ if strLst.indexOf(strHdrValue) = -1 then
+ begin
+ strLst.add(strHdrValue);
+ AddClassNameIncludeHeader(synEdit, strClassName,
+ intBlockStart, intBlockEnd, strHdrValue);
+ end;
+ end;
+ strLst.Destroy;
+ end;
+
+end;
+
+
+procedure GenerateXPM(frmNewForm: TfrmNewForm; strFileName: string;onlyForForm: boolean);
+var
+ I: integer;
+ xpmFileDir,xpmNewFileDir: string;
+ fileStrlst: TStringList;
+ strXPMContent,frmName: string;
+
+begin
+ xpmFileDir := IncludetrailingPathDelimiter(ExtractFileDir(strFileName));
+ xpmNewFileDir:=IncludeTrailingPathDelimiter(xpmFileDir)+'Images';
+ if DirectoryExists(xpmNewFileDir) = false then
+ begin
+ if ForceDirectories(xpmNewFileDir) = true then
+ xpmFileDir:=xpmNewFileDir;
+ end
+ else
+ xpmFileDir:=xpmNewFileDir;
+
+ xpmFileDir := IncludetrailingPathDelimiter(xpmFileDir);
+
+ if frmNewForm.Wx_ICON.Bitmap.handle <> 0 then
+ begin
+ if onlyForForm then
+ DeleteFile(xpmFileDir + 'Self_'+frmNewForm.Wx_Name + '_XPM.xpm');
+
+ if not fileexists(xpmFileDir + 'Self_'+frmNewForm.Wx_Name + '_XPM.xpm') then
+ begin
+ fileStrlst := TStringList.Create;
+ try
+ strXPMContent := GetXPMFromTPicture('Self_'+frmNewForm.Wx_Name, frmNewForm.Wx_ICON.Bitmap);
+ if trim(strXPMContent) <> '' then
+ begin
+ fileStrlst.Add(strXPMContent);
+ fileStrlst.SaveToFile(xpmFileDir + 'Self_'+frmNewForm.Wx_Name + '_XPM.xpm');
+ end;
+ except
+ end;
+ fileStrlst.Destroy;
+ end;
+ end;
+
+ if onlyForForm = True then
+ exit;
+
+ frmName:=frmNewForm.Wx_Name+'_';
+ for I := 0 to frmNewForm.ComponentCount - 1 do // Iterate
+ begin
+ if frmNewForm.Components[I] is TWxStaticBitmap then
+ begin
+ if TWxStaticBitmap(frmNewForm.Components[I]).Picture.Bitmap.handle = 0 then
+ continue;
+ if not fileexists(xpmFileDir + frmName+frmNewForm.Components[I].Name + '_XPM.xpm') then
+ begin
+ fileStrlst := TStringList.Create;
+ try
+ strXPMContent :=GetXPMFromTPicture(frmName+frmNewForm.Components[I].Name, TWxStaticBitmap(frmNewForm.Components[I]).Picture.Bitmap);
+ if trim(strXPMContent) = '' then
+ continue;
+ fileStrlst.Add(strXPMContent);
+ fileStrlst.SaveToFile(xpmFileDir + frmName+frmNewForm.Components[I].Name + '_XPM.xpm');
+ except
+ end;
+ fileStrlst.Destroy;
+ end;
+ end; // for
+
+ if frmNewForm.Components[I] is TWxToolButton then
+ begin
+ if TWxToolButton(frmNewForm.Components[I]).Wx_Bitmap.Bitmap.handle = 0 then
+ continue;
+ if not fileexists(xpmFileDir + frmName+frmNewForm.Components[I].Name + '_XPM.xpm') then
+ begin
+ fileStrlst := TStringList.Create;
+ try
+ strXPMContent :=
+ GetXPMFromTPicture(frmName+frmNewForm.Components[I].Name, TWxToolButton(frmNewForm.Components[I]).Wx_Bitmap.Bitmap);
+ if trim(strXPMContent) = '' then
+ continue;
+ fileStrlst.Add(strXPMContent);
+ fileStrlst.SaveToFile(xpmFileDir + frmName+frmNewForm.Components[I].Name + '_XPM.xpm');
+ except
+ end;
+ fileStrlst.Destroy;
+ end;
+ end; // for
+
+ end;
+end;
+
+procedure TfrmNewForm.SetDialogProperties();
+begin
+ //Free the old property list
+ if Assigned(wx_PropertyList) then
+ wx_PropertyList.Free;
+
+ //Create the new one
+ wx_PropertyList := TStringList.Create;
+
+ try
+ wx_PropertyList.Add('Wx_IDName:ID Name');
+ wx_PropertyList.Add('Wx_IDValue:ID Value');
+ wx_PropertyList.Add('Wx_Class:Class');
+ wx_PropertyList.Add('Wx_Center:Center');
+ wx_PropertyList.Add('Wx_HelpText:Help Text');
+ wx_PropertyList.Add('Wx_ToolTips:Tooltip');
+ wx_PropertyList.Add('Wx_Hidden:Hidden');
+ wx_PropertyList.Add('Caption:Title');
+ wx_PropertyList.Add('Height:Height');
+ wx_PropertyList.Add('Width:Width');
+ wx_PropertyList.Add('Left:Left');
+ wx_PropertyList.Add('Top:Top');
+ wx_PropertyList.Add('Font:Font');
+ wx_PropertyList.Add('Wx_SizeToContents:Size to Contents');
+
+ wx_PropertyList.Add('Wx_GeneralStyle:General Style');
+ wx_PropertyList.Add('wxSIMPLE_BORDER:wxSIMPLE_BORDER');
+ wx_PropertyList.Add('wxDOUBLE_BORDER:wxDOUBLE_BORDER');
+ wx_PropertyList.Add('wxSUNKEN_BORDER:wxSUNKEN_BORDER');
+ wx_PropertyList.Add('wxRAISED_BORDER:wxRAISED_BORDER');
+ wx_PropertyList.Add('wxSTATIC_BORDER:wxSTATIC_BORDER');
+ wx_PropertyList.Add('wxTRANSPARENT_WINDOW:wxTRANSPARENT_WINDOW');
+ wx_PropertyList.Add('wxTAB_TRAVERSAL:wxTAB_TRAVERSAL');
+ wx_PropertyList.Add('wxWANTS_CHARS:wxWANTS_CHARS');
+ wx_PropertyList.Add('wxNO_FULL_REPAINT_ON_RESIZE:wxNO_FULL_REPAINT_ON_RESIZE');
+ wx_PropertyList.Add('wxVSCROLL:wxVSCROLL');
+ wx_PropertyList.Add('wxHSCROLL:wxHSCROLL');
+ wx_PropertyList.Add('wxCLIP_CHILDREN:wxCLIP_CHILDREN');
+ wx_PropertyList.Add('wxNO_BORDER:wxNO_BORDER');
+ wx_PropertyList.Add('wxALWAYS_SHOW_SB:wxALWAYS_SHOW_SB');
+ wx_PropertyList.Add('wxFULL_REPAINT_ON_RESIZE:wxFULL_REPAINT_ON_RESIZE');
+
+ wx_PropertyList.Add('Wx_DialogStyle:Dialog Style');
+ wx_PropertyList.Add('wxCAPTION:wxCAPTION');
+ wx_PropertyList.Add('wxNO_3D:wxNO_3D');
+ wx_PropertyList.Add('wxRESIZE_BORDER:wxRESIZE_BORDER');
+ wx_PropertyList.Add('wxSYSTEM_MENU:wxSYSTEM_MENU');
+ wx_PropertyList.Add('wxTHICK_FRAME:wxTHICK_FRAME');
+ wx_PropertyList.Add('wxSTAY_ON_TOP:wxSTAY_ON_TOP');
+ wx_PropertyList.Add('wxDIALOG_NO_PARENT:wxDIALOG_NO_PARENT');
+ wx_PropertyList.Add('wxDIALOG_EX_CONTEXTHELP:wxDIALOG_EX_CONTEXTHELP');
+ wx_PropertyList.Add('wxMINIMIZE_BOX:wxMINIMIZE_BOX');
+ wx_PropertyList.Add('wxMAXIMIZE_BOX:wxMAXIMIZE_BOX');
+ wx_PropertyList.Add('wxCLOSE_BOX:wxCLOSE_BOX');
+ wx_PropertyList.Add('Wx_Name:Name');
+ wx_PropertyList.Add('Wx_ICON:Icon');
+ except
+ wx_PropertyList.Free;
+ raise;
+ end;
+
+end;
+
+procedure TfrmNewForm.SetFrameProperties();
+begin
+ //Free the old property list
+ if Assigned(wx_PropertyList) then
+ wx_PropertyList.Free;
+
+ //Create the new one
+ wx_PropertyList := TStringList.Create;
+
+ wx_PropertyList.Add('Wx_SizeToContents:Size to Contents');
+ wx_PropertyList.Add('Wx_IDName:ID Name');
+ wx_PropertyList.Add('Wx_IDValue:ID Value');
+ wx_PropertyList.Add('Wx_Class:Class');
+ wx_PropertyList.Add('Wx_Center:Center');
+ wx_PropertyList.Add('Wx_HelpText:Help Text');
+ wx_PropertyList.Add('Wx_ToolTips:Tooltip');
+ wx_PropertyList.Add('Wx_Hidden:Hidden');
+ wx_PropertyList.Add('Caption:Title');
+ wx_PropertyList.Add('Height:Height');
+ wx_PropertyList.Add('Width:Width');
+ wx_PropertyList.Add('Left:Left');
+ wx_PropertyList.Add('Top:Top');
+ wx_PropertyList.Add('Font:Font');
+
+ wx_PropertyList.Add('Wx_GeneralStyle:General Style');
+ wx_PropertyList.Add('wxSIMPLE_BORDER:wxSIMPLE_BORDER');
+ wx_PropertyList.Add('wxDOUBLE_BORDER:wxDOUBLE_BORDER');
+ wx_PropertyList.Add('wxSUNKEN_BORDER:wxSUNKEN_BORDER');
+ wx_PropertyList.Add('wxRAISED_BORDER:wxRAISED_BORDER');
+ wx_PropertyList.Add('wxSTATIC_BORDER:wxSTATIC_BORDER');
+ wx_PropertyList.Add('wxTRANSPARENT_WINDOW:wxTRANSPARENT_WINDOW');
+ wx_PropertyList.Add('wxTAB_TRAVERSAL:wxTAB_TRAVERSAL');
+ wx_PropertyList.Add('wxWANTS_CHARS:wxWANTS_CHARS');
+ wx_PropertyList.Add('wxNO_FULL_REPAINT_ON_RESIZE:wxNO_FULL_REPAINT_ON_RESIZE');
+ wx_PropertyList.Add('wxVSCROLL:wxVSCROLL');
+ wx_PropertyList.Add('wxHSCROLL:wxHSCROLL');
+ wx_PropertyList.Add('wxCLIP_CHILDREN:wxCLIP_CHILDREN');
+ wx_PropertyList.Add('wxNO_BORDER:wxNO_BORDER');
+ wx_PropertyList.Add('wxALWAYS_SHOW_SB:wxALWAYS_SHOW_SB');
+ wx_PropertyList.Add('wxFULL_REPAINT_ON_RESIZE:wxFULL_REPAINT_ON_RESIZE');
+
+ wx_PropertyList.Add('Wx_DialogStyle:Frame Style');
+ wx_PropertyList.Add('wxCAPTION:wxCAPTION');
+ wx_PropertyList.Add('wxNO_3D:wxNO_3D');
+ wx_PropertyList.Add('wxRESIZE_BORDER:wxRESIZE_BORDER');
+ wx_PropertyList.Add('wxSYSTEM_MENU:wxSYSTEM_MENU');
+ wx_PropertyList.Add('wxTHICK_FRAME:wxTHICK_FRAME');
+ wx_PropertyList.Add('wxSTAY_ON_TOP:wxSTAY_ON_TOP');
+ wx_PropertyList.Add('wxFRAME_NO_PARENT:wxFRAME_NO_PARENT');
+ wx_PropertyList.Add('wxFRAME_EX_CONTEXTHELP:wxFRAME_EX_CONTEXTHELP');
+ wx_PropertyList.Add('wxMINIMIZE_BOX:wxMINIMIZE_BOX');
+ wx_PropertyList.Add('wxMAXIMIZE_BOX:wxMAXIMIZE_BOX');
+ wx_PropertyList.Add('wxCLOSE_BOX:wxCLOSE_BOX');
+ wx_PropertyList.Add('wxICONIZE:wxICONIZE');
+ wx_PropertyList.Add('wxMINIMIZE:wxMINIMIZE');
+ wx_PropertyList.Add('wxMAXIMIZE:wxMAXIMIZE');
+ wx_PropertyList.Add('wxFRAME_TOOL_WINDOW:wxFRAME_TOOL_WINDOW');
+ wx_PropertyList.Add('wxFRAME_NO_TASKBAR:wxFRAME_NO_TASKBAR');
+ wx_PropertyList.Add('wxFRAME_FLOAT_ON_PARENT:wxFRAME_FLOAT_ON_PARENT');
+ wx_PropertyList.Add('wxFRAME_SHAPED:wxFRAME_SHAPED');
+ wx_PropertyList.Add('Wx_Name:Name');
+ wx_PropertyList.Add('Wx_ICON:Icon');
+
+end;
+
+function TfrmNewForm.GetParameterFromEventName(EventName: string): string;
+begin
+ EventName := UpperCase(trim(EventName));
+
+ if EventName = 'EVT_CHAR' then
+ begin
+ Result := 'wxKeyEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_KEY_UP' then
+ begin
+ Result := 'wxKeyEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_KEY_DOWN' then
+ begin
+ Result := 'wxKeyEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_ERASE_BACKGROUND' then
+ begin
+ Result := 'wxEraseEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_SIZE' then
+ begin
+ Result := 'wxSizeEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_SET_FOCUS' then
+ begin
+ Result := 'wxFocusEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_KILL_FOCUS' then
+ begin
+ Result := 'wxFocusEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_ENTER_WINDOW' then
+ begin
+ Result := 'wxMouseEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_LEAVE_WINDOW' then
+ begin
+ Result := 'wxMouseEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_MOTION' then
+ begin
+ Result := 'wxMouseEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_LEFT_DOWN' then
+ begin
+ Result := 'wxMouseEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_LEFT_UP' then
+ begin
+ Result := 'wxMouseEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_RIGHT_DOWN' then
+ begin
+ Result := 'wxMouseEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_RIGHT_UP' then
+ begin
+ Result := 'wxMouseEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_MIDDLE_DOWN' then
+ begin
+ Result := 'wxMouseEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_MIDDLE_UP' then
+ begin
+ Result := 'wxMouseEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_LEFT_DCLICK' then
+ begin
+ Result := 'wxMouseEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_RIGHT_DCLICK' then
+ begin
+ Result := 'wxMouseEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_MIDDLE_DCLICK' then
+ begin
+ Result := 'wxMouseEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_PAINT' then
+ begin
+ Result := 'wxPaintEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_INIT_DIALOG' then
+ begin
+ Result := 'wxInitDialogEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_SCROLLWIN' then
+ begin
+ Result := 'wxScrollWinEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_SCROLLWIN_TOP' then
+ begin
+ Result := 'wxScrollWinEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_SCROLLWIN_BOTTOM' then
+ begin
+ Result := 'wxScrollWinEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_SCROLLWIN_LINEUP' then
+ begin
+ Result := 'wxScrollWinEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_SCROLLWIN_LINEDOWN' then
+ begin
+ Result := 'wxScrollWinEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_SCROLLWIN_PAGEUP' then
+ begin
+ Result := 'wxScrollWinEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_SCROLLWIN_PAGEDOWN' then
+ begin
+ Result := 'wxScrollWinEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_SCROLLWIN_THUMBTRACK' then
+ begin
+ Result := 'wxScrollWinEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_SCROLLWIN_THUMBRELEASE' then
+ begin
+ Result := 'wxScrollWinEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_SYS_COLOUR_CHANGED' then
+ begin
+ Result := 'wxSysColourChangedEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_UPDATE_UI' then
+ begin
+ Result := 'wxUpdateUIEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_CLOSE' then
+ begin
+ Result := 'wxCloseEvent& event';
+ exit;
+ end;
+
+ if EventName = 'EVT_IDLE' then
+ begin
+ Result := 'wxIdleEvent& event';
+ exit;
+ end;
+ if EventName = 'EVT_ACTIVATE' then
+ begin
+ Result := 'wxActivateEvent& event';
+ exit;
+ end;
+ if EventName = 'EVT_ACTIVATE_APP' then
+ begin
+ Result := 'wxActivateEvent& event';
+ exit;
+ end;
+ if EventName = 'EVT_QUERY_END_SESSION' then
+ begin
+ Result := 'wxCloseEvent& event';
+ exit;
+ end;
+ if EventName = 'EVT_END_SESSION' then
+ begin
+ Result := 'wxCloseEvent& event';
+ exit;
+ end;
+ if EventName = 'EVT_DROP_FILES' then
+ begin
+ Result := 'wxDropFilesEvent& event';
+ exit;
+ end;
+ if EventName = 'EVT_SPLITTER_SASH_POS_CHANGED' then
+ begin
+ Result := 'wxSplitterEvent& event';
+ exit;
+ end;
+ if EventName = 'EVT_SPLITTER_UNSPLIT' then
+ begin
+ Result := 'wxSplitterEvent& event';
+ exit;
+ end;
+ if EventName = 'EVT_SPLITTER_DCLICK' then
+ begin
+ Result := 'wxSplitterEvent& event';
+ exit;
+ end;
+ if EventName = 'EVT_JOY_BUTTON_DOWN' then
+ begin
+ Result := 'wxJoystickEvent& event';
+ exit;
+ end;
+ if EventName = 'EVT_JOY_BUTTON_UP' then
+ begin
+ Result := 'wxJoystickEvent& event';
+ exit;
+ end;
+ if EventName = 'EVT_JOY_MOVE' then
+ begin
+ Result := 'wxJoystickEvent& event';
+ exit;
+ end;
+ if EventName = 'EVT_JOY_ZMOVE' then
+ begin
+ Result := 'wxJoystickEvent& event';
+ exit;
+ end;
+ if EventName = 'EVT_MENU_OPEN' then
+ begin
+ Result := 'wxMenuEvent& event';
+ exit;
+ end;
+ if EventName = 'EVT_MENU_CLOSE' then
+ begin
+ Result := 'wxMenuEvent& event';
+ exit;
+ end;
+ if EventName = 'EVT_MENU_HIGHLIGHT_ALL' then
+ begin
+ Result := 'wxMenuEvent& event';
+ exit;
+ end;
+ if EventName = 'EVT_MOUSEWHEEL' then
+ begin
+ Result := 'wxMouseEvent& event';
+ exit;
+ end;
+ if EventName = 'EVT_MOUSE_EVENTS' then
+ begin
+ Result := 'wxMouseEvent& event';
+ exit;
+ end;
+
+ Result := 'void';
+end;
+
+function TfrmNewForm.GetTypeFromEventName(EventName: string): string;
+begin
+ Result := 'void';
+end;
+
+procedure TfrmNewForm.SaveControlOrientation(ControlOrientation: TWxControlOrientation);
+begin
+ //Result:=WxControlNone;
+end;
+
+function TfrmNewForm.GetStretchFactor: integer;
+begin
+ Result := 0;
+end;
+
+procedure TfrmNewForm.SetStretchFactor(intValue: integer);
+begin
+end;
+
+function TfrmNewForm.GetEventList: TStringList;
+begin
+ Result := FWx_EventList;
+end;
+
+function TfrmNewForm.GetBorderAlignment: TWxBorderAlignment;
+begin
+ Result := [];
+end;
+
+procedure TfrmNewForm.SetBorderAlignment(border: TWxBorderAlignment);
+begin
+end;
+
+function TfrmNewForm.GetBorderWidth: integer;
+begin
+ Result := 0;
+end;
+
+procedure TfrmNewForm.SetBorderWidth(width: integer);
+begin
+end;
+
+procedure TfrmNewForm.FormMove(var Msg: TWMMove);
+begin
+ inherited;
+ //if MainForm.ELDesigner1.Active then
+ // SetModifiedFlag;
+end;
+
+function TfrmNewForm.GenerateControlIDs: string;
+begin
+ if (Wx_IDValue > 0) and (trim(Wx_IDName) <> '') then
+ Result := Format('#define %s %d', [Wx_IDName, Wx_IDValue]);
+end;
+
+function TfrmNewForm.GenerateEnumControlIDs: string;
+begin
+ if (Wx_IDValue > 0) and (trim(Wx_IDName) <> '') then
+ Result := Format('%s = %d,', [Wx_IDName, Wx_IDValue]);
+end;
+
+
+function TfrmNewForm.GenerateEventTableEntries(CurrClassName: string): string;
+begin
+ Result := '';
+ if trim(EVT_UPDATE_UI) <> '' then
+ Result := Result + #13 + Format('EVT_UPDATE_UI(%s, %s::%s)',
+ [trim(Self.wx_IDName), CurrClassName, EVT_UPDATE_UI]) + '';
+
+
+ if trim(EVT_CLOSE) <> '' then
+ Result := Result + #13 + Format('EVT_CLOSE(%s::%s)',
+ [CurrClassName, EVT_CLOSE]) + '';
+
+
+ if trim(EVT_CHAR) <> '' then
+ Result := Result + #13 + Format('EVT_CHAR(%s::%s)', [CurrClassName,
+ EVT_CHAR]) + '';
+
+ if trim(EVT_KEY_UP) <> '' then
+ Result := Result + #13 + Format('EVT_KEY_UP(%s::%s)', [CurrClassName,
+ EVT_KEY_UP]) + '';
+
+ if trim(EVT_KEY_DOWN) <> '' then
+ Result := Result + #13 + Format('EVT_KEY_DOWN(%s::%s)', [CurrClassName,
+ EVT_KEY_DOWN]) + '';
+
+ if trim(EVT_ERASE_BACKGROUND) <> '' then
+ Result := Result + #13 + Format('EVT_ERASE_BACKGROUND(%s::%s)',
+ [CurrClassName, EVT_ERASE_BACKGROUND]) + '';
+
+ if trim(EVT_SIZE) <> '' then
+ Result := Result + #13 + Format('EVT_SIZE(%s::%s)', [CurrClassName,
+ EVT_SIZE]) + '';
+
+ if trim(EVT_SET_FOCUS) <> '' then
+ Result := Result + #13 + Format('EVT_SET_FOCUS(%s::%s)', [CurrClassName,
+ EVT_SET_FOCUS]) + '';
+
+ if trim(EVT_KILL_FOCUS) <> '' then
+ Result := Result + #13 + Format('EVT_KILL_FOCUS(%s::%s)', [CurrClassName,
+ EVT_KILL_FOCUS]) + '';
+
+ if trim(EVT_ENTER_WINDOW) <> '' then
+ Result := Result + #13 + Format('EVT_ENTER_WINDOW(%s::%s)', [CurrClassName,
+ EVT_ENTER_WINDOW]) + '';
+
+ if trim(EVT_LEAVE_WINDOW) <> '' then
+ Result := Result + #13 + Format('EVT_LEAVE_WINDOW(%s::%s)', [CurrClassName,
+ EVT_LEAVE_WINDOW]) + '';
+
+ if trim(EVT_MOTION) <> '' then
+ Result := Result + #13 + Format('EVT_MOTION(%s::%s)', [CurrClassName,
+ EVT_MOTION]) + '';
+
+ if trim(EVT_LEFT_DOWN) <> '' then
+ Result := Result + #13 + Format('EVT_LEFT_DOWN(%s::%s)', [CurrClassName,
+ EVT_LEFT_DOWN]) + '';
+
+ if trim(EVT_LEFT_UP) <> '' then
+ Result := Result + #13 + Format('EVT_LEFT_UP(%s::%s)', [CurrClassName,
+ EVT_LEFT_UP]) + '';
+
+ if trim(EVT_RIGHT_DOWN) <> '' then
+ Result := Result + #13 + Format('EVT_RIGHT_DOWN(%s::%s)', [CurrClassName,
+ EVT_RIGHT_DOWN]) + '';
+
+ if trim(EVT_RIGHT_UP) <> '' then
+ Result := Result + #13 + Format('EVT_RIGHT_UP(%s::%s)', [CurrClassName,
+ EVT_RIGHT_UP]) + '';
+
+ if trim(EVT_MIDDLE_UP) <> '' then
+ Result := Result + #13 + Format('EVT_MIDDLE_UP(%s::%s)', [CurrClassName,
+ EVT_MIDDLE_UP]) + '';
+
+ if trim(EVT_LEFT_DCLICK) <> '' then
+ Result := Result + #13 + Format('EVT_LEFT_DCLICK(%s::%s)', [CurrClassName,
+ EVT_LEFT_DCLICK]) + '';
+
+ if trim(EVT_RIGHT_DCLICK) <> '' then
+ Result := Result + #13 + Format('EVT_RIGHT_DCLICK(%s::%s)', [CurrClassName,
+ EVT_RIGHT_DCLICK]) + '';
+
+ if trim(EVT_MIDDLE_DCLICK) <> '' then
+ Result := Result + #13 + Format('EVT_MIDDLE_DCLICK(%s::%s)', [CurrClassName,
+ EVT_MIDDLE_DCLICK]) + '';
+
+ if trim(EVT_PAINT) <> '' then
+ Result := Result + #13 + Format('EVT_PAINT(%s::%s)', [CurrClassName,
+ EVT_PAINT]) + '';
+
+ if trim(EVT_INIT_DIALOG) <> '' then
+ Result := Result + #13 + Format('EVT_INIT_DIALOG(%s::%s)', [CurrClassName,
+ EVT_INIT_DIALOG]) + '';
+
+ if trim(EVT_SCROLLWIN) <> '' then
+ Result := Result + #13 + Format('EVT_SCROLLWIN(%s::%s)', [CurrClassName,
+ EVT_SCROLLWIN]) + '';
+
+ if trim(EVT_SCROLLWIN_TOP) <> '' then
+ Result := Result + #13 + Format('EVT_SCROLLWIN_TOP(%s::%s)', [CurrClassName,
+ EVT_SCROLLWIN_TOP]) + '';
+
+ if trim(EVT_SCROLLWIN_BOTTOM) <> '' then
+ Result := Result + #13 + Format('EVT_SCROLLWIN_BOTTOM(%s::%s)',
+ [CurrClassName, EVT_SCROLLWIN_BOTTOM]) + '';
+
+ if trim(EVT_SCROLLWIN_LINEUP) <> '' then
+ Result := Result + #13 + Format('EVT_SCROLLWIN_LINEUP(%s::%s)',
+ [CurrClassName, EVT_SCROLLWIN_LINEUP]) + '';
+
+ if trim(EVT_SCROLLWIN_LINEDOWN) <> '' then
+ Result := Result + #13 + Format('EVT_SCROLLWIN_LINEDOWN(%s::%s)',
+ [CurrClassName, EVT_SCROLLWIN_LINEDOWN]) + '';
+
+ if trim(EVT_SCROLLWIN_PAGEUP) <> '' then
+ Result := Result + #13 + Format('EVT_SCROLLWIN_PAGEUP(%s::%s)',
+ [CurrClassName, EVT_SCROLLWIN_PAGEUP]) + '';
+
+ if trim(EVT_SCROLLWIN_PAGEDOWN) <> '' then
+ Result := Result + #13 + Format('EVT_SCROLLWIN_PAGEDOWN(%s::%s)',
+ [CurrClassName, EVT_SCROLLWIN_PAGEDOWN]) + '';
+
+ if trim(EVT_SCROLLWIN_THUMBTRACK) <> '' then
+ Result := Result + #13 + Format('EVT_SCROLLWIN_THUMBTRACK(%s::%s)',
+ [CurrClassName, EVT_SCROLLWIN_THUMBTRACK]) + '';
+
+ if trim(EVT_SCROLLWIN_THUMBRELEASE) <> '' then
+ Result := Result + #13 + Format('EVT_SCROLLWIN_THUMBRELEASE(%s::%s)',
+ [CurrClassName, EVT_SCROLLWIN_THUMBRELEASE]) + '';
+
+ if trim(EVT_SYS_COLOUR_CHANGED) <> '' then
+ Result := Result + #13 + Format('EVT_SYS_COLOUR_CHANGED(%s::%s)',
+ [CurrClassName, EVT_SYS_COLOUR_CHANGED]) + '';
+ if trim(EVT_IDLE) <> '' then
+ Result := Result + #13 + Format('EVT_IDLE(%s::%s)',
+ [CurrClassName, EVT_IDLE]) + '';
+ if trim(EVT_ACTIVATE) <> '' then
+ Result := Result + #13 + Format('EVT_ACTIVATE(%s::%s)',
+ [CurrClassName, EVT_ACTIVATE]) + '';
+ if trim(EVT_ACTIVATE_APP) <> '' then
+ Result := Result + #13 + Format('EVT_ACTIVATE_APP(%s::%s)',
+ [CurrClassName, EVT_ACTIVATE_APP]) + '';
+ if trim(EVT_QUERY_END_SESSION) <> '' then
+ Result := Result + #13 + Format('EVT_QUERY_END_SESSION(%s::%s)',
+ [CurrClassName, EVT_QUERY_END_SESSION]) + '';
+ if trim(EVT_END_SESSION) <> '' then
+ Result := Result + #13 + Format('EVT_END_SESSION(%s::%s)',
+ [CurrClassName, EVT_END_SESSION]) + '';
+ if trim(EVT_DROP_FILES) <> '' then
+ Result := Result + #13 + Format('EVT_DROP_FILES(%s::%s)',
+ [CurrClassName, EVT_DROP_FILES]) + '';
+ if trim(EVT_SPLITTER_SASH_POS_CHANGED) <> '' then
+ Result := Result + #13 + Format('EVT_SPLITTER_SASH_POS_CHANGED(%s::%s)',
+ [CurrClassName, EVT_SPLITTER_SASH_POS_CHANGED]) + '';
+ if trim(EVT_SPLITTER_UNSPLIT) <> '' then
+ Result := Result + #13 + Format('EVT_SPLITTER_UNSPLIT(%s::%s)',
+ [CurrClassName, EVT_SPLITTER_UNSPLIT]) + '';
+ if trim(EVT_SPLITTER_DCLICK) <> '' then
+ Result := Result + #13 + Format('EVT_SPLITTER_DCLICK(%s::%s)',
+ [CurrClassName, EVT_SPLITTER_DCLICK]) + '';
+ if trim(EVT_JOY_BUTTON_DOWN) <> '' then
+ Result := Result + #13 + Format('EVT_JOY_BUTTON_DOWN(%s::%s)',
+ [CurrClassName, EVT_JOY_BUTTON_DOWN]) + '';
+ if trim(EVT_JOY_BUTTON_UP) <> '' then
+ Result := Result + #13 + Format('EVT_JOY_BUTTON_UP(%s::%s)',
+ [CurrClassName, EVT_JOY_BUTTON_UP]) + '';
+ if trim(EVT_JOY_MOVE) <> '' then
+ Result := Result + #13 + Format('EVT_JOY_MOVE(%s::%s)',
+ [CurrClassName, EVT_JOY_MOVE]) + '';
+ if trim(EVT_JOY_ZMOVE) <> '' then
+ Result := Result + #13 + Format('EVT_JOY_ZMOVE(%s::%s)',
+ [CurrClassName, EVT_JOY_ZMOVE]) + '';
+ if trim(EVT_MENU_OPEN) <> '' then
+ Result := Result + #13 + Format('EVT_MENU_OPEN(%s::%s)',
+ [CurrClassName, EVT_MENU_OPEN]) + '';
+ if trim(EVT_MENU_CLOSE) <> '' then
+ Result := Result + #13 + Format('EVT_MENU_CLOSE(%s::%s)',
+ [CurrClassName, EVT_MENU_CLOSE]) + '';
+ if trim(EVT_MENU_HIGHLIGHT_ALL) <> '' then
+ Result := Result + #13 + Format('EVT_MENU_HIGHLIGHT_ALL(%s::%s)',
+ [CurrClassName, EVT_MENU_HIGHLIGHT_ALL]) + '';
+ if trim(EVT_MOUSEWHEEL) <> '' then
+ Result := Result + #13 + Format('EVT_MOUSEWHEEL(%s::%s)',
+ [CurrClassName, EVT_MOUSEWHEEL]) + '';
+ if trim(EVT_MOUSE_EVENTS) <> '' then
+ Result := Result + #13 + Format('EVT_MOUSE_EVENTS(%s::%s)',
+ [CurrClassName, EVT_MOUSE_EVENTS]) + '';
+
+end;
+
+function TfrmNewForm.GetDialogStyleString: string;
+begin
+ // This used to be hardcoded as THIS_DIALOG_STYLE
+ if (self.Wx_DialogStyle <> []) or (self.Wx_GeneralStyle <> []) then
+ Result := GetDialogSpecificStyle(self.Wx_GeneralStyle, self.Wx_DialogStyle,
+ self.Wx_Class)
+ else if (strEqual(self.Wx_Class, 'wxDialog')) then
+ Result := 'wxDEFAULT_DIALOG_STYLE'
+ else if (strEqual(self.Wx_Class, 'wxFrame')) then
+ Result := 'wxDEFAULT_FRAME_STYLE';
+
+end;
+
+function TfrmNewForm.GenerateXRCControlCreation(IndentString: string): TStringList;
+begin
+ Result := TStringList.Create;
+end;
+
+function TfrmNewForm.GenerateGUIControlCreation: string;
+var
+ I, J, MaxToolWidth, MaxToolHt, MaxSepValue: integer;
+ strLst: TStringList;
+ isSizerAvailable: boolean;
+
+begin
+ strLst := TStringList.Create;
+
+ if self.Wx_DesignerType = dtWxFrame then
+ for I := self.ComponentCount - 1 downto 0 do // Iterate
+ begin
+ if IsControlWxToolBar(TControl(Components[i])) then
+ begin
+ MaxToolWidth := 16;
+ MaxToolHt := 15;
+ MaxSepValue := 5;
+ for J := 0 to TWinControl(Components[i]).ControlCount - 1 do
+ // Iterate
+ begin
+ if (TWinControl(Components[i]).Controls[J] is TWxSeparator) then
+ if TWinControl(Components[i]).Controls[J].Width > MaxSepValue then
+ MaxSepValue := TWinControl(Components[i]).Controls[J].Width;
+
+ if (TWinControl(Components[i]).Controls[J] is TWxToolButton) then
+ if TWxToolButton(TWinControl(Components[i]).Controls[J]).Wx_BITMAP.Bitmap <> nil then
+ begin
+ if TWxToolButton(TWinControl(Components[i]).Controls[J]).Wx_BITMAP.Bitmap.Height > MaxToolHt then
+ MaxToolHt :=
+ TWxToolButton(TWinControl(Components[i]).Controls[J]).Wx_BITMAP.Bitmap.Height;
+
+ if TWxToolButton(TWinControl(Components[i]).Controls[J]).Wx_BITMAP.Bitmap.Width > MaxToolWidth then
+ MaxToolWidth :=
+ TWxToolButton(TWinControl(Components[i]).Controls[J]).Wx_BITMAP.Bitmap.Width;
+ end;
+ end; // for
+ if not ((MaxToolWidth = 16) and (MaxToolHt = 15)) then
+ strLst.add(Format('%s->SetToolBitmapSize(wxSize(%d,%d));',
+ [self.Components[i].Name, MaxToolWidth, MaxToolHt]));
+
+ if (MaxSepValue <> 5) then
+ strLst.add(Format('%s->SetToolSeparation(%d);',
+ [self.Components[i].Name, MaxSepValue]));
+ strLst.add(Format('%s->Realize();', [self.Components[i].Name]));
+ strLst.add(Format('SetToolBar(%s);', [self.Components[i].Name]));
+ end;
+
+ if IsControlWxStatusBar(TControl(Components[i])) then
+ strLst.add(Format('SetStatusBar(%s);', [self.Components[i].Name]));
+ end;
+
+ isSizerAvailable := False;
+ for I := 0 to self.ComponentCount - 1 do // Iterate
+ if self.Components[i] is TWxSizerPanel then
+ begin
+ isSizerAvailable := True;
+ break;
+ end;
+
+ strLst.add(Format('SetTitle(%s);', [GetCppString(self.Caption)]));
+
+ if assigned(Wx_ICON) then
+ if Wx_ICON.Bitmap.Handle = 0 then
+ strLst.add('SetIcon(wxNullIcon);')
+ else
+ begin
+ //strLst.add('wxIcon ' + self.Wx_Name + '_ICON' + ' (' +Self_'+self.Wx_Name + '_XPM' + ');');
+ strLst.add('SetIcon(' + 'Self_'+self.Wx_Name + '_XPM' + ');');
+ end;
+
+ if trim(self.Wx_ToolTips) <> '' then
+ strLst.add(Format('SetToolTip(%s);', [GetCppString(self.Wx_ToolTips)]));
+
+ if isSizerAvailable then
+ begin
+ if strLst.Count <> 0 then
+ strLst.add('');
+ strLst.Add('GetSizer()->Layout();');
+ strLst.add('GetSizer()->Fit(this);');
+ if Wx_SizeToContents then
+ strLst.add('GetSizer()->SetSizeHints(this);');
+ end
+ else
+ strLst.add(Format('SetSize(%d,%d,%d,%d);', [self.left, self.top,
+ self.Width, self.Height]));
+
+ if self.Wx_Center then
+ strLst.add('Center();');
+
+ Result := strLst.Text;
+ strLst.Destroy;
+
+end;
+
+function TfrmNewForm.GenerateGUIControlDeclaration: string;
+begin
+ //Result:=Format('%s *%s;',[trim(Self.Wx_Class),trim(Self.Name)]);
+end;
+
+
+function TfrmNewForm.GenerateHeaderInclude: string;
+begin
+ Result := '';
+end;
+
+function TfrmNewForm.GenerateImageInclude: string;
+begin
+ Result := '';
+ if assigned(Wx_ICON) then
+ if Wx_ICON.Bitmap.Handle <> 0 then
+ Result := '#include "Images/Self_'+ self.wx_Name + '_XPM.xpm"';
+end;
+
+
+function TfrmNewForm.GetIDName: string;
+begin
+ Result := wx_IDName;
+end;
+
+function TfrmNewForm.GetIDValue: longint;
+begin
+ Result := wx_IDValue;
+end;
+
+function TfrmNewForm.GetPropertyList: TStringList;
+begin
+ Result := Wx_PropertyList;
+end;
+
+function TfrmNewForm.GetWxClassName: string;
+begin
+ if trim(Wx_Class) = '' then
+ begin
+ if Wx_DesignerType = dtWxDialog then
+ Wx_Class := 'wxDialog';
+
+ if Wx_DesignerType = dtWxFrame then
+ Wx_Class := 'wxFrame';
+
+ if Wx_DesignerType = dtWxWizard then
+ Wx_Class := 'wxWizard';
+
+ end;
+ Result := wx_Class;
+end;
+
+procedure TfrmNewForm.SetIDName(IDName: string);
+begin
+ wx_IDName := IDName;
+end;
+
+procedure TfrmNewForm.SetIDValue(IDValue: longint);
+begin
+ Wx_IDValue := IDValue;
+end;
+
+procedure TfrmNewForm.SetWxClassName(wxClassName: string);
+begin
+ wx_Class := wxClassName;
+end;
+
+procedure TfrmNewForm.CreateInitVars;
+begin
+ OldCreateOrder := True;
+ Caption := 'New Project';
+ Wx_IDName := 'ID_DIALOG1';
+ Wx_IDValue := 1000;
+ Wx_Class := 'wxDialog';
+ Wx_Center := False;
+ Wx_ToolTips := '';
+ Wx_Hidden := False;
+ Wx_SizeToContents := True;
+ Wx_Icon := TPicture.Create;
+ self.AutoScroll:=false;
+
+ SetDialogProperties();
+
+ FWx_EventList := TStringList.Create;
+ FWx_EventList.add(' EVT_CLOSE: OnClose');
+ FWx_EventList.add(' EVT_CHAR: OnChar');
+ FWx_EventList.add(' EVT_KEY_UP: OnKeyUp');
+ FWx_EventList.add(' EVT_KEY_DOWN: OnKeyDown');
+ FWx_EventList.add(' EVT_ERASE_BACKGROUND: OnEraseBackground');
+ FWx_EventList.add(' EVT_SIZE: OnSize');
+ FWx_EventList.add(' EVT_SET_FOCUS: OnSetFocus');
+ FWx_EventList.add(' EVT_KILL_FOCUS: OnKillFocus');
+ FWx_EventList.add(' EVT_ENTER_WINDOW: OnEnterWindow');
+ FWx_EventList.add(' EVT_LEAVE_WINDOW: OnLeaveWindow');
+ FWx_EventList.add(' EVT_MOTION: OnMouseMotion');
+ FWx_EventList.add(' EVT_LEFT_DOWN: OnLeftDown');
+ FWx_EventList.add(' EVT_LEFT_UP: OnLeftUP');
+ FWx_EventList.add(' EVT_RIGHT_DOWN: OnRightDown');
+ FWx_EventList.add(' EVT_RIGHT_UP: OnRightUP');
+ FWx_EventList.add(' EVT_MIDDLE_DOWN: OnMiddleDown');
+ FWx_EventList.add(' EVT_MIDDLE_UP: OnMiddleUP');
+ FWx_EventList.add(' EVT_LEFT_DCLICK: OnLeftDclick');
+ FWx_EventList.add(' EVT_RIGHT_DCLICK: OnRightDclick');
+ FWx_EventList.add(' EVT_MIDDLE_DCLICK: OnMiddleDclick');
+ FWx_EventList.add(' EVT_PAINT: OnPaint');
+ FWx_EventList.add(' EVT_INIT_DIALOG: OnInitDialog');
+ FWx_EventList.add(' EVT_SCROLLWIN: OnScrollWin');
+ FWx_EventList.add(' EVT_SCROLLWIN_TOP: OnScrollWinTop');
+ FWx_EventList.add(' EVT_SCROLLWIN_BOTTOM: OnScrollWinBottom');
+ FWx_EventList.add(' EVT_SCROLLWIN_LINEUP: OnScrollWinLineUp');
+ FWx_EventList.add(' EVT_SCROLLWIN_LINEDOWN: OnScrollWinLineDown');
+ FWx_EventList.add(' EVT_SCROLLWIN_PAGEUP: OnScrollWinPageUp');
+ FWx_EventList.add(' EVT_SCROLLWIN_PAGEDOWN: OnScrollWinPageDown');
+ FWx_EventList.add(' EVT_SCROLLWIN_THUMBTRACK: OnScrollWinThumbTrack');
+ FWx_EventList.add(' EVT_SCROLLWIN_THUMBRELEASE: OnScrollWinThumbRelease');
+ FWx_EventList.add(' EVT_SYS_C...
[truncated message content] |