Xojo Conferences
XDCMay2019MiamiUSA

Drucken im Querformat... (Real Studio network user group Deutschland Mailinglist archive)

Back to the thread list
Previous thread: Fenster.MinWidth etc
Next thread: Neues Verhalten in RB4.5


AW: RB Programme unter Jaguar   -   gerhard queisser
  Drucken im Querformat...   -   Yves Seiler
   Re: Drucken im Querformat...   -   Christian Schmitz
    Re: Drucken im Querformat...   -   Yves Seiler
     Re: Drucken im Querformat...   -   Christian Schmitz
     Re: Drucken im Querformat...   -   Stephan Stoske
      Re: Drucken im Querformat...   -   Yves Seiler

Drucken im Querformat...
Date: 05.08.02 16:13 (Mon, 5 Aug 2002 17:13:48 +0200)
From: Yves Seiler
hi zusammen
Wie bring ich RB bzw. meinem Programm bei, im Querformat zu drucken,
ohne das der User das über den PageSetupDialog einstellen muss?

Oder: wie dreh ich eine Grafik um 90° ?

merci im voraus
yves

- - - - - - - - - -
For list commands, send "Help" in the body of a message to
<<email address removed>>

Re: Drucken im Querformat...
Date: 05.08.02 17:28 (Mon, 5 Aug 2002 18:28:49 +0200)
From: Christian Schmitz
> hi zusammen
> Wie bring ich RB bzw. meinem Programm bei, im Querformat zu drucken,
> ohne das der User das über den PageSetupDialog einstellen muss?

Ich wüsste nicht, daß dies geht.

> Oder: wie dreh ich eine Grafik um 90° ?

picture.rotate90
natürlich mit meinem Plugin ;-)

oder selber Pixel für Pixel...

Mfg
Christian

--
A

Re: Drucken im Querformat...
Date: 05.08.02 18:08 (Mon, 5 Aug 2002 19:08:45 +0200)
From: Yves Seiler
sag mal, wieviel kostet denn dein PlugIn? =)
Irgendwelche Ansätze, wie ich das selbst coden kann? Im moment fehlt mir
da irgendwie der mathematische input...

cu yves


Am Montag den, 5. August 2002, um 18:28, schrieb Christian Schmitz:

>> hi zusammen
>> Wie bring ich RB bzw. meinem Programm bei, im Querformat zu drucken,
>> ohne das der User das über den PageSetupDialog einstellen muss?
>
> Ich wüsste nicht, daß dies geht.
>
>> Oder: wie dreh ich eine Grafik um 90° ?
>
> picture.rotate90
> natürlich mit meinem Plugin ;-)
>
> oder selber Pixel für Pixel...
>
> Mfg
> Christian
>
> --
> A thousand functions in one Realbasic plugin. The MBS Plugin.
> (currently 45 plugin parts, over 1600 functions)
>
> <http://www.monkeybreadsoftware.de/realbasic/plugins.html>
> - - - - - - - - - -
> For list commands, send "Help" in the body of a message to
> <<email address removed>>

- - - - - - - - - -
For list commands, send "Help" in the body of a message to
<<email address removed>>

Re: Drucken im Querformat...
Date: 05.08.02 19:09 (Mon, 5 Aug 2002 20:09:08 +0200)
From: Christian Schmitz
> sag mal, wieviel kostet denn dein PlugIn? =)

Siehe Webseite. für Privat/Freeware/Shareware 40 Euro.

odfer 89 cent pro Teilplugin.
Oder 2,5 cent pro Funktion...

Mfg
Christian

-

Re: Drucken im Querformat...
Date: 05.08.02 20:10 (Mon, 5 Aug 2002 21:10:58 +0200)
From: Stephan Stoske

Hi,

> Irgendwelche Ansätze, wie ich das selbst coden kann? Im moment fehlt mir
> da irgendwie der mathematische input...

Das Bild einfach pixelweise von A nach B kopieren
und dabei die Koordinaten vertauschen. Aus dem Kopf...

Dim W, H As Integer
Dim Zface, Qface As RGBSurface
Dim Zielbild As Picture

W = Quellbild.width - 1
H = Quellbild.height - 1

Zielbild = newPicture( H + 1, W + 1, 32 )
Quellface = Quellbild.RGBSurface
Zielface = Zielbild.RGBSurface

For X = 0 to W
For Y = 0 to H
Zielface.pixel( Y, X ) = Quellface.pixel( X, Y )
Next
Next

Selbst bei PAL-Größe geht das blitzartig.

Grüße, Stephan

-------------------------------------------------------------------------
stoske & bertling - visuelle kommunikation
lohmühler berg 30 - 42553 velbert - fon 02053/504464 - fax 02053/923630
<email address removed> - www.stoske-bertling.de - ftp.stoske-bertling.de

- - - - - - - - - -
For list commands, send "Help" in the body of a message to
<<email address removed>>

Re: Drucken im Querformat...
Date: 05.08.02 21:24 (Mon, 5 Aug 2002 22:24:01 +0200)
From: Yves Seiler
danke!!!

cu yves

Am Montag den, 5. August 2002, um 21:10, schrieb Stephan Stoske:

>
> Hi,
>
>> Irgendwelche Ansätze, wie ich das selbst coden kann? Im moment fehlt
>> mir
>> da irgendwie der mathematische input...
>
> Das Bild einfach pixelweise von A nach B kopieren
> und dabei die Koordinaten vertauschen. Aus dem Kopf...
>
> Dim W, H As Integer
> Dim Zface, Qface As RGBSurface
> Dim Zielbild As Picture
>
> W = Quellbild.width - 1
> H = Quellbild.height - 1
>
> Zielbild = newPicture( H + 1, W + 1, 32 )
> Quellface = Quellbild.RGBSurface
> Zielface = Zielbild.RGBSurface
>
> For X = 0 to W
> For Y = 0 to H
> Zielface.pixel( Y, X ) = Quellface.pixel( X, Y )
> Next
> Next
>
> Selbst bei PAL-Größe geht das blitzartig.
>
> Grüße, Stephan
>
> -------------------------------------------------------------------------
> stoske & bertling - visuelle kommunikation
> lohmühler berg 30 - 42553 velbert - fon 02053/504464 - fax 02053/923630
> <email address removed> - www.stoske-bertling.de - ftp.stoske-
> bertling.de
>
> - - - - - - - - - -
> For list commands, send "Help" in the body of a message to
> <<email address removed>>

- - - - - - - - - -
For list commands, send "Help" in the body of a message to
<<email address removed>>