On Sunday 23 September 2012 19:39:40 Ivanko B wrote:
> Me need to change between different submodules over a single tabpage
> of the main form on selection in the main menu. How can
> "ttabpage.OnGetSubform" be used in this approach ?
>
Return the wanted submodule class.
Martin
--
On Sunday 23 September 2012 15:36:54 Ivanko B wrote:
> Now compiles :)
>
> PS:
> Inherited menu items are not marked as inherited in MFM-file as it's
> done with fields of TMSESQQuery. Is this approach reliable ?
>
Menu items are no components. The menu component has the inherited flag.
Martin
--
Hallo Ivanko,
Du schriebst am Sun, 23 Sep 2012 22:59:50 +0500:
> while not (pm = nil) do begin
> should be
> while pm <> nil do begin
Well - what's the mathematical / logical difference?
(Do these generate different code, even?)
--
(Weitergabe von Adressdaten, Telefonnummern u.ä. ohn
Instead of
while not (pm = nil) do begin
should be
while pm <> nil do begin
:)
--
Everyone hates slow websites. So do we.
Make your web apps faster with AppDynamics
Download AppDynamics Lite for free today:
ht
Me need to change between different submodules over a single tabpage
of the main form on selection in the main menu. How can
"ttabpage.OnGetSubform" be used in this approach ?
--
Everyone hates slow websites. So do we.
Mak
With the "parenmtmenu" property, it seems working:
//
procedure checkmenureenablebyname(const aitems: tmenuitems);
var
int1: integer;
cf: menuenableccheckfuncty;
pm: tmenuitem;
begin
menuitemssetstate(aitems,false); {disabling all menu items to enable
then conditionally}
procedure checkmenureenablebyname(const aitems: tmenuitems);
var
int1: integer;
s1: string;
begin
menuitemssetstate(aitems,false);
with aitems do begin
{индивидуальные пункты меню}
for int1:= 0 to count-1 do begin
with items[int1] do begin
if mainmenucheckhashlist.find(name,pointer(c
> procedure dosomething(const aitems: tmenuitems);
> var
> int1: integer;
> begin
> with aitems do begin
> for int1:= 0 to count-1 do begin
>with items[int1] do begin
> //do something
> if count > 0 then begin //avoid to create empty submenu list
> dosomething(submenu);
> e
Now compiles :)
PS:
Inherited menu items are not marked as inherited in MFM-file as it's
done with fields of TMSESQQuery. Is this approach reliable ?
--
Everyone hates slow websites. So do we.
Make your web apps faster wi
On 23.09.2012 10:17, Ivanko B wrote:
> It doesn't compile:
Should work on Windows too in git master
4cb04cb58043b2f49fd05b5a8487f58f7244ce8e.
Martin
--
Everyone hates slow websites. So do we.
Make your web apps faster w
It doesn't compile:
//
Free Pascal Compiler version 2.6.0 [2011/12/25] for i386
Copyright (c) 1993-2011 by Florian Klaempfl and others
Target OS: Win32 for i386
Compiling apps\ide\mseide.pas
Compiling .\lib\common\kernel\mseclasses.pas
Compiling .\lib\common\kernel\mseclass
On Saturday 22 September 2012 12:13:49 Ivanko B wrote:
> - create a new menu on PARENT1FO & assign it to the form - is may also
> assigns this menu on PARENT2FO but this assignment is unsteady - the
> only choice in the combo is is "parent1.tmainmenu1" that's the
> inherited menu not the one we can
12 matches
Mail list logo
