Live wallpaper

  • Antworten:0
  • Bentwortet
P-T 18
P-T
  • Forum-Beiträge: 745

25.10.2013, 18:15:52 via Website

Ich versuche ein liva wallpaper mit b4a zu machen...-funktionieren tut es auf die klassische weise aber die wird mit der zeit langweilig...-was ich jetzt machen will ist dass bei Touch berührung 3 kreise nebeneinander gezeichnet werden...-bei meinen versuchen hagelte es Exceptions -hier der klassische code:
1Sub Process_Globals
2 Dim lwm As LWManager
3End Sub
4
5Sub Service_Create
6 lwm.Initialize("lwm", True)
7End Sub
8
9Sub LWM_SizeChanged (Engine As LWEngine)
10 Engine.Canvas.DrawColor(Colors.Blue)
11 Engine.RefreshAll
12End Sub
13
14Sub LWM_Touch (Engine As LWEngine, Action As Int, X As Float, Y As Float)
15 Engine.Canvas.DrawCircle(X, Y, 20dip, Colors.Red, True, 0)
16 Engine.Rect.Left = X - 20dip
17 Engine.Rect.Right = X + 20dip
18 Engine.Rect.Top = Y - 20dip
19 Engine.Rect.Bottom = Y + 20dip
20 Engine.Refresh(Engine.Rect)
21hier sollten 2 weitere kreise gezeichnet werden
22End Sub
edit:behoben-dip vergessen

— geändert am 25.10.2013, 18:27:52

Posts vor dem 22.12.2014 sind von dem Vorgänger dieses Accounts

Antworten