Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Ciekawa funkcja
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002
Ciekawa funkcja

Znalazłem ciekawą funkcję grzebiąc w API-Guide, tylko chciałbym się was spytać czy u was też ona działa. A oto ta funkcja w niewielkim przykładzie:

'Example by Florian Brucker ()
'
'Paste this code into a form of a new project
'You better don't close this via the
'stop-button of the ide but the x-button of
'the form.
Option Explicit
Private Ramp1(0 To 255, 0 To 2) As Integer
Private Ramp2(0 To 255, 0 To 2) As Integer
Private Declare Function GetDeviceGammaRamp Lib "gdi32" (ByVal hdc As Long, lpv As Any) As Long
Private Declare Function SetDeviceGammaRamp Lib "gdi32" (ByVal hdc As Long, lpv As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Sub Form_Load()
  '----------------------------------------------------------------
  Dim iCtr      As Integer
  Dim lVal      As Long
  '----------------------------------------------------------------
  GetDeviceGammaRamp Me.hdc, Ramp1(0, 0)
      For iCtr = 0 To 255
        lVal = Int2Lng(Ramp1(iCtr, 0))
        Ramp2(iCtr, 0) = Lng2Int(Int2Lng(Ramp1(iCtr, 0)) / 2)
        'Die folgenden Zeilen für ROT auskommentieren:
        Ramp2(iCtr, 1) = Lng2Int(Int2Lng(Ramp1(iCtr, 1)) / 2)
        Ramp2(iCtr, 2) = Lng2Int(Int2Lng(Ramp1(iCtr, 2)) / 2)
      Next iCtr
  SetDeviceGammaRamp Me.hdc, Ramp2(0, 0)
  '----------------------------------------------------------------
End Sub
Private Sub Form_Unload(Cancel As Integer)
  '----------------------------------------------------------------
  SetDeviceGammaRamp Me.hdc, Ramp1(0, 0)
  '----------------------------------------------------------------
End Sub
Public Function Int2Lng(IntVal As Integer) As Long
  '----------------------------------------------------------------
  CopyMemory Int2Lng, IntVal, 2
  '----------------------------------------------------------------
End Function
Public Function Lng2Int(Value As Long) As Integer
  '----------------------------------------------------------------
  CopyMemory Lng2Int, Value, 2
  '----------------------------------------------------------------
End Function



_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

19-01-2003 14:45
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

ehh... czy nikomu sie niekce sprawdzic ?


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

23-01-2003 18:45
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
Wrobel



Typ: neutral
Postów: 44
Zarejestrowany: Sep 2002
Działa

Działa - Chudy - działa i to jak !!! :-)

24-02-2003 07:43
Pokaż profil Wrobel  Wyślij email do Wrobel   Odwiedź stronę Wrobel  
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002

Następnym razem pisz, że to zmienia kontrast !!


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

25-02-2003 23:00
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
VBija




Typ: neutral
Postów: 56
Zarejestrowany: Mar 2003

da się ustawić inne kolory?


_____________________________________________
zobacz moją stronę http://vbija.prv.pl/
Andrzej Wodyński

01-03-2003 21:11
Pokaż profil VBija  Wyślij email do VBija   Odwiedź stronę VBija       2647002
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

Hyba tak ale nie pytaj mnie jak


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

04-03-2003 17:19
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
Garf




Typ: neutral
Postów: 65
Zarejestrowany: Apr 2003

Co do tej funkcji, to mialem gdzies przykladowy program do obslugi korecji gamma wlasnie za jej pomoca. Niestety, funkcja ta nie dziala na wszystkich kartach Muzealne okazy (chyba wszystkie nie posiadajace akceleracji 3D) nie obsluguja jej. Wiem, bo sprawdzalem na 4MB S3 Virge. Aha, nie da sie nia ustawic niczego innego poza kontrastem.


_____________________________________________
Garfield
Member of Blood Brothers Clan (R)

07-04-2003 22:53
Pokaż profil Garf  Wyślij email do Garf   
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

Dzięki za informacje.


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

08-04-2003 14:01
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
busio
busio




Typ: neutral
Postów: 98
Zarejestrowany: Sep 2002

Zmieniło kontrast OK , ale później musiałem ręcznie modyfikować ustawienia karty...

busio

28-04-2003 09:37
Pokaż profil busio  Wyślij email do busio   Odwiedź stronę busio  
Wszystkich odpowiedzi: 8 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1