Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
12. Nov 2015
Ok. Es funktioniert. Dann können wir ja damit anfangen den Code zu verschönern:
procedure linie_zeichnen(x:word;darueber_loeschen:boolean);
begin
application.processmessages;
if ((Form1.ComboBox1.ItemIndex=4) or (Form1.ComboBox1.ItemIndex=20)) and not Form1.Visible
then Form2.Canvas.Pen.Color:=clblack
else Form2.Canvas.Pen.Color:=Menge.farbe;...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
11. Nov 2015
SetPriorityClass(GetCurrentProcess,REALTIME_PRIORITY_CLASS);
SetThreadPriority(GetCurrentThread,THREAD_PRIORITY_TIME_CRITICAL);
Autsch. Man kann seinen Rechner natürlich auch mit Gewalt lahm legen.
Effektiver ist es erst auf ein Bitmap im Speicher zu zeichnen und dieses regelmäßig auf den Canvas zu kopieren.