Umstellung von DEF-Befehlen in Sendmessage

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
dysti
Beiträge: 656
Registriert: 10.02.2006 18:34
Wohnort: Schlicktown

Umstellung von DEF-Befehlen in Sendmessage

Beitrag von dysti »

Hallo,
habe hier vier API-Befehle, weiß aber nicht, wie man die in Purebasic umsetzt. Es geht hier um eine Liste mit BMP-Bilder zu erstellen, die später in ein Listicongadget angezeigt werden.

Code: Alles auswählen

Def GetSysColor(1) !"USER32","GetSysColor"
Def ImageList_Create(5) !"comctl32.dll","ImageList_Create"
Def ImageList_Destroy(1) !"comctl32.dll","ImageList_Destroy"
Def ImageList_Add(3) !"comctl32.dll","ImageList_Add"
PB5 / Spiderbasic / WB14 / Win7 / Win8.1 / Win10 / Debian 9
Benutzeravatar
HeX0R
Beiträge: 3042
Registriert: 10.09.2004 09:59
Computerausstattung: AMD Ryzen 7 5800X
96Gig Ram
NVIDIA GEFORCE RTX 3060TI/8Gig
Win11 64Bit
G19 Tastatur
2x 24" + 1x27" Monitore
Glorious O Wireless Maus
PB 3.x-PB 6.x
Oculus Quest 2 + 3
Kontaktdaten:

Beitrag von HeX0R »

Code: Alles auswählen

GetSysColor_()
ImageList_Create_()
ImageList_Destroy_()
ImageList_Add_()
Benutzeravatar
dysti
Beiträge: 656
Registriert: 10.02.2006 18:34
Wohnort: Schlicktown

Beitrag von dysti »

Oh, ich habe vergessen die Parameter anzugeben. Entschuldigung.

Code: Alles auswählen

ilist&=ImageList_Create(80,80,33,0,0)

listview&=CreateListView(%hwnd,%hinstance,0,GetSysColor(24),-1,$3)

bild1&=Create("hPic",-1,"C:\test\turm2.bmp")
ImageList_Add(ilist&,bild1&,0)

bild2&=Create("hPic",-1,"c:\test\test4.bmp")
ImageList_Add(ilist&,bild2&,0)
PB5 / Spiderbasic / WB14 / Win7 / Win8.1 / Win10 / Debian 9
Benutzeravatar
HeX0R
Beiträge: 3042
Registriert: 10.09.2004 09:59
Computerausstattung: AMD Ryzen 7 5800X
96Gig Ram
NVIDIA GEFORCE RTX 3060TI/8Gig
Win11 64Bit
G19 Tastatur
2x 24" + 1x27" Monitore
Glorious O Wireless Maus
PB 3.x-PB 6.x
Oculus Quest 2 + 3
Kontaktdaten:

Beitrag von HeX0R »

Du willst nun allen ernstes behaupten, dass meine Hinweise nicht ausreichend sind das Problem selbständig zu lösen ?

Vorkauen ist gut, aber selber essen musst du schon ;)
Benutzeravatar
Kiffi
Beiträge: 10714
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Beitrag von Kiffi »

HeX0R hat geschrieben:Vorkauen ist gut, aber selber essen musst du schon ;)
Iiiiiiiiiiiiigitt! ;-)

@dysti: Benutz bitte mal die Suchfunktion dieses Boards.

Grüße ... Kiffi
a²+b²=mc²
Benutzeravatar
dysti
Beiträge: 656
Registriert: 10.02.2006 18:34
Wohnort: Schlicktown

Beitrag von dysti »

Habe es schon selber herausgefunden. Ein bisschen gegoogelt.
Hier die Lösung:

Code: Alles auswählen

GetSysColor_(1)
Bildliste=ImageList_Create_(80,80,ILC_COLOR32,5,1)
ImageList_Destroy_(Bildliste)
ImageList_Add_(Bildliste,3,0)
PB5 / Spiderbasic / WB14 / Win7 / Win8.1 / Win10 / Debian 9
Benutzeravatar
dysti
Beiträge: 656
Registriert: 10.02.2006 18:34
Wohnort: Schlicktown

Beitrag von dysti »

Diesen Befehl hatte ich noch vergessen:

Code: Alles auswählen

bild1&=Create("hPic",-1,"Test.bmp")
ist nichts anderes als dieser PB-Befehl:

Code: Alles auswählen

bild1=LoadImage(0,"Test.bmp",#PB_Image_DisplayFormat)
Trotzdem ist es nicht einfach, die API-Befehle einfach so umzusetzen.
So trivial ist es doch nicht. Da größte Hindernis ist natürlich, wenn man kein Neudeutsch kann. Wie dem auch sei, ich habe es ja hinbekommen.
Das bei den API-Befehlen nur die Unterstriche dazugemacht werden müssen war klar, schließlich hatte ich vorher die Suchfunktion benutzt. Aber wenn man was bestimmtes möchte muß man sich auch konkret ausdrücken. Das hatte ich in diesem Fall nicht gemacht. Entschuldigung.
PB5 / Spiderbasic / WB14 / Win7 / Win8.1 / Win10 / Debian 9
Benutzeravatar
HeX0R
Beiträge: 3042
Registriert: 10.09.2004 09:59
Computerausstattung: AMD Ryzen 7 5800X
96Gig Ram
NVIDIA GEFORCE RTX 3060TI/8Gig
Win11 64Bit
G19 Tastatur
2x 24" + 1x27" Monitore
Glorious O Wireless Maus
PB 3.x-PB 6.x
Oculus Quest 2 + 3
Kontaktdaten:

Beitrag von HeX0R »

Du musst dich nicht die ganze Zeit entschuldigen, ist ja nix passiert.

Aber ehrlich gesagt finde ich die Umstellung deines Beispiels sehr wohl sehr trivial, darum wollte ich ja auch keine weitere Hilfestellung geben.
Wo genau war denn nun das Problem bei der Umsetzung ?

...und was verstehst du unter Neudeutsch ?
Benutzeravatar
dysti
Beiträge: 656
Registriert: 10.02.2006 18:34
Wohnort: Schlicktown

Beitrag von dysti »

Die Parameterübergabe machte mir Schwierigkeiten. Jetzt wo es gelöst ist, ist es einfach.
Unter Neudeutsch verstehe ich die englische Sprache, die sich immer mehr in unser Sprachgebrauch einnistet.
PB5 / Spiderbasic / WB14 / Win7 / Win8.1 / Win10 / Debian 9
Benutzeravatar
ts-soft
Beiträge: 22292
Registriert: 08.09.2004 00:57
Computerausstattung: Mainboard: MSI 970A-G43
CPU: AMD FX-6300 Six-Core Processor
GraKa: GeForce GTX 750 Ti, 2 GB
Memory: 16 GB DDR3-1600 - Dual Channel
Wohnort: Berlin

Beitrag von ts-soft »

Deine Def sind nicht Neudeutsch, sondern Profan :mrgreen:
PureBasic 5.73 LTS | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
Bild
Antworten