Icon auf DialogBox?

Hallo Xprofis !

Ist es irgendwie möglich (natürlich, aber wie? ) ein Icon auf einem Dialogfenster anzuzeigen?

Irgendwie so:

ArF% = Create("Dialog", %Hwnd, "Hi world", %Maxx/2-200, %Maxy/2-150, 400, 300)
Showicon ArF%, IchbineinIcon&, xcoord&, ycoord& <-- wie?

Wenn ich richtig verstanden habe @Create("Icon",N,S,X1,Y1) kann nur die Xprofan eingebaute Bildern nach Name erstellen, aber ich möchte eine grüne Haken von der Windows Iconliste (nr. 60 ich glaube), als Benutzerfeedback.

Drawicon ist auch nicht die richtige weil es kein Dialogfensterhandle nutzen kann...


Danke im Voraus !

[horsthorn]

Meinst du sowas?

PROC SETZE_ICON
DECLARE b_icon%
PARAMETERS b_handle%,b_icon$,spalte%,zeile%
b_icon% = CREATE("ICON",b_handle%,b_icon$,0,0)
SetWindowPos b_icon% = 0,0-0,0;0
SetWindowPos b_icon% = spalte%,zeile%-27,27;0
ENDPROC

DECLARE _DLG&

Window 0,0-%MaxX,%MaxY
_DLG&=CREATE("DIALOG",%hwnd,"",50,50,200,100)
SETZE_ICON _DLG&,"GESICHT",10,10
SETZE_ICON _DLG&,"A",100,10
WAITINPUT
END

[Andreas Miethe]

Hallo Horst,

ich glaube er meinte Icons aus anderen Dateien, nicht die Profan-Icons.

In etwa so etwas.

$H Windows.ph
$H Messages.ph

cls
Var ArF& = Create("Dialog", %Hwnd, "Hi world", %Maxx/2-200, %Maxy/2-150, 400, 300)

'######################################################
'Icon aus DLL anzeigen
'######################################################
'Parameter:
'1 Fenster in dem das icon angezeigt werden soll
'X-Einfügepunkt
'Y-Einfügepunkt
'Name der Datei die das Icon enthält
'Nummer des Icon in der Datei
'######################################################
Var Icon& = Create("ExIcon",Arf&,10,10,"Shell32.dll",15)
'######################################################

waitinput
DeleteObject Icon&
end

SubProc Create.ExIcon
  Parameters Parent&,x&,y&,Source$,IconNo&
  Var Iconfeld& = Create("Icon",Arf&,"",X&,Y&)
  Var Icon& = Create("hIcon",Source$,IconNo&)
  SendMessage(iconfeld&,~STM_SETIMAGE,~IMAGE_ICON,Icon&)
  Return icon&
EndProc

[horsthorn]

@Andreas

ich glaube er meinte Icons aus anderen Dateien, nicht die Profan-Icons.

Stimmt - hab zu schnell drüber weggelesen
Aber du hast ja den richtigen Code gepostet

Hallo Andreas,

Dein Code ist ganz genau was ich gesucht habe.
Vielen Dank.

p.s.
Ich hätte nie an einer subproc gedacht... um Xprofan tiefer zu lernen gibt es nur die eingebaute Hilfe + die Forums? Wo kann ich noch nach Infos schauen, wie man richtig mit win api Befehle klar kommen kann?

Grüß

[Frabbing]

Da gibt es nur eine gute Adresse, nämlich das MSDN: Windows API List (Windows)
Wer dem Englischen abgeneigt ist, findet im VB-Umfeld gute deutsche Beschreibungen vieler API-Funktionen: vb@rchiv · API-Referenz · Übersicht

Die noch oft zu findene Win32.hlp-Referenz ist inzwischen zu veraltert.

[Onsightfree]

Zitat von Frabbing

Da gibt es nur eine gute Adresse, nämlich das MSDN: Windows API List (Windows)
Wer dem Englischen abgeneigt ist, findet im VB-Umfeld gute deutsche Beschreibungen vieler API-Funktionen: vb@rchiv · API-Referenz · Übersicht

Die noch oft zu findene Win32.hlp-Referenz ist inzwischen zu veraltert.

Hi,

Ich habe mich endlich registriert, meine Antwort kommt irgendwie nicht mehr durch als Gast...
Also.. Danke für die Antwort und Empfehlungen. Ich kenne schon die Seite, aber ohne VB Kenntnisse ist die Info auf msdn für mich noch zu wenig.

z.B. Wie kann ich etwas verwenden, was in kein .dll drinn ist, wie z.B.
Button_Enable Macro (Windows)

$H Windows.ph
$H Messages.ph

cls
Var ArF& = Create("Dialog", %Hwnd, "Hi world", %Maxx/2-200, %Maxy/2-150, 400, 300)
Var ArFok& = Create("Button", ArF&, "DisableMe" ,200 , 180, 140, 80)
Var ArFe& = Create("Button", ArF&, "E/D" ,30 , 180, 140, 80)

