Thema: Virtual Piano

Einzelnen Beitrag anzeigen

alfold

Registriert seit: 29. Jun 2010
Ort: Neustrelitz
393 Beiträge
 
Delphi 7 Enterprise
 
#300

AW: Virtual Piano

  Alt 2. Jul 2011, 21:28
Na na na, was denn jetzt!
Ich mache Dein Prog nicht schlecht. Im Gegenteil möchte ich es ja noch besser machen, weil es so schick ist

Und wenn ich sage es gibt Dinge die man nicht brauch, wie ebend
HalbTon: array[0..100] of Bool; oder im Resize
Delphi-Quellcode:
// Neuzeichnen sperren
  //LockWindowUpdate(WinHandle);
  SendMessage(WinHandle, WM_SETREDRAW, 0, 0);
  //FVisible := False;

  //SKAERO_AnchorEnum(WinHandle);
....
....


  // Aktualisiere die Seiten und TopBars
  //PrintSideBar;
  //PrintTopBar;
  //FVisible := True;
  // Neuzeichnen wieder erlauben
  SendMessage(WinHandle, WM_SETREDRAW, 1, 0);
  //LockWindowUpdate(0);

  //Resizing := False;
und schon flackert es auf XP nicht mehr.
Warum wirst Du also sauer? Das ist doch kein schlecht machen
So gibt es noch andere Stellen um Originalen, wo man sagen kann, ja kann man machen, muss nicht.

Und wenn mein Beispiel bei Dir nicht gefunct hat, bei mir funct es

Wobei wir wieder beim Thema sind. Also nmh.... RÄAAAATSEL.
Hab das jetzt so:

//HalbTon: array[0..100] of Bool;
//DieNoten: TSplitStrArray;

DimmedCol: array[0..15] of COLORREF;
IsDrum: array[0..15] of Bool;
DrumNum: array[0..15] of integer;
NotenNamen: array[0..127] of string;//<--- hier hingesetzt und es funct
.....

Also sooooory @EWeiss falls es falsch rübergekommen ist!

Gruss alfold
  Mit Zitat antworten Zitat