Tweet
Hallo.<br><br>Ich Habe mal wieder ein Problem...<br><br>Wie Kann man ein Icon/ einen Cursor in einer *.res-Datei (also eine Ressourcendatei) in Delphi 5 verwenden? <br><br>Konkret: ich habe in einer solchen Datei einige Bitmaps, einige Symbole und Cursoren untergebracht. <br>Wie Die bitmaps geladen werden, habe ich rausgefunden:<br> &nb sp; <b>BitBtn.Glyph.LoadFromResourceName(0, 'NameDerBitmap');</b><br><br>Gibt es sowas auch für Icons bzw. Cursoren, also z.B.:<br>   ;<b>Form1.Icon.LoadFromResourceName(0, 'NameDesIcons');</b><br><br>oder<br> &n bsp; <b>BitBtn.Cursor.LoadFromResourceName(0, 'NameDesCursors);</b><br><br>Vielen Dank schonmal im Voraus.<br><br><i>PS: Kennt jemand einen guten Editor für rc-Dateien?</i>
-
If it's there and you can see it – it's REAL
If it's there and you can't see it – it's TRANSPARENT
If it's not there and you can see it – it's VIRTUAL
If it's not there and you can't see it – it's GONE! -
Hallo Christian,
.
für Cursor habe ich es folgendermaßen gelöst:
.
Screen.Cursors[5] := LoadCursor(hInstance,'NameDesCursors');
BitBtn.Cursor := 5;
.
Hans -
Danke.
und wie ist das mit den Icons?
<br>
Gruß, ChristianIf it's there and you can see it – it's REAL
If it's there and you can't see it – it's TRANSPARENT
If it's not there and you can see it – it's VIRTUAL
If it's not there and you can't see it – it's GONE!Comment
-
In der Win32-Hilfe habe ich eine Routine LoadIcon(), welche analog zu LoadCursor() verwendbar sein sollte, gefunden. Ich habe es aber selber noch nicht ausprobiert.
.
HansComment
-
Vielen Dank!
<br>
So funktionierts mit den icons:
<br><b>
procedure TForm1.FormCreate(Sender: TObject);
var Icon: TIcon;
begin
Icon := TIcon.Create;
Icon.Handle := LoadIcon(hInstance, 'IconName');
Form1.Icon := Icon;
end;</b>
<br>
DankeIf it's there and you can see it – it's REAL
If it's there and you can't see it – it's TRANSPARENT
If it's not there and you can see it – it's VIRTUAL
If it's not there and you can't see it – it's GONE!Comment
Comment