Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
 Verfasst am: 19.01.2007, 19:29 Titel: |
 |
|
Per API wird dir sicher zu komplizuiert sein.
mein tipp für das zeichenn eines buttons: folgende routine verwenden:
| Code: |
#define Boolean Byte
#define False 0
#define True Not False
Sub Button(X1, Y1, X2, Y2, Pressed As Boolean = 0, Caption As String = "")
Dim As Integer C1 = 15, C2 = 8, C3 = 7, C4 = 30, C5 = 24
If Pressed <> 0 Then Swap C1, C2
If Pressed <> 0 Then Swap C4, C5
If Pressed = 99 Then C3 = 15
Line(X1 - 1, Y1 - 1)-(X2 + 1, Y2 + 1), 17, B
Line(X1, Y1) - (X2, Y1), C1
Line(X1, Y1) - (X1, Y2 - 1), C1
Line(X1, Y2) - (X2, Y2), C2
Line(X2, Y1 + 1) - (X2, Y2), C2
Line(X1 + 1, Y1 + 1) - (X2 - 1, Y1 + 1), C4
Line(X1 + 1, Y1 + 1) - (X1 + 1, Y2 - 2), C4
Line(X1 + 1, Y2 - 1) - (X2 - 1, Y2 - 1), C5
Line(X2 - 1, Y1 + 2) - (X2 - 1, Y2 - 1), C5
Line(X1 + 2, Y1 + 2) - (X2 - 2, Y2 - 2), C3, BF
If Caption <> "" Then
Draw String(X1 + (X2 - X1) / 2 - Len(Caption) * 4 + Abs(Pressed <> 0), Y1 + (Y2 - Y1) / 2 - 8 + Abs(Pressed <> 0)), Caption, 0
End If
End Sub
|
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
