Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sillium,
13. Aug 2005
Also ich schreibe mir ein Programm in der Art von Steam, von dem aus ich Alle meine spiele starten kann, server suchen und starten und diverse Einstellungen machen kann.
Bis jetzt sucht dass Programm nur nach meinen installierten Valve Spiele. (siehe Screenshot)
Hier ist noch die Prozedur, die mir meine Icons auswählt!
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sillium,
13. Aug 2005
Zu komplex!
Aber du kennst ja meine Draw-Item Prozedur und meine PopUp-Prozedur.
Die andere kürzere Version von Dir habe ich noch nicht ausprobiert!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sillium,
13. Aug 2005
Mist!!
Zu schnell geantwortet! Damit hab ich das gleiche Problem!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sillium,
13. Aug 2005
Canvas.TextRect(Rect, Rect.Left + Icon2.Width + 8, Rect.Top + TopDif, Items);
Ich hab gedacht das Zeichnet mir den Text in mein Rect.......
Wenn ich aber
Canvas.TextOut(Rect.Left + Icon2.Width + 8, Rect.Top + TopDif, Items);
das hier benutze, funktioniert es.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sillium,
12. Aug 2005
So ich hab jetzt selbst eine Lösung gefunden!!
Und zwar habe ich mein OnMouseDown Ereigniss (siehe alter Code oben) nur eine bischen abgeändert.
procedure TForm3.tlbGamesMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
cursorpos : TPoint;
ndx : integer;
begin
if Button=mbRight then
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sillium,
12. Aug 2005
Muß ich mal ausprobieren.
Danke soweit!!
Meld mich bei weiteren Fragen!!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sillium,
12. Aug 2005
Hallo,
ich habe eine ListBox mit mehreren einträgen, der ich mit der Drawitem-Procedure Icons vor jeden eintrag zeichne.
Das klappt so weit sehr gut.
Jetzt habe ich allerdings für das ereignis rechte-mause-down über einem Eintrag ein popupmenu hinzugefügt.
procedure TForm3.tlbGamesMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);