PB3 => PB4 : Code-Konverter in Mache ...

[ts-soft]

@al90
Könntest Du den Konvertor noch um eine Auswertung der CommandParameter erweitern?
Soure
Destination
Plugin

Würde die Arbeit als IDE-Plugin erleichtern!

Ansonsten gute Arbeit

[al90]

@al90
Könntest Du den Konvertor noch um eine Auswertung der CommandParameter erweitern?
Soure
Destination
Plugin

Würde die Arbeit als IDE-Plugin erleichtern!

Ansonsten gute Arbeit

Meinst Du jetzt die LogAusgabe? Params mit anzeigen usw. ?

Edit:

kommando zurück. Jetzt weis ich was Du meinst. Als CommandLine (CLI)
Prima iddee.
Hab ich mir notiert!

[ts-soft]

Nein, ich meine ProgramParameter()
Ich möchte den Source und die AusgabeDatei, sowie das zu verwendente Plugin auch als Parameter übergeben können, so das die Felder bei vorhandensein von Parametern bereits ausgefüllt sind!

Fehler:
IniReadLong ist eine Funktion von mir, wird leider wie ReadLong behandelt, hier sollte eine Überprüfung auf Zeilenanfang bzw. Leerzeichen davor eingebaut werden.

//Nachtrag: Da haben wir uns überschnitten , genau das meinte ich

[al90]

Fehler:
IniReadLong ist eine Funktion von mir, wird leider wie ReadLong behandelt, hier sollte eine Überprüfung auf Zeilenanfang bzw. Leerzeichen davor eingebaut werden.

Ok auch notiert.

//Nachtrag: Da haben wir uns überschnitten :mrgreen

hehe komisch. gerade stand noch Dein Nachtrag nicht da und als das
Edit-Fenster bei mir kam wars plötzlich da. Ich glaube wir sind heute
beide sehr schnell.

[ts-soft]

MoveWindow kennt er auch noch nicht

[al90]

MoveWindow kennt er auch noch nicht

Ja weil es keinen Ersatzbefehl dafür gibt. Alles wofür es keinen ersatz gibt
habe ich erstmal weggelassen. Falls Dir nochmehr fehlende dinge aufallen
sollte, kannst Du sie gerne hinzufügen und die änderungen hier posten.
Ich übernehme sie dann in der nächsten version. Einfach von
[BEGIN JOB] - [END JOB] aus dem Plugin ausschneiden.
Ist ja alles in ASC gehalten.

[ts-soft]

MoveWindow = ResizeWindow, mal schauen, aber das kriegste wohl auch hin

[al90]

So habs jetzt geändert. In ResizeWindow war auch noch ein Fehler drin.
Hier jetzt die fehlerfreie variante. Einfach unten anhängen und nicht
vergessen den alten ResizeWindow-Auftrag weiter oben zu entfernen.

Code: Alles auswählen

[BEGIN JOB]
OriginalName = ResizeWindow
ReplacedName = ResizeWindow
[ADD PARAMETER]
Position = 1
[FROM COMMAND]
CommandName = OpenWindow
Position = 1
[ALLOW #PB_ANY]
Position = 1
[END JOB]

[BEGIN JOB]
OriginalName = ResizeWindow
ReplacedName = ResizeWindow
[ADD PARAMETER]
Position = 2
[CONSTANT VALUE]
Value = #PB_Ignore
[END JOB]

[BEGIN JOB]
OriginalName = ResizeWindow
ReplacedName = ResizeWindow
[ADD PARAMETER]
Position = 3
[CONSTANT VALUE]
Value = #PB_Ignore
[END JOB]

[BEGIN JOB]
OriginalName = MoveWindow
ReplacedName = MoveWindow
[ADD PARAMETER]
Position = 1
[FROM COMMAND]
CommandName = OpenWindow
Position = 1
[ALLOW #PB_ANY]
Position = 1
[END JOB]

[BEGIN JOB]
OriginalName = MoveWindow
ReplacedName = MoveWindow
[ADD PARAMETER]
Position = 4
[CONSTANT VALUE]
Value = #PB_Ignore
[END JOB]

[BEGIN JOB]
OriginalName = MoveWindow
ReplacedName = ResizeWindow
[ADD PARAMETER]
Position = 5
[CONSTANT VALUE]
Value = #PB_Ignore
[END JOB]

Und hier noch schnell das MoveWindow/ResizeWindow example aus dem
alten Doc zum schnellen ausprobieren. Müsste aber alles stimmen denke ich.

Code: Alles auswählen

;
; ------------------------------------------------------------
;
;   PureBasic - Window example file
;
;    (c) 2001 - Fantaisie Software
;
; ------------------------------------------------------------
;

;
; Open a window, and do some stuff with it...
;

If OpenWindow(0, 100, 200, 195, 260, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget, "PureBasic Window")

  MessageRequester("Information", "Click to move the Window", 0)
  MoveWindow(200,200)   ; Move the window to the coordinate 200,200
  
  MessageRequester("Information", "Click to resize the Window", 0)
  ResizeWindow(320,200) ; Resize the window to 320,200
  
  ;
  ; This is the 'event loop'. All the user actions are processed here.
  ; It's very easy to understand: when an action occurs, the EventID
  ; isn't 0 and we just have to see what have happened...
  ;

  Repeat
    EventID.l = WaitWindowEvent()

    If EventID = #PB_Event_CloseWindow  ; If the user has pressed on the close button
      Quit = 1
    EndIf

  Until Quit = 1
  
EndIf

End   ; All the opened windows are closed automatically by PureBasic

[DeltaG]

Fehler?

Code: Alles auswählen

[b]Procedure[/b] DimBackground()

wird zu

Code: Alles auswählen

[b]Procedure Global[/b] DimBackground()

DeltaG

[tomijan]

@al90
Dein programm ist sehr hilfreich: in eine halbe stunde bearbeitete ich einen 8000-linien programm.
Danke!
tom