Help Urgent

[lailton.webmaster]

it´s my code

Code: Select all  Expand view

#include "fivewin.ch"
static odlg, oFld
Function main()
SET RESOURCES TO "tool.dll"
DEFINE FONT oFonSay NAME "FixedSys"    SIZE 10,10
DEFINE DIALOG oDlg From 00,00 to 400,500 TITLE "MyTools" PIXEL OF oDlg COLORS CLR_WHITE,CLR_WHITE
ACTIVATE DIALOG oDlg CENTERED ON INIT toolbar()
return(Nil)

Function toolbar()
oFld := cFolder():New(odlg:ntop,odlg:nleft,50,odlg:nright+4)
Return

CLASS cFolder
DATA aDialogs
METHOD New(nTop,nLeft,nWidth,nHeight) CONSTRUCTOR
ENDCLASS
METHOD New(nTop,nLeft,nWidth,nHeight) CLASS cFolder
public novo
novo:=TDialog():New(nTop,nLeft,nWidth,nHeight,,,,.F.,NOR(268435456,4194304,1073741824,2097152),,,,oDlg,.T.,,,,,)
novo:Activate(novo:bLClicked,novo:bMoved,novo:bPainted,.F.,, .F. ,,novo:bRClicked,{||.T.},)
Return(self)



1: i wanna that second dialog no move and important that stay inside
of dialog first.



2 - no show border
3 - no show scrollbar

Files to Download

http://rapidshare.com/files/148914390/dialog.rar.html

[Antonio Linares]

Lailton,

Please explain what you want to get.

Could you "paint" what you want to do ?

You could use a TPages control. Please review fwh\samples\TestPage.prg

[lailton.webmaster]

its not

i only remove border, scroll, and no move second dialog

i will go make button insid ssecond dialog to simulation a obar

thanks

[Antonio Linares]

Lailton,

All you want is to have a buttonbar on a dialog ?

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg

   DEFINE DIALOG oDlg

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT BuildBar( oDlg )

return nil

function BuildBar( oDlg )

   local oBar

   DEFINE BUTTONBAR oBar OF oDlg 2007 SIZE 50, 50

   DEFINE BUTTON OF oBar ACTION MsgInfo( "click" )

return nil


[lailton.webmaster]

no antonio, i wanna make a class
to do a button bar

i only wanna remove border, scroll and no permitir lo movie in my code

[lailton.webmaster]

so i wanna make a obar in my class

if u look in my picture i will go see that
while i click they move i dont wanna that is possible.

second i wanna that no show border in my dialog

threee, i dont wanna that show a scroollbar

i think that is it more i do´t know how make it

can u help me ::??? i think that i can change class dialog
of fivewin, more i belive too that my code is ok

thanks so much waiting for u reply..

gracias

[Antonio Linares]

Lailton,

Sorry, I don't understand what you want to create.

Please "paint" it using mspaint or similar, and paste here your image (using www.imageshack.us) so we can get an idea about what you are looking for, thanks

[lailton.webmaster]

Antonio

download http://rapidshare.com/files/148914390/dialog.rar.html

olher para esto y veja meu exe

yo quero que no se move dentro dela primeira dialog, y que no tienha
bordar, y tambiem que no mostre scroll bar

please baixe e olhe el arquibo que vai entender.

gracias

[Antonio Linares]

Es esto lo que quieres ?

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg

   DEFINE DIALOG oDlg From 00,00 to 400,500 TITLE "MyTools" PIXEL OF oDlg COLORS CLR_WHITE,CLR_WHITE

   ACTIVATE DIALOG oDlg CENTERED ON INIT toolbar( oDlg )

return nil

function ToolBar( oDlg1 )

   local oDlg2

   DEFINE DIALOG oDlg2 OF oDlg1 STYLE nOr( WS_CHILD ) FROM 0, 0 TO 50, oDlg1:nWidth PIXEL COLOR CLR_WHITE, CLR_BLUE

   ACTIVATE DIALOG oDlg2 NOWAIT

return nil


[lailton.webmaster]

Isto Antonio, esta isto que yo necessitava

una dialog dentro de otra que no tenha scroollbar y no border
that no move tambien, exatameiente isto

muchas gracias Antonio