Problem mit Größer als und Kleiner als

[Klaus01]

schau Dir dazu einmal die FloatToStrF Funktion an.

Grüße
Klaus

[Gehstock]

Hilf mir bitte

hab mal das org. programm und den nachbau angehängt bin noch auf dem panel vorwiederstand

nachbau:http://rapidshare.de/files/27183652/Project2.exe.html
orginal:http://rapidshare.de/files/27183828/...chner.exe.html

was mich zur nachsten frage bringt wie mach ich das mit dem normwiederstand

Delphi-Quellcode:

if pnl_calculated_resistor.caption := 400 or 410 or 420...... then pnl_normresistor.caption := 390

sollte ja nich klappen

[Gehstock]

Bräuchte die Farbe Orange für die Widerstandsringe wird aber nicht angeboten was kan man da machen

Delphi-Quellcode:

CLorange

klappt nicht

[Klaus01]

Vielleicht findest Du hier die richtige Farbe, Sie lassen sich auch als HexWert oder Dezimalwert angeben. http://www.heber-edv.de/diverse/farben.php

Aus der Hilfe für TColor:

Zitat:

type TColor = -$7FFFFFFF-1..$7FFFFFFF;

If you specify TColor as a specific 4-byte hexadecimal number instead of using the constants defined in the Graphics unit, the low three bytes represent RGB color intensities for blue, green, and red, respectively. The value $00FF0000 represents full-intensity, pure blue, $0000FF00 is pure green, and $000000FF is pure red. $00000000 is black and $00FFFFFF is white.

Grüße
Klaus

[Gehstock]

if cb_ring1.ItemIndex = 2 then begin
shape_ring1.visible:= true;
shape_ring1.brush.color:=$DF3918;
end;

sowas hatte ich mir schon gedacht nur bei mir kommt da blau

[Klaus01]

shape_ring1.brush.color:=$00DF3918;

Siehe auch den Auschnitt aus der Hife oben, Delphi will 4 Bytes haben.

Grüße
Klaus

[Gehstock]

00DF3918 ist bei mir trotzdem Blau
000333fd klappt so in etwa

Danke nochmal

[Klaus01]

Bei Delphi ist die Reihenfolger BGR und nicht RGB
dann sollte Dein Wert $001839DF sein.

Warum das auch immer sein mag.

Grüße
Klaus

[ManuMF]

Erklärung siehe hier.