whilenot @Clicked(ArFok&)
waitinput

If @Clicked(ArFe&)
~Button_Enable(ArFe&, "FALSE") 'Disable Knopf, so Programm nicht beendet werden kann?
endif

wend
end

Hier krieg ich eine Fehlermeldung, aber dieser Befehl kann nicht in Xprofan mit Def definiiert werden, als es nicht in Kernel32.dll ist?

Grüß

p.s. Soll ich ein neues Thema starten für mein Verständnissproblemen mit win api vs Xprofan?

Edit:
So sehr typisch dass die alte Antwort jetzt aufgetaucht hat (kann gelöscht werden)

[ts-soft]

Das ist ein Makro, der ersetzt das ganze durch diese API:
EnableWindow Function (Windows)

Um das zu finden müsstest Du Dir das Plattform SDK von MS laden und
installieren. Aber das findest Du nicht in der dortigen Hilfe, sondern in den
Header-Dateien .
Als C plüsch plüsch Programmierer wäre das alles kein Problem, für die hat
MS das geschrieben.

Es ist also sehr schwierig mit diesen Ersetzungen durch Makros, genauso wie
die komischen Variablentypen, deren wahre grösse man erstmal ermitteln
muss.

Im Laufe der Jahre lernt man aber damit umzugehen

[Frabbing]

Ich habe mich endlich registriert, meine Antwort kommt irgendwie nicht mehr durch als Gast...

Ist durchgekommen, dauert aber immer etwas bis zur Freischaltung. Das passiert manuell und nicht immer ist ein Moderator "im Haus", der dafür so schnell sorgen kann. Werde den doppelten Eintrag mal entfernen.

Die API benötigst du in deinem Fall übrigens nicht, weil XProfan sie schon eingebaut hat. Probier mal:

EnableWindow ArFe&, 0

Mit der API ist das so eine Sache. Das geht nicht von jetzt auf gleich, man muß da langsam reinwachsen. Letztendlich kommst du aber an der MSDN-Lektüre nicht vorbei. Mir persönlich sind die dortigen Webseiten lieber als die installierte Plattform SDK. Das ist aber sicher Geschmackssache.

Eine Beschreibung der unzähligen Datentypen, die bei den APIs immer benötigt werden, gibt es übrigens hier: http://msdn.microsoft.com/de-de/libr...=vs.85%29.aspx

[ts-soft]

Zitat von Frabbing

Mir persönlich sind die dortigen Webseiten lieber als die installierte Plattform SDK. Das ist aber sicher Geschmackssache.

Wenn Du Makro definitionen oder ähnliches suchst, nützen die Webseiten
aber nichts. Es fehlen die Header-Dateien und nicht jeder hat eine
Programmiersprache installiert, die diese in aktueller Form mitinstalliert.

Ausserdem gibts beim SDK noch nützliche Tools dazu, die z.B. für den Umgang
mit COM usw. unentbehrlich sind. Ich lese auch meist auf der Website, aber
auf das SDK kann ich trotzdem nicht verzichten.

[Onsightfree]

Zitat von Frabbing

Die API benötigst du in deinem Fall übrigens nicht, weil XProfan sie schon eingebaut hat. Probier mal:

EnableWindow ArFe&, 0

Mit der API ist das so eine Sache. Das geht nicht von jetzt auf gleich, man muß da langsam reinwachsen. Letztendlich kommst du aber an der MSDN-Lektüre nicht vorbei. Mir persönlich sind die dortigen Webseiten lieber als die installierte Plattform SDK. Das ist aber sicher Geschmackssache.

Eine Beschreibung der unzähligen Datentypen, die bei den APIs immer benötigt werden, gibt es übrigens hier: Windows Data Types (Windows)

Oh, ich dachte das EnableWindow ist nur für Fensterobjekte, wegen dem Name des Befehls...
Danke für die Hilfe und die Infos. Versuche ich dann langsam in der API-Welt reinzuwachsen...

Grüß

[horsthorn]

Danke für die Hilfe und die Infos. Versuche ich dann langsam in der API-Welt reinzuwachsen...

Wünsch dir viel Erfolg dabei.
Selbst versuche ich das schon seit langer Zeit ohne sichtbares Vorwärtskommen.
Na ja, bei meinem Alter klappt das auch nicht mehr so flott

[Frabbing]

Oh, ich dachte das EnableWindow ist nur für Fensterobjekte, wegen dem Name des Befehls...

Alle Controls (Buttons, Listboxen, Checkboxen usw.) sind Fensterobjekte.

[Onsightfree]

Zitat von Frabbing

Alle Controls (Buttons, Listboxen, Checkboxen usw.) sind Fensterobjekte.

Wieder etwas gelernt.... :P

@horsthorn: Nicht nachlassen !