1 Konuyu açan msayin

  • msayin
  • Uzman Üye
  • Offline
  • Yer: İstanbul
  • Kayıt Tarihi: 26.04.2010
  • İleti: 66

Konu: Shell.Explorer.2

Merhabalar

Shell.Explorer.2 kullandığımda visible .f. ve tekrar .t. yapıldığında yüklenmiş sayfayı tekrar yüklüyor bunu engellemenin bir yolu var mı?

Teşekkürler

2 Cevaplayan msayin

  • msayin
  • Uzman Üye
  • Offline
  • Yer: İstanbul
  • Kayıt Tarihi: 26.04.2010
  • İleti: 66

Re: Shell.Explorer.2

Tekrar merhabalar

biraz kastıktan sonra sorunum kısmen çözüldü ama bunu html kısmında halletmek zorunda kaldım

sorunum detaylı şekilde şöyle;

shell.explorer olecontrol bir pageframe içinde kullanılıyor ve activepage değiştiğinde, body onunload ve body onload events tetikleniyor aynı durum shell.explorer visible değiştiğinde de geçerli aşağıdaki örnek kodda harita üzerine mouse click le eklediğim etiketler page2 tıklandığında kayboluyor html kısmını kendimiz yazdığımızda onunload ve onload events kontrolleri yaparak sorunu çözüyoruz ancak web üzerinde bizim kontrolümüzde olmayan sayfalarda sıkıntı oluyor bu bir Bug mıdır? yoksa hayatın doğal akışı mıdır? smile) nedir ne değildir o kadar araştırdım hiç bir şey bulamadım sad

Visual Fox Pro
PUBLIC oform1

 

oform1=NEWOBJECT("form1")

oform1.Show

RETURN

 

DEFINE CLASS form1 AS form

 

 

    Top = 0

    Left = 0

    Height = 400

    Width = 600

    DoCreate = .T.

    Caption = "Form1"

    AllowOutput = .F.

    htmlfile = ""

    Name = "Form1"

 

 

    ADD OBJECT pageframe1 AS pageframe WITH ;

        ErasePage = .T., ;

        PageCount = 2, ;

        Anchor = 15, ;

        Top = 0, ;

        Left = 0, ;

        Width = 600, ;

        Height = 400, ;

        Name = "Pageframe1", ;

        Page1.Caption = "Page1", ;

        Page1.Name = "Page1", ;

        Page2.Caption = "Page2", ;

        Page2.Name = "Page2"

 

    PROCEDURE Init

 

        this.pageframe1.page1.AddObject('brw','olecontrol','Shell.Explorer')

        with this.pageframe1.page1.brw

            .Top = 0

            .Left = 0

            .Height = 368

            .Width = 595

            .Anchor = 15

            .Visible = .t.

        endwith

 

        text to htmlstring noshow

            <html>

            <head>

            <style type="text/css">

            <!--

            html{height: 100%;}

            body{height: 100%; margin:0px 0px 0px 0px;}

            -->

            </style>

            <script src="http://maps.google.com/maps?file=api&v=2&key=xkey" type="text/javascript"></script>

            <script type="text/javascript">

            //<![CDATA[

            function loadmap() {

                if (GBrowserIsCompatible()) {

                    var map = new GMap2(document.getElementById("map"));

                    map.enableScrollWheelZoom();

                    map.enableGoogleBar();

                    map.setUIToDefault();

                    map.setCenter(new GLatLng(39.249270,35.397949), 6);

                    var markerOpts = {};

                    markerOpts.title="Marker Title";

                    var marker = new GMarker(new GLatLng(39.249270,35.397949),markerOpts);

                    marker.bindInfoWindowHtml("Html Text");

                    map.addOverlay(marker);

 

                    GEvent.addListener(map, "click", function(marker, point) {

                          if (!marker) {

                            var markerOpts = {};

                            markerOpts.title="Yeni Etiket";

                            markerOpts.draggable=true;

                            var newmark=new  GMarker(point,markerOpts)

                            map.addOverlay(newmark);

                            newmark.bindInfoWindowHtml("Yeni Etiket<br>Html Text");

                         }

                    });

 

                }

            }

            //]]>

            </script>

            </head>

            <body onload="loadmap()" onunload="GUnload()">

            <div id="map" style="width:100%; height:100%;"></div>

            </body>

            </html>

        endtext

 

        this.htmlfile=sys(2023)+"\"+sys(2015)+".html"

        strtofile(htmlstring,this.htmlfile)

        this.pageframe1.page1.brw.navigate("file://"+strtran(this.htmlfile,"\","/"))

    ENDPROC

 

 

    PROCEDURE Destroy

        erase (this.htmlfile)

    ENDPROC

 

 

ENDDEFINE