Inoffizielles deutsches Xbase-Forum

hi, FUNCTION DbCloseAllSafe() local aWorkSpaceList := {}, nWorkList * alle Satzsperren aufheben DbUnlockAll() * alle Scopes und Relationen aufheben, alle Filter löschen aWorkSpaceList := workspacelist() for nWorkList := len(aWorkSpaceList) to 1 step -1 DbSelectArea(aWorkSpaceList[nWorkList]) if DbSc...

hi, Mit "bdVideo" hab ich das Problem, dass im Copy.avi ein pinker Hintergrund dargestellt wird und ich nicht weiß wie ich über das MCI (Media Control Interface) die transparente Farbe angeben kann? Das Copy.AVI hat einen "pink" Hintergrund ... da kann man nichts "einstellen...

hi, habe es schon in den :resize Thread geschrieben das man mit SetWindowLayered(hWnd,.T.) bei :resize des Titlebar "nach oben" dann den Effect erhält das die :drawingArea "nach unten" rutscht man muss also vor dem :resize SetWindowLayered(hWnd,.F.) setzten was wohl auch der &quo...

hi, clipper Lagerverwaltung Die Lagerverwaltung baut diesen Index so auf: index on descend(RICHTUNG + str(KUNDE,6,0) + AUFTRAGNR) to INDEXNAME Wenn ich meine Schnittstelle mit xBase compiliere und linke, findet sie in diesem Index nichts mehr. Die Gegenprobe habe ich auch gemacht: Wenn der gleiche I...

hi, Tja was sage ich noch über die Workstation die Ärger macht ... ERROR LOG of ULLA Ver.x2.108e "C:\YIUIMEX\XPPYIU.EXE" Date: 03.03.08 12:01:10 .. oError:args : oError:canDefault : J oError:canRetry : J oError:canSubstitute: N oError:cargo : NIL oError:description : Fehler beim Lesen oErr...

hi, ich möchte eine reihe von Aktionen ausführen PostAppEvent(xbeP_Activate,,, oCutter:PBRefresh) PostAppEvent(xbeP_Activate,,, oCutter:oPBF8) oCutter:skip(+1) PostAppEvent(xbeP_Activate,,, oCutter:oPBF5) PostAppEvent(xbeP_Activate,,, oCutter:oPBF8) das "Dumme" daran ist das die Aktionen &...

hi, ... verschiedenen Stellen auf dateiöffnende Funktionen gibt. Das habe ich gerade flächendeckend umgestellt. Alle SELECT 0 sind rausgeflogen, alle USE ... sind in DbUseArea(.T., ....) überführt. Die Application ist wohl mit der Zeit "gewachsen" ... :) Statt DbUseArea() währe es doch &qu...

hi, seit dem Hotfix Rollup # 1 ... mit dem Extended Locking für DBFNTX hast du den Hotfix No. 9 drin ? nimm den mal raus. ich habe damit Probs in der geschilderten Art. PDR 5593 tippe. Ich verwende grundsätzlich kein USE (DBF) NEW sondern "feste" SELECT() Bereiche für jede DBF d.h. Kunden ...

hi, Ist bei der Hardware in der letzten Zeit was geändert worden ? Ich hatte im Januar einen "alten" PC dem ich mehr RAM gegeben hatte. Ab dem Zeitpunkt hatte ich DBF Fehler (USE, CLOSE, SKIP etc.) so wie ich das von der v1.5x kannte nur mit dem Unterschied das ich sowas wie CLOSEALL schon...

hi, Mein Problem ist, das ich nicht weiß wie die Zeile aussieht um ein Array als Spalte anzuzeigen. oTBColumn := TBColumn():new( "Heading", FieldBlock("name") ) erzeugt eine Spalte in Tbrowse() für ein Feld einer Datenbank. Wie heißt diese Zeile bei einem Array welches ich mit an...

hi,

MatthiasF hat geschrieben:

Code: Alles auswählen

index on descend(RICHTUNG + str(KUNDE,6,0) + AUFTRAGNR) to INDEXNAME

Dabei kommt ein NTX Index heraus.

Welche Xbase++ Version ?
ich fürchte du bist zum DESCEND() Bug gekommen ...
suche mal im Alaska Forum.

hi, ich bin auf dem Wege zu verstehen, was Du meinst. Tja, dass ist noch der kleine Punkt der OOP, den ich noch verinnerlichen muß. Aber was passiert denn dann mit dem bBlock in der ResizeDialog Methode? Ich kann dem noch nicht so ganz folgen, was mit den anderen Parts, die drunter liegen dann gesch...

hi, Stimmt, wenn ich so überlege, wird ja in dem Codeblock die ursprüngliche Koordinate und die neue Koordinate übergeben. METHOD DialogFenster:create( oParent, oOwner, aPos, aSize, aPresParam, lVisible, lZentriert) DEFAULT lZentriert TO .T. ::resize := {|aAlteGroesse,aNeueGroesse,oObjekt| ::ResizeD...

hi, Ich habe natürlich einen Dialog. JA du hast eine DialogFenster Class und JA du hast eine "rahmen" Class, aber die DialogFenster Class hat schon eine :resize Methode. Statt also die "original" :resize Methode zu verwenden nimmst du eine eigene Class mit der Methode :resize ......

hi, Die Rahmen sind XbpStatics Ich fange außen an und arbeite mich dann nach Innen durch. Vorher weiß ich doch gar nicht wie groß der neue Parent wird. Rahmen Rahmen Rahmen Eingabefelder Texte sowas hab ich mir gedacht ... Ich bin mir nicht sicher ob du mit deiner Class "rahmen" nicht eine...

hi, ... und eben fällt mir ein, dass das MDI und SDI Beispiel doch auch sowas macht oder ? Das war auch meine Ausgangs Basis. cBild := memoread("bild.bmp") Str2Hex(FileStr("c:\bilder\meinbild.jpg")) Bevor ich List & Label verwendet habe hätte ich gesagt "das ist falsch&q...

Hi, Jetzt habe ich aber ein anderes Problem, bei meiner jetzigen Routine, die neue Pos zu berechnen, gibt es nur Kraut und Rüben. METHOD rahmen:resize() // Klasseneigene resize Methode also du hast jetzt eine Class "rahmen" ... FROM XbpStatic ??? LOCAL aParentChild := oParent:childlist() /...

hi, wie verhält sich das im Betrieb? Muß jeder Part getrennt mit einem :lockupdate(.T.) :setsize() :lockupdate(.F.) :invalidateRect() versehen werden, oder reicht das beim Parent, oder beim kompletten Dialogfenster? :lockupdate(.T./.F.) wird für die Presentationspace verwendet d.h. bei einem XbpDial...

hi, man kann doch LOCAL a,b,c a := b := c := 1 ? a,b,c schreiben. Was ist nun wenn ich sowas habe LOCAL dGestern := DATE()-1 LOCAL dHeute := DATE() LOCAL dMorgen := DATE()+1 /* Bedingung dGestern <= dHeute <= dMorgen */ IF ( dGestern <= dHeute).AND.( dHeute <= dMorgen ) kann man das nicht "schö...

hi, ::nRahmenDicke // muß irgendwann einmal richtig berechnet werden Ich habe den Thread gefunden : public.xbase++.gui, 24. April 2007, "active Dialog Border wide" es ging zwar dann in Richtung Fonts, aber von Andreas Gehrs-Pahl kam noch die "GetSystemMetrics" DLLCall wie : #defi...

hi,

Manfred hat geschrieben:

Code: Alles auswählen

 ::xbpDialog:init(oParent, oOwner, aPos, aSize, aPresParam, lVisible)
 ::xbpDialog:drawingarea:scrollbars   := XBP_SCROLLBAR_HORIZ+XBP_SCROLLBAR_VERT

versuche es damit mal.

hi, METHOD DialogFenster:init(oParent, oOwner, aPos, aSize, aPresParam, lVisible, lMaxButton, lVarGroesse) Ich denke es fehlt der :resize Codeblock bei dir den ohne geht es nicht. Wenn du in meinem Beispiel das PostAppEvent rausnimmst hast du keine Scrollbars solange du nicht den Rahmen zum :resize ...

noch ein wenig Code zum spielen ... #include "Xbp.ch" #include "Appevent.ch" #include "Gra.ch" PROCEDURE Appsys RETURN PROCEDURE Main LOCAL nEvent, mp1, mp2, oXbp LOCAL oDlg LOCAL aSize := AppDeskTop():CurrentSize() LOCAL bSize := {0,0} LOCAL oDraw LOCAL oStatic LOCAL a...

hi, Ich denke mal, ich werde bestimmt noch ein paar Fragen haben. Jetzt muß ich aber erstmal durchblicken..... Die Frage ist oft : Was will man :) :resize und Scrollbar wiedersprechen sich eigendlich, den entweder wird mit :resize alles auf die neue Grösse angepasst und dadurch "passt" all...

hi, Ich habe eine Foxpro 2.6 Anwendung(14 Jahre alt) und die besteht aufgrund der Grundkonstruktion, aus einer Vielzahl von kleinen DB-Tabellen(Pro Mandant, pro Jahr 4 Stück) und arbeitet gänzlich ohne Index. Wie man ohne Index auskommt ist mir schleierhaft ... Was nun die gemeinsame Nutzung der DBF...