| Autor |
Beitrag |
raven
Beiträge: 54
|
Verfasst: Sa 21.12.02 13:14
hi Leutz 
Bin neu hier im forum und möchte gleich mal ein neues freeware project von mir vorstellen ...
mit "resistance code" ist es möglich durch fabrauswahl die werte von jeglichen elektrtischen widerstönden anzuzeigen ...
ADDY:
home.arcor.de/raveno...e/resistancecode.zip
Würde mich über reichlich feedback freuen
by RaVeN [RaVeTeCH]
PS:
Die Ravetech site geht erst am 01.01.03 online aber ihr könnt ins gästebuch schon feedback posten
|
|
BungeeBug
 
Beiträge: 901
|
Verfasst: Sa 21.12.02 13:22
nicht schlecht ... nicht schlecht ... mal sehn ob auch alles stimmt 
MfG BungeeBug
|
|
raven 
Beiträge: 54
|
Verfasst: Sa 21.12.02 13:56
*thx
darfst gern alle möglichkeiten nachrechnen *fg
|
|
matze
Beiträge: 4613
Erhaltene Danke: 24
XP home, prof
Delphi 2009 Prof,
|
Verfasst: Sa 21.12.02 14:26
super !!!
darf man mal fragen wie du das menü design hinbekommen hast ?? mit der XPmenu kompo ??
_________________ In the beginning was the word.
And the word was content-type: text/plain.
|
|
raven
Beiträge: 54
|
Verfasst: Sa 21.12.02 17:24
@matze
*thx
das menü is kein ding, is so en PIE Menü ausm PiePack glaub ich ...
|
|
matze
Beiträge: 4613
Erhaltene Danke: 24
XP home, prof
Delphi 2009 Prof,
|
Verfasst: Sa 21.12.02 21:28
kannst du mir dafür mal ne URL geben ?
_________________ In the beginning was the word.
And the word was content-type: text/plain.
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: So 22.12.02 00:57
Wie wäre es den Berechnen-Button nur zu aktivieren, wenn die Angaben vollständig sind? Dann bekommt man nicht so eine häßliche Fehlermeldung, um die Ohren gehauen.
|
|
Jack Falworth
Beiträge: 222
Win XP Pro, Slackware 10.0
D5 Enterprise, C++, ABAP
|
Verfasst: So 22.12.02 02:00
Ist ganz ordentlich bisher.
Könntest aber noch einen Löschen Button einbauen, der den Startwert wieder herstellt.
MfG
Jack Falworth
|
|
raven
Beiträge: 54
|
Verfasst: So 22.12.02 11:15
@lucky & jack
beide ideen sind gut und werden umgesetzt.
Ich denke heute abend is fertig.
@matze
Pie Tools:
scifi.pages.at/paulu...ownload/PieTools.zip
|
|
Moritz M.
Beiträge: 1672
|
Verfasst: So 22.12.02 12:21
Nicht schlecht, das prog, Kenn mich zwar damit nicht aus, ist aber trotzdem sehr gut!
|
|
raven
Beiträge: 54
|
Verfasst: So 22.12.02 14:41
OK hab nun die verbesserungen eingebaut und hochgeladen ... adresse ist noch die gleiche ...
cya
|
|
Moritz M.
Beiträge: 1672
|
Verfasst: So 22.12.02 14:46
Also ich finds Perfekt!!
|
|
Moritz M.
Beiträge: 1672
|
Verfasst: So 22.12.02 14:49
Ach, noch was zur Seite:
Welches Gästebuch???
|
|
raven
Beiträge: 54
|
Verfasst: So 22.12.02 14:56
@onz
danke
in der info steht diese site www.ravetech.de.tt/
da kommste zu nem GB da die ravetech site noch nich fertig is ...
|
|
Moritz M.
Beiträge: 1672
|
Verfasst: So 22.12.02 15:02
Klappt 
|
|
Popov
Gast
Erhaltene Danke: 1
|
Verfasst: So 22.12.02 23:21
@raven
Ein schönes nützliches Programm. Hab man sowas in meine 64'er Phase geschreiben, nur eben mit den Möglichkeiten von C64
Allerdings kann jedes Programm noch verbessert werden:
1. Den Button "Berechnen" brauchst du eigentlich nicht. Du könntest z.B. bei jedem Klick in eine der fünf ListBoxen prüfen ob alle ItemIndex Werte größer -1 sind. Wenn ja, dann sofort berechnen. Es ist doch egal ob noch weitere Werte gewählt werden. Du könntest einfach den momentanen Stand zeigen. Das mit den 4 oder 5'er Ringen dürfte auch kein Problem sein. Dann eben bei jedem Klick in eine der fünf ListBoxen zuerst prüfen ob 4 oder 5 Ringe beachtet werden müssen. Wenn vier, dann nur bei den ersten vier prüfen ob die ItemIndex Werte größer -1 sind, sonst eben bei allen fünf.
2. Ich weiß nicht ob du noch mehr Arbeit investieren willst, aber du könntest die Listboxen um einen Farbring erweitern (neben der Schrift). Dann sieht man die Farbe auch und braucht sie nicht zu lesen. Das mit dem "Farbkleks" ist einfacher als du glaubs. Wenn du da keine Erfahrung hast, dann kann ich dir ein Beispiel machen.
|
|
raven
Beiträge: 54
|
Verfasst: So 22.12.02 23:59
@popov
jo das mit dem direkten berechnen hab ich mir auch schon überlegt ... währe kein problem da ich die boxen eh schon abfragen muss um den button enabled oder disabled zu machen ... müsste nur noch die rechen prozedur reinhengen ... aber eigentlich gefällt es mir mit dem berechnen button besser ....
das mit den farbkläcksen hab ich mir auch schon überlegt ... ich könnte allerding nur neben jede farbe en farbigen panel setzten ... das is nich so gut ... weißt du den wie ich direkt in die listbox nen farbklex reinbekomme? das währe super wenn de da mal en bsp. hättest
danke
|
|
Popov
Gast
Erhaltene Danke: 1
|
Verfasst: Mo 23.12.02 02:23
Das mit dem Berechnenbutton ist keine so gute Idee. Stell dir vor, du müßtest in Word den Text zuerst in einer Extrabox schreiben und dann ein Übernehmen-Button klicken. Auf die Dauer nervig. Wenn wenigsten hinter dem Berechnen eine Routine wäre die ca. 1 Sekunde braucht, dann könnte man es noch akzeptieren. So ist aber der Rechner schnell genug um es On-The-Fly zu machen.
Zu dem Farbklecks. Ich hab mal schnell was geschrieben (ist also noch nicht richtig getestet). Falls du Probleme kriegst, dann melde dich noch mal:
  Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
const
FarbArray : array [0..15] of TColor = (clBlack, clMaroon, clGreen, clOlive,
clNavy, clPurple, clTeal, clGray, clSilver, clRed, clLime, clYellow,
clBlue, clFuchsia, clAqua, clWhite);
Cw = 80; // Breite des Farbbalken in Pixel
begin
//WICHTIG!!!
//ListBox1.Style := csOwnerDrawFixed; setzen. Sonst funktioniert es nicht.
with (Control as TListBox), Canvas do
if not (odSelected in State) then begin
Canvas.TextRect(Rect, Rect.Left + Cw + 5, Rect.Top, Items[Index]);
Canvas.Brush.Color := FarbArray[Index];
Canvas.Rectangle(Rect.Left + 2, Rect.Top + 1, Rect.Left + Cw, Rect.Bottom - 1);
end;
end; |
In die ListBox.Items muß du noch die Farben als Text eintragen (müssen 16 Werte für das Beispiel sein).
Hier die Liste:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| clBlack
clMaroon
clGreen
clOlive
clNavy
clPurple
clTeal
clGray
clSilver
clRed
clLime
clYellow
clBlue
clFuchsia
clAqua
clWhite |
|
|
raven
Beiträge: 54
|
Verfasst: Mo 23.12.02 15:14
@popov
danke, echt ein super code ... ich werd das auf jedenfall einbauen in version 1.2 is das dann vorhanden ... ich denke ich werd heut noch fertig, je nachdem wie ich zeit habe ...
|
|
raven
Beiträge: 54
|
Verfasst: Mo 23.12.02 16:39
OK Ich habe das neue Feature nun eingebaut und schließe damit die arbeit an diesem tool ab ...
ich hoffe es gefällt euch nun so und viel spaß mit version 2.0 ...
die addy oben stimmt noch
|
|
