Forum | | | | | | - Page 1 - |
| 
Jac
de
Lad | Looks you time whom subesquent Screenshot on, is the one Windows XP-trouble? or liegts to profane? Can somehow to fix (Backgroundcolor for buttons etc. transparent or so...
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 | 01/01/06 ▲ |
| | |
| | | | | | - Page 2 - |
| | 
Uwe
''Pascal''
Niemeier | Hello Jac!
would be not plainer, at TabControl simply whom XP-Style abzuschalten?
SeeYou
Pascal |
| | | | | | |
| |
Jac
de
Lad | @Pascal: Well, the is correct, but I wished whom Style Yes keep, sees otherwise stupid from...
@Frank: example matching!
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 | 08/25/06 ▲ |
| | |
| |  | | means if I on Tabcontrols Text present must take I usually DrawText. so with the the Redraw works use I the Fastmode and respond hold self the Repaint. |
| | | | | | |
| |
Jac
de
Lad | here the View source:
CompileMarkSeparationDef Setactivetab(2) Sendmessage(&(1),$130C,&(2),0)
subproc Create.Trackbar
Parameters hwnd&,style&,x%,y%,dx%,dy%
Style:
0=horizontal,2=vertikal
$10=Keine Ticks,0=Ticks
Return Control("msctls_trackbar32","",$54010020+style&,x%,y%,dx%,dy%,hwnd&,1003,%hInstance,$020000)
endproc
proc SetTrackPos
Parameters handle&,pos%
SendMessage(handle&,$405,1,pos%)
endproc
proc SetTrackRange
Parameters handle&,min%,max%
SendMessage(handle&,$406,1,min% | (max%*65536))
endproc
proc TC
declare at%
at%=GetActiveTab(tab&)
ShowWindow(dm&,Equ(at%,0))
ShowWindow(sp&,Equ(at%,0))
ShowWindow(pt&,Equ(at%,1))
ShowWindow(pg&,Equ(at%,1))
ShowWindow(tm&,Equ(at%,0))
ShowWindow(it&,Equ(at%,0))
ShowWindow(zv&,Equ(at%,1))
ShowWindow(ign&,Equ(at%,0))
ShowWindow(tar&,Equ(at%,1))
ShowWindow(tars&,Equ(at%,1))
ShowWindow(ind&,Equ(at%,1))
ShowWindow(idx&,Equ(at%,1))
ShowWindow(date&,Equ(at%,1))
ShowWindow(dt&,Equ(at%,1))
ShowWindow(dtf&,Equ(at%,1))
ShowWindow(rec&,Equ(at%,2))
ShowWindow(comp&,Equ(at%,2))
ShowWindow(compt&,Equ(at%,2))
ShowWindow(compo&,Equ(at%,2))
ShowWindow(mark&,Equ(at%,0))
ShowWindow(mask&,Equ(at%,0))
ShowWindow(erase&,Equ(at%,1))
ShowWindow(bsize&,Equ(at%,1))
ShowWindow(crc&,Equ(at%,1))
ShowWindow(sort&,Equ(at%,0))
ShowWindow(idc&,Equ(at%,1))
ShowWindow(idt&,Equ(at%,1))
endproc
proc options
declare dm&,idt&,idc&,sp&,pt&,pg&,tm&,it&,zv&,tab&,p$,dlg&,ign&,tar&,tars&,ind&,idx&,date&,dt&,dtf&,rec&,comp&,compt&,compo&,mark&,mask&,erase&,bsize&,crc&,ok&,std&,abb&,sort&
EnableWindow %HWnd,0
dlg&=Create("Dialog",%HWnd,"Einstellungen",0,0,0,0)
ShowWindow(dlg&,0)
SetWindowPos dlg&=(%MaxX-424)/2,((%MaxY-404)/2)-424,404
tab&=Create("TabCtrl",dlg&,"Anzeige",8,8,400,324)
InsertTab(tab&,1,"Kopieroptionen")
InsertTab(tab&,2,"Rekompression")
dm&=Create("Text",dlg&,"Dateimaske:",16,48,96,18)
mask&=Create("Edit",dlg&,"Dateien",160,44,240,24)
it&=Create("Text",dlg&,"Ignorierte Laufwerke (z.B. AbXyz):",16,80,240,18)
ign&=Create("Edit",dlg&,"AbXyz",240,76,160,24)
mark&=Create("Checkbox",dlg&,"Neue Dateien automatisch markieren",16,108,280,18)
SetCheck mark&,1
sp&=Create("Text",dlg&,"Sortierreihenfolge:",16,136,240,18)
sort&=Create("Choicebox",dlg&,0,132,132,260,240)
AddString(sort&,"Nach Dateiname (mit Pfad)")
AddString(sort&,"Nach Dateiname (ohne Pfad)")
AddString(sort&,"Nach Datum (neuste zuerst)")
AddString(sort&,"Nach Datum (älteste zuerst)")
AddString(sort&,"Nach Größe (kleinste zuerst)")
AddString(sort&,"Nach Größe (größte zuerst)")
AddString(sort&,"Nach Dateiendung")
AddString(sort&,"Nicht übertragene zuerst (+Pfad)")
AddString(sort&,"Nicht übertragene zuerst (+Name)")
sendmessage(sort&,$14E,4,0)
zv&=Create("Text",dlg&,"Zielverzeichnis:",16,48,240,18)
tars&=Create("Button",dlg&,"Suchen",160,44,80,24)
tar&=Create("Edit",dlg&,"C:",240,44,160,24)
date&=Create("CheckBox",dlg&,"Unterverzeichnis mit aktuellem Datum anlegen:",16,76,320,18)
SetCheck date&,1
dtf&=Create("Text",dlg&,"Datumsformat:",16,108,240,18)
EnableWindow dtf&,1
dt&=Create("ChoiceBox",dlg&,0,160,104,240,160)
whileloop 0,5
case Neq(&Loop,4):AddString(dt&,Date$(&Loop))
wend
sendmessage(dt&,$14E,1,0)
EnableWindow dt&,1
ind&=Create("Checkbox",dlg&,"Dateien indizieren, Index:",16,140,156,18)
SetCheck ind&,1
idx&=Create("Edit",dlg&,"44",176,136,64,24)
SetStyle idx&,$50012080
EnableWindow idx&,1
idt&=Create("Text",dlg&,"Stellen:",292,140,64,18)
EnableWindow idt&,1
idc&=Create("Edit",dlg&,"6",336,136,64,24)
EnableWindow idc&,1
SetStyle idc&,$50012080
erase&=Create("Checkbox",dlg&,"Dateien nach Übertragung löschen",16,168,240,18)
SetCheck erase&,1
pt&=Create("Text",dlg&,"Genauere Fortschrittsanzeige Schnellere Übertragung",16,192,382,18)
bsize&=create("Trackbar",tab&,0,8,202,382,44)
SetTrackRange bsize&,10,20
SetTrackPos bsize&,15
pg&=Create("Text",dlg&,"Schnellere CRC-Erstellung Genauere Erkennung",16,260,382,18)
crc&=create("Trackbar",tab&,0,8,270,382,44)
SetTrackRange crc&,10,17
SetTrackPos crc&,12
rec&=Create("Checkbox",dlg&,"Dateien neu komprimieren",16,48,240,18)
SetCheck rec&,1
compt&=Create("Text",dlg&,"Kompression:",16,72,160,18)
EnableWindow compt&,1
comp&=Create("Edit",dlg&,"8",232,68,40,24)
EnableWindow comp&,1
compo&=Create("Checkbox",dlg&,"Andere Bildformate in JPEG konvertieren",16,96,360,18)
SetCheck compo&,1
EnableWindow compo&,1
ok&=Create("Button",dlg&,"OK",8,340,96,24)
abb&=Create("Button",dlg&,"Abbrechen",112,340,96,24)
std&=Create("Button",dlg&,"Standard",296,340,96,24)
SetActiveTab(tab&,1)
TC
SetActiveTab(tab&,0)
TC
ShowWindow(dlg&,1)
while 1
EnableWindow dtf&,GetCheck(date&)
EnableWindow dt&,GetCheck(date&)
EnableWindow idx&,GetCheck(ind&)
EnableWindow idt&,GetCheck(ind&)
EnableWindow idc&,GetCheck(ind&)
EnableWindow compt&,GetCheck(rec&)
EnableWindow comp&,GetCheck(rec&)
EnableWindow compo&,GetCheck(rec&)
case TabChanged(tab&):TC
waitinput
if Clicked(std&)
sendmessage(dt&,$14E,0,0)
sendmessage(sort&,$14E,0,0)
SetText mask&,""
SetText ign&,""
SetCheck date&,0
SetCheck ind&,0
SetCheck erase&,0
SetCheck rec&,0
SetText comp&,"8"
SetCheck compo&,0
SetCheck mark&,1
SetTrackPos bsize&,20
SetTrackPos crc&,17
SetText idc&,"6"
elseif Clicked(tars&)
p$=ChooseDir$("Zielverzeichnis wählen")
casenot %IOResult:SetText tar&,p$
elseif Clicked(ok&)
Break
elseif Or(Clicked(abb&),Equ(%Key,2))
Break
endif
wend
DestroyWindow(dlg&)
EnableWindow %HWnd,1
endproc
cls
UseFont "Sagoe UI",15,0,0,0,0
Setdialogfont 1
optionslass=s4 href='./../../function-references/XProfan/print/'>Print "Ich were..."
waitinput
@iF: with the TControl.dll hats wonderful worked, only unfortunately is my Prog, in the I The uses Have lane what about me have no guide...  |
| | | | 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 | 08/25/06 ▲ |
| | |
| | 
Michael
Wodrich | sees without XP-Style still class from.
Schalte time circa - momentum...
Arrrggggg - now white I, Why the by me shorted is.
there helps well really only a Umstellung on The Property-Sheets.
time look...
Best wishes
Michael Wodrich |
| | | | Programmieren, das spannendste Detektivspiel der Welt. | 08/25/06 ▲ |
| | |
| |
Jac
de
Lad | | | | | 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 | 08/25/06 ▲ |
| | |
| | 
Frank
Abbing | here the originale Source to Dll. i think, the is quite selbsterklärend:
CompileMarkSeparationSetTrueColor 1
Declare fadll&,x&,y&,text$,farbe&,listbox&,choicebox&,tab&,memhwnd&,text&
Def GetSysColor(1) !"USER32","GetSysColor"
Def LoadIcon(2) !"USER32","LoadIconA"
Def GetWindowLong(2) !"USER32","GetWindowLongA"
Def SetWindowLong(3) !"USER32","SetWindowLongA"
Def GetPix(3) !"GDI32","GetPixel"
Def GetDC(1) !"USER32","GetDC"
DEF TC_Init(2) !"TControl.dll","TC_Init"
DEF TC_Include(6) !"TControl.dll","TC_Include"
DEF TC_Remove(1) !"TControl.dll","TC_Remove"
fadll&=usedll("TControl.dll")
WindowStyle 543
WindowTitle "Transparente Controls mit der TControl.dll, © 2005 Frank Abbing."
Window 0,0-600,440
Cls GetSysColor(4)
SendMessage(%hwnd,$80,1,LoadIcon(0,32517)) WM_SetIcon Application Icon setzen
Usefont "MS Sans Serif",10,0,0,0,0
SetDialogFont 1
text&=Create("TEXT",%hwnd,"",20,20,540,360)
tab&=Create("TABCTRL",text&,"Reiter 1",0,0,540,360)
InsertTab(tab&,1,"Reiter 2")
InsertTab(tab&,2,"Reiter 3")
x&=GetDC(tab&)
x&=GetPix(x&,8,80)
MCLS %maxx,%maxy
StartPaint -1
Cls x&
EndPaint
Create("CHECKBOX",text&,"Checkbox",48,52,120,24)
Create("RADIOBUTTON",tab&,"Radiobutton",48,80,120,24)
Create("Groupbox",tab&,"ChildWindow",32,32,200,84)
Create("Edit",text&,"Editier mich.",32,128,200,24)
listbox&=Create("Listbox",text&,"",32,160,200,144)
Whileloop 24
text$="Das ist Eintrag Nr. "
text$=text$+Str$(&loop)
@AddString(listbox&,text$)
EndWhile
choicebox&=Create("Choicebox",text&,"",32,320,200,64)
Whileloop 8
text$="Text Nr. "
text$=text$+Str$(&loop)
@AddChoice(choicebox&,text$)
EndWhile
SendMessage(choicebox&,$14e,0,0)
text$="Das hier ist ein statischer Text,
Static-Control oder auch
Text-Control genannt."
Create("TEXT",text&,text$,264,52,200,56)
text$="Und ein Multiedit, geeignet für schnelle Texteingabe. Bietet Platz für bis zu 32768 Zeilen Text. Das reicht in den meisten Fällen für viele Anwendungen."
Create("Multiedit",text&,text$,264,116,200,-64)
Create("Button",tab&,"Drück mich",264,116+64+16,80,24)
StartPaint -1
x&=%HDC2
EndPaint
TC_Init(%hwnd,%hdc2)
TC_Init(text&,x&)
RePaint
WhileNot 0
WaitInput
Case %key=2:BREAK
EndWhile
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Das gesubclasste Fenster muss vor Beenden von Hand zerstört werden.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
DestroyWindow(tab&)
DestroyWindow(%hwnd)
freed fadll&
end
|
| | | | | | |
| |
Jac
de
Lad | Hm,
but wozu are The command TC_Include and TC_Remove there? |
| | | | 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 | 08/25/06 ▲ |
| | |
| |
Frank
Abbing | | I see. Vergiss the two functions. The were time as expansion planned, go but not using. If you tappt im dunkeln aufrufst, happens nothing. |
| | | | | | |
| |
Jac
de
Lad | | I vergess The whole DLL: with the DLL GEHTS of course so right and badly, but Trackbars and SpinEdits go wrong displayed and ShowWindow() works neither always...I set whom Style for Tabcontrols simply back and well. |
| | | | 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 | 08/26/06 ▲ |
| | |
| |
Frank
Abbing | very the was the reason for attitude the Dll.  |
| | | | | | |
| |
Jac
de
Lad | | | | | 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 | 08/26/06 ▲ |
| | |
|
AnswerThemeninformationenthis Topic has 5 subscriber: |
(862)
Deutsch
English
Français
Español
Italia