Runde, ovale, diagonale, geschwungene oder sonstwie Buttons

[Sunlight7]

Hallo DPler!

Eigentlich wollt ich nur Wissen, ob meine Idee funktionieren würde, und heraus kam diese Komponente...

Man kann in den Ressourcen die Bitmaps hinterlegen, welche dann als Buttons dargestellt werden.
Auf Deutsch gesagt, man zeichnet die Buttons, und Kompo setzt es um.
Also das ist jetzt schwierig zu beschreiben, am besten, Ihr guckt Euch den Screenshot mal an.

Geschrieben ursprünglich mit Delphi 2, die Komponente zum Download ist jetzt aber für Delphi 5.0+

Neu in V1.5:

• Speed Optimierung, besonders für große Bitmaps
• Eigenschaften:
• EnabledStr & PushedStr: Zur komfortablen Nutzung im OI und zur einfachen Speicherung und Wiederherstellung von Konstellationen für Enabled bzw. Pushed.
• Bugs ausgebügelt.

Neu in V1.4:

• Eigenschaften: PushedButtons & Pushed

V1.3:

• Ressourcen Bitmaps entfernt
• Bitmaps zum OI hinzugefügt, ich hoffe ihr seid jetzt glücklicher

V1.2:

• Eigenschaft Enabled für die Buttons
• Bugfixes im Design-Modus
• Bugfixes mit gedrückter Maustaste
• Timer entfernt (D5+)

V1.1b:

• "Schnelles Maus darüber ziehen Problem behoben"
• TransparentColor:
  • Ein beliebiger Farbwert, oder:
  • clNone: Keine Transparenz
  • clBackground: Die Farbe von Pixels[0, 0] wird verwendet.

Hint:
F: Ist doch eine Standard Eigenschaft?
A: Jein, ich habe aus der Eigenschaft eine StringList gemacht.
Die 0. Zeile bleibt leer, die restlichen Zeilen stehen für den
jeweiligen Button.

ResStandard, .., ResTouchZones
Hier können die Ressourcennamen eingegeben werden, die dann
geladen werden.

Ich weiß, das ist noch nicht das Gewünschte...

Viel Spaß damit!

PS: Wäre schön, wenn Ihr einen Screenshot posten würdet, was ihr damit gemacht habt.

Zitat von Delphi 5.0 Compiler:

interner Fehler C1569

Das hat mich was genervt...

Edit: Demo Exe erneuert.

[newuser01]

Zitat:

a könnte man, aber dazu mußt Du erst noch überzeugungs Arbeit Leisten. Mr. Green

Die Delphigemeinde dem "Sunlight7" Hypnotisiert und eintrichtert "du bist ein RoundButton-Komponentenschreiber" "du bist wirklich ein RoundButton-Komponentenschreiber" wenn du aufwachst schreibst du nur an dieser Komponente bis zur Vollendung

[Sunlight7]

*Von der Leitung runter Steige*

Ich habs nacher noch kapiert.
Problem behoben und hochgeladen (.pas).

Edit: @newuser01 Wenn ich mal Zeit habe mach ich das noch, mal sehen, derweil mußt Du noch mit den Ressourcen auskommen.

[Hawkeye219]

Zitat von Sunlight7:

Kann mal wer probieren, ob diese Funktion in neueren Delphi Versionen auch nen internen Fehler verursacht?!
Das hat mich was genervt..

Der Code scheint etwas zu komplex für den Compiler zu sein. Versuche einmal den Umweg über eine Hilfsvariable:

Delphi-Quellcode:

function GetPixel (Bitmap: TBitmap; const x, y: Integer): LongInt;
var 
  sl  : PByteArray;
  idx : Integer;
begin
  sl := Bitmap.ScanLine[y];
  idx := x * 3;
  Result := RGB(sl[idx + 2], sl[idx + 1], sl[idx]);
end;

Eine Alternative wäre der TypeCast mit TRGBTriple aus der Unit Windows.

Gruß Hawkeye

[Sunlight7]

Das Problem hab ich schön gelöst, aber Danke:

Delphi-Quellcode:

function GetPixel(Bitmap:TBitmap; const x, y:Integer):LongInt;
   var sl:PByteArray;
begin
   sl:=Bitmap.ScanLine[y];
   Result:=(sl[(x * 3)+2])+(sl[(x * 3)+1] shl 8)+(sl[(x * 3)+0] shl 16);
end;

Zu komplex für den Compiler?
Der Delphi 2.0 Compiler kann das aber
Der Fehler wurde erst später eingebaut, und ich wollte eigentlich wissen, ob der Fehler bei den neueren Versionen immer noch da ist.

[Zacherl]

Unter D2005 PE lässt sich der Code einwandfrei compilieren ...

[Sunlight7]

Danke, also doch kein Fall für die Delphi-Bug Reports.

[newuser01]

Ich habe bei den VCL Komponenten die "JvgButton1" Kompo gefunden diese Komponente hat alles was man dazu braucht eine Schaltfläche so zu erstellen wie sie "Sunlight7" und "Dino" Programmiert haben. In dieser Komponente läd man einfach die entsprechenden Bilder wie sie oben schon gezeigt wurden rein also z.b für ButtonActive,ButtonInactive,ButtonMask,ButtonPushe d und hat dann diese Schaltfläache. Wenn man nun ein gesamte runde Schaltfläche haben will die aufgeteilt ist dann legt man einfach mehrere "JvgButtons" mit den entsprechenden Bildern aneinander das funktioniert bestens und sieht genau so aus wie die Komponente von "Sunlight7"

[Sunlight7]

Und das sagst Du mir erst jetzt???

[Hawkeye219]

Zitat von Sunlight7:

Der Fehler wurde erst später eingebaut, und ich wollte eigentlich wissen, ob der Fehler bei den neueren Versionen immer noch da ist.

Sorry, ich hätte es erwähnen sollen: ein Test mit Delphi 6 professional brachte die Meldung "Interner Fehler C1850". Nach der Aufteilung des Codes war die Fehlermeldung weg. Schaltet man in den Compileroptionen die Optimierung aus, läßt sich auch dein Originalcode übersetzen. Ich vermute daher, daß dem Compiler/Optimizer die Register ausgehen. Delphi 2006 übersetzt deinen Code mit und ohne Optimierung ohne Probleme.

Gruß Hawkeye

[dino]

nach dem loslassen bleibt der btton nicht grau, sondern wird blau... sollte aber rot sein, weil die maus noch drauf ist

genauer ehts nicht, ausser mit nem video