Hallo!
Wenn du gerade an deiner Website arbeitest oder dein aktuelles Hosting überdenkst: Wir betreiben mit NetzLiving eine Hosting-Plattform, die speziell auf Performance, Sicherheit und einfache Verwaltung ausgelegt ist.
Wenn du Fragen hast, kannst du dich gerne jederzeit an @Maximilian Rupp wenden
Hinweis:
sieht bei mir genauso aus wie auf deinem Bild 
Einheitlich hellblauer Hintergrund, also ohne Gradient, sonst ident.
Win7-64 ist der Hintergrund einfarbig, Vista-32bit ist der Farbverlauf zu sehen. Der Text kommt bei beiden identisch.
Gruß Volkmar
Unter Win 7 64 bit kein Farbverlauf, wie Volmar schrieb.
Ohne Dll geht es aber überall
<Code>
Def MulDiv(3) ! "KERNEL32","MulDiv"
Declare hpic&[]
var pic& = 0
Proc Fillcontrol ' Parameter Breite,Höhe,Startfarbe,Endfarbe,Richtung (0= Vertikal, > 0 = Horizontal)
Parameters breit%,hoh%,Startcolor&,EndColor&,direction%
Declare r%,g%,b%,red%,green%,blue%,i%,rd%,gd%,bd%
Set("TrueColor", 1)
UsePen 5,0,0
red%= GetRValue(EndColor&) - GetRValue(startcolor&)
green%=GetGValue(EndColor&) - GetGValue(startcolor&)
blue%=GetBValue(EndColor&) - GetBValue(startcolor&)
rd%=GetRValue(startcolor&)
gd%=GetGValue(startcolor&)
bd%=GetBValue(startcolor&)
While (i% < 64)
r%= rd% + MulDiv(i%,red%,64);
g%= gd% + MulDiv(i%,green%,64);
b%= bd% + MulDiv(i%,blue%,64);
UseBrush 1,RGB(r%,g%,b%)
If direction%
Rectangle MulDiv(i%,breit%,64),0 - MulDiv((i%+2),breit%,64),hoh%
Else
Rectangle 0,MulDiv(i%,hoh%,64) - breit%,MulDiv((i%+2),hoh%,64)
Endif
Inc i%
endwhile
EndProc
subproc Create.Gradientstatic 'sc& = startfarbe,ec& = endfarbe,dir% = Richtung 0 = vertikal,1 = horizontal
Parameters hdl&,x%,y%,b%,h%,text1$,text2$,text3$,text4$,text5$,sc&,ec&,tcolor&,dir%
var fsize& = 13
hpic&[pic&] = Create("hNewPic",b%,h%,sc&)
startpaint hpic&[pic&]
fillcontrol(b%,h%,sc&,ec&,dir%)
usefont "MS SANS SERIF",fsize&,0,1,0,0 'fett
textcolor tcolor&,-1
case text1$ <> "":Drawtext 1,1,text1$
case text2$ <> "":Drawtext 1,(fsize&+2),text2$
case text3$ <> "":Drawtext 1,(fsize&+2)*2,text3$
case text4$ <> "":Drawtext 1,(fsize&+2)*3,text4$
case text5$ <> "":Drawtext 1,(fsize&+2)*4,text5$
endpaint
var static&=Create("BITMAP",hdl&,hpic&[pic&],x%,y%)
inc pic&
return static&
EndProc
Proc destroypic 'Muss unbedingt am Programmende aufgerufen werden
whileloop 0,pic&-1
deleteobject hpic&[&loop]
endwhile
endproc
CLS
var st3& = Create("Gradientstatic",%hwnd,200, 10,100,80,"Hallo","sowas geht auch","Bla","Bla","Bla",$FF00,$FFFF,$800000,1)
Waitinput
destroypic()
</code>Danke schonmal!
Gradient ist immer mit drin. Wenn er nicht zu sehen ist, unterschieden sich bestimmte Systemfarben eben nicht. Werde später mal unter Windows 7 testen.
Gradient ist immer mit drin. Wenn er nicht zu sehen ist, unterschieden sich bestimmte Systemfarben eben nicht.
Ach deshalb. Ich dachte, es wären absolute Farbwerte. Aber mit absoluten Farbwerten kann man das Ding dann ja auch so verunstalten, daß keiner das fertige Programm nutzen will
Gruß Volkmar
Eben, meinte ich ja. Wenn ich da Farben einsetze, die mir gefallen, dann sagt der Rest der Welt, das ist kasperbunt und paßt nicht und dann geht das Programm in die Mülltonne.
Gruß Volkmar
Ja, genau.
Geht auch transparenter Hintergrund?
Ich denke mal, da das Controll ja z.B. auch Text scrollen usw. können soll,
wäre echte Transparents (32-Bit mit Alphachannel) nicht angebracht, das
flimmert viel zu doll.
Pseudo-Transparenz, also Hintergrundfarbe des Fensters sollte kein Problem
bedeuten.
Texte scrollen? Ne, solche Spielereien sind eigentlich nicht geplant. 
Mal upgedatet. Jetzt siehts bei mir auch unter Windows 7 ganz anständig aus.
Einige Kontrast-Designs sehen noch nicht so dolle aus, aber die wird man nie mit den Systemfarben schön bekommen. Wer sowas eingestellt hat, wirds schon schön finden, oder ihm ist das Aussehen egal. 
Jetzt sieht es auf beiden Systemen gleich aus.:freu2:
Gruß Volkmar
Bei mir sieht es aus, wie bei Frank, also einfach unmöglich
Schrift unlesbar hell... wo finde ich bitte eine Beschreibung um das zu ändern?
Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!