Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
21. Mär 2006
:wall: :wall: :drunken: :wall: :drunken:
So, hab heut mah versucht datt eh bissl umzusetzen mit dem canvas, aber irgenwie will nix so recht.
, sobald ich die Auflösung verändere streiken die Bildchen.
Klappt nich wirklich, sieht sch... aus.(Siehe Bild, nach der auflöungsveränderung wirds im ImageButton weis)
procedure TForm1.AllMouseDown(Sender: TObject; Button: TMouseButton;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
20. Mär 2006
Das Klappt,erstes Problem gelöst
iTag := IntToStr(i);
(FindComponent('Images'+(iTag)) as TImage).Picture.Assign(Rot);
(FindComponent('Images'+((iTag))) as TImage).Picture.Bitmap.Canvas.Font.Size:=20;
(FindComponent('Images'+((iTag))) as TImage).Picture.Bitmap.Canvas.Brush.Style := bsClear;
(FindComponent('Images'+((iTag))) as...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
20. Mär 2006
:-D Schritt für Schritt kämpfe ich mich durch.
Jetzt ist die Schrift lrider noch zu transparent.
Die Schrift sollte Transparent zum Image sein, sie ist aber transparent zur Form bzw zum Image unter dem Image. Siehe Bild.
iTag := IntToStr(i);
(FindComponent('Images'+(iTag)) as TImage).Picture.Assign(Rot);
(FindComponent('Images'+((iTag))) as...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
20. Mär 2006
Hab noch die Zwei Sachen Probiert, irgendwie versteckt sich der Text hinter der Bitmap.
(FindComponent('Images'+(iTag)) as TImage).Picture.Assign(Rot);
(FindComponent('Images'+((iTag))) as TImage).Picture.Bitmap.Canvas.TextOut(16, 16, '100');
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
20. Mär 2006
:wall: :wall: :drunken: :wall: :drunken:
So, hab heut mah versucht datt eh bissl umzusetzen mit dem canvas, aber irgenwie will nix so recht.
Irgendwie is datt rote bild immer vor dem Text
iTag := IntToStr(i);
(FindComponent('Images'+(iTag)) as TImage).Picture.Assign(Rot);
(FindComponent('Images'+((iTag))) as TImage).Canvas.TextOut(16, 16, '100');
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
20. Mär 2006
Ok, Danke, ich werds mir mal anschauen.
Ich hab auch noch mah eh bissl ausprobiert und festgestellt wenn ich TJVBackround einsetzte kann ich die CPU-Last von 15% auf 7% senken.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
20. Mär 2006
Wenn ich das Hintergrundbild auf Visible:=False Stelle, benötige ich nur noch eine 5% Cpu Auslastung, dies ist ein starres Bild ohne jegliche Funktion, jedoch benötige ich es zur ansicht, das es Speicher frisst ist mir ja klar,aber das ein starres Bildchen ohne Funktion bei einem Buttonclick gleich 10% rechenleisung frisst, dass muss doch umgehbar sein?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
19. Mär 2006
Bei mir solls ca. 40 Buttons geben mit je einem Bild bei Mouse Down und Up.(Sind alles Images)
Über diesen Button liegen ca. 150 unsichtbare Images mit je einem Label.Je nach Sitation soll dann ein kleines Bildchen(Wie im BeispielProgramm ein Roter Kreis(habs jetzt noch nicht eingebunden,aber ist dabei)in einem oder mehreren Images aufleuchten.Mit einem kleinen text dazu.Man könnte sagen so...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
19. Mär 2006
Hallo, :gruebel:
Ich habe ein Programm mit realiv vielen Images :coder: ,sobald ich ein onclick Ereignis auslöse, benötigt dies bei mir ca.15%-18% meiner CpuLeistung bei einer anderen Auflösung, und ca 5-8% bei gleicher Auflöung;
(Bei einem Normalen Buttonclick ohne alles 0-2%) :witch:
Ich hab rund 40 Images(BildGrösse ca. 3kb) die ich als Buttons nutze +120 Images(ohne Bild im folgenden...