[*]Profan

- Seite 6 -

RGH

[quote:068cbf0a75=Paul Niemand]Good idea!
Aber wann kommt mal wieder eine neue Freeware-Version heraus?
XProfan 10 lite - mit eingeschränkten Funktionsumfang... aber funktionstüchtigen Compiler/Linker.
XProfan 10 share klingt nämlich doof - meiner Meinung nach.[/quote:068cbf0a75]
In der Hinsicht ist bezüglich XProfan 10 in der Tat einiges geplant, aber laß uns doch erst mal XProfan 10 fertigstellen!

[quote:068cbf0a75]Auch die Profan-HP könnte mal aktualisiert werden, auch optisch könnte sie mal frisiert werden.[/quote:068cbf0a75]
Auch da ist Einiges in Planung und Arbeit, aber eines nach dem Anderen ....

[quote:068cbf0a75]Was wird aus der Helfer-Rubrik? Die steht schon mindestens seit Profan7 leer.[/quote:068cbf0a75]
Ja, das ist ein altes Relikt. Ich hatte da mal was geplant, was sich erübrigt hat. Ich sollte die Rubrik entfernen. Ich hoffe, bei der nächsten Anpassung daran zu denken.

Gruß
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

03.04.2006 ▲

Jac
de
Lad

Hm, ihr habt wie immer recht. Ich sollte mir endlich eine stärkere Brille zulegen oder meine Sonnenbrille abnehmen...

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

03.04.2006 ▲

Natives durchsuchen von arrays mit Rückgabe der Eintragsnummer (afindfirst, afindnext) könnte viele XProfanprogramme deutlich schneller ablaufen lassen, wenn dann ein sort und Arraywerteumkehren auch noch ins Paket geschnürt wird. *duuuck*

Ich liebe diesen Thread.

03.04.2006 ▲

RGH

[quote:08f2af6d13=Rolf Koch]Ich unterstreiche nochmals Franks Wunsch, weil noch keine Antwort kam:
[quote:08f2af6d13] Für XProfan 10 bitte eine Erweiterung der Grafikformate... Nur BMP und RLE ist wirklich etwas mager. Wenn du die OLE-Funktionen benutzt, kannst du schon eine ganze Menge Grafikformate zumindest laden[/quote:08f2af6d13]
Ich meine, es sollte sogar ein MUSS sein, denn die platzsparenden und vielfach vorhandnen Formate sind heutzutage sehr wichtig.[/quote:08f2af6d13]
In der nächsten Subscriptionsversion wird Create

(hPic, -1, DateiName$) die OleLoadPicture-Methode verwenden und dann alle relevanten Dateiformate laden können.
Hier schon mal ein Testprogramm (die LoadFile$-Zeile habe ich aus Andreas Ole-Demo geklaut):
Kompilieren Markieren Separieren

!
Declare Picture$, hPic&
Window 0,0-%maxx,%Maxy
cls rgb(192,192,192)

Repeat

    Picture$ = @LoadFile$("ÖFFNE",
    "alle unterstützten Formate |*.dib;*.bmp;*.rle;*.jpe;*.jpeg;*.jpg;*.gif;*.ico;*.cur;*.emf;*.wmf|"
    + "Bitmap (bmp,rle,dib)|*.bmp;*.rle;*.dib|Jpeg (jpg,jpe,jpeg)|*.jpg;*.jpe;*.jpeg|Gif (gif)|*.gif|"
    + "Enhanced Metafile (emf)|*.emf|Metafile (wmf)|*.wmf|Icons (Ico)|*.ico|Cursor (cur)|*.cur")

    If Picture$ <> ""

        hPic& = Create("hPic", -1, Picture$)
        DrawPic hPic&, 10, 10; 0
        DrawSizedPic hPic&, 500, 500 - 100, 100; 0

    EndIf

    WaitInput

Until Picture$ = ""

End

Gruß
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

04.04.2006 ▲

Rolf
Koch

GENIAL! Danke Roland! DANKE!

04.04.2006 ▲

Waldemar
Opfer

Hi,
Vielleicht

@Create(ListView,N,S,X1,X2,Y1,Y2)

oder auch

@Create(Grid,N,S,X1,X2,Y1,Y2)

Gruß

XProfan11,Win_XP

RGH

[quote:1064f0a17d=Waldemar Opfer]Hi,
Vielleicht

@Create(ListView,N,S,X1,X2,Y1,Y2)

oder auch

@Create(Grid,N,S,X1,X2,Y1,Y2)

Gruß[/quote:1064f0a17d]
Create(Grid, ....) ist in der Tat geplant ...

Gruß
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Jac
de
Lad

Hallo Roland!

Da hier Wünsche geäußert werden möchte ich mal was ansprechen, auf das du leider noch nicht geantwortet hast (oder antworten konntest...):

Ich wünsche mir, dass es einen Befehl gibt, mit dem es möglich ist eine Profan-Datei, die in einen Bereich geladen wurde mit einem Befehl auszuführen. Dabei stelle ich mir vor, dass man angeben kann, welche Datei als Runtime verwendet wird. Hintergrund ist, dass ich die Plugins komprimieren und verschlüsseln will und nicht immer temporäre Dateien irgendwo ablagern will (die bei einem Programmabsturz übrig bleiben...)!

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Nico
Madysa

Ich verspüre den Drang, den Wunsch zu äußern, dass gewisse Deinitialisierungsbefehle automatisch ausgeführt werden. Genau gesagt:
Einfache Variablen werden ja bei Programmende bereits undeklariert. Wäre es da nicht möglich, dass so auch Bereiche/Objekte/Strukturen disposed werden, bzw. Fonts, hPics, etc. automatisch gelöscht werden.
Es würde mir einiges an Nerven sparen, wenn ich das(gemeint ist sparen) auch mit DeleteObject, Dispose & Co. machen könnte

Nico Madysa

Nico
Madysa

Noch was:
Wäre so etwas ähnliches möglich?
Create(MemBMP , X , Y)
X , Y : Größe der Memory-Bitmap
Ergebnis: Handle der Memory-Bitmap
Dieser Befehl erzeugt eine Memory-Bitmap (ähnlich der Gewöhnlichen).
Also, falls man eine frei zugängliche Prozedur/Funktion (z.B. Baby-Klappe) schreibt, die die/eine Memory-Bitmap benötigt, ohne dass eine andere gestört wird.
Der Syntax kann übrigens gerne geändert werden

Nico Madysa

Waldemar
Opfer

Eventuell kann man am folgendem Problemchen noch etwas drehen:
[quote:79a60b1314]
Hallo an Alle
Die Tasten F1 und ESC funktionieren auch auf dem Dialog-Fenster
Andere Tasten schlafen still vor sich hin...
-----------------------------------------------
Def GetKeyState(1) !USER32,GetKeyState
DECLARE EE%
EE%=0
DECLARE win01&,txt%
------------------------
WINDOW 0,0-%MaxX,%MaxY
win01&=CREATE(WINDOW,%HWnd,,200,200,200,150)
SetActiveWindow(win01&)
WHILENOT EE%
WAITINPUT
Case GetKeyState(112):txt%=CREATE(TEXT,win01&,Taste F1,50,50,100,20)
Case GetKeyState(27):EE%=1
WEND
[/quote:79a60b1314]
Wäre vorteilhaft ,zum Beispiel ,wenn man einen Taschenrechner mit Tastaturbedienung proggen möchte.

Gruß

XProfan11,Win_XP

17.04.2006 ▲

Jac
de
Lad

Der letzte Post sollte vielleicht in einen eigenen Thread...

Aber zur Antwort: Du solltest vielleicht lieber %ScanKey und nicht Waitinput gefolgt von GetKeystate nehmen...

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

17.04.2006 ▲