Konu: Visual Foxpro Startup.PRG ayarları hk.
Öncelikle herkese merhabalar;
Uzun süredir Çetin Üstad 'ın forumda yazdığı startup programını kullanıyorum. Ancak Startup.PRG dosyasında Command Window hatasını aldığımdan, o kısmı iptal etmiştim. Biraz uğraşiyim dedim ama sonuç alamadım.
Baslat.PRg dosyası aşağıda; Arşivden aramak istemeyen, yeni arkadaşlar için için ne yaptığımı hatırlatiyim :
1- VFPprogramının kurulu olduğu klasörde ("C:\Program Files\Microsoft Visual FoxPro 9"); Projelerim.DBF yi oluşturdum.
Create Table Projelerim (Caption C(50), Path C(250) ) ;
Modify Command Baslat.Prg
SET CENTURY ON
SET DATE BRITISH LONG
*!* Çetin Başöz Code
USE HOME()+'Projelerim'
BROWSE
SET DEFAULT TO (TRIM(Projelerim.path))
IF Len(Alltrim(Projelerim.Caption) ) < 1
MyPath = Set("DEFAULT") + " - " + Sys(2003)
_screen.Caption = MyPath
ELSE
_screen.Caption = TRIM(Projelerim.Caption)
ENDIF
_screen.BackColor = Rgb(255,128,0)
USE IN 'Projelerim'
*!* VFP Araç ve Pencere ayarları
ACTIVATE WINDOW Document
DOCK WINDOW Document POSITION -1
SIZE WINDOW 'Document' TO 50,30
MOVE WINDOW 'Document' TO 0, 0
DOCK WINDOW Document POSITION 1
ACTIVATE WINDOW Properties
DOCK WINDOW Properties POSITION -1
SIZE WINDOW 'Properties' TO 60,60
MOVE WINDOW 'Properties' TO 0 , (Sysmetric(24) + Sysmetric(27))-2
DOCK WINDOW Properties POSITION 2
SET
DOCK WINDOW View POSITION -1
SIZE WINDOW 'View' TO 20,60
MOVE WINDOW 'View' TO 10 , 155
MOVE WINDOW 'View' TO Sysmetric(28) + Sysmetric(33) , (Sysmetric(24) + Sysmetric(27))-2
DOCK WINDOW View POSITION 3 WINDOW Properties
ACTIVATE WINDOW Command
WDOCKABLE("Command", .T.)
DOCK WINDOW Command POSITION 3
SIZE WINDOW Command TO 10, 90
Sorunuma gelince
ACTIVATE WINDOW Command
WDOCKABLE("Command", .T.)
DOCK WINDOW Command POSITION 3
SIZE WINDOW Command TO 10, 90
satırında, "Window 'COMMAND' has not been defined" hatasını alıyorum.
İşin enterasan yönüne gelince :
Modifiy Command ile kod penceresi oluşturup hata veren satırları yazınca gayet güzel çalışıyor. "COMMAND WINDOW" bir sistem penceresi olduğundan dolayıda zaten tanımlanamıyor. Bu durumda VFP ilk başladığında command window u nasıl ACTIVATE ile aktif hale getirip docking ayarlarını yapabilirim?
Yardımlar için şimdiden teşekkür ederim...
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır. Türk Atasözü
