Verlaufswerkzeug erstellen

[thomas2009]

Hi

Ich möchte gerne ein Verlaufwerkzeug mit Delphi erstellen, um eine Farbe auf eine 24Bit Bitmap zu füllen

Kann jemand mir dabei helfen ?

[mkinzler]

Ein Werkzeug für was?

Btw. Ich würde an deinet Stelle erstzmal schauen, dass du die Grundlagen verstehst.

[rollstuhlfahrer]

Das gibts schon. Such mal nach einer Komponente namens TGradient.

Bernhard

[himitsu]

Wenn er das auf/in einem TBitmap haben will, dann wird er den Gradient wohl selber malen müssen oder er verwendet eine Grafik-Lib, welche einen Zeichenbefehl dafür kennt.

[DeddyH]

Wie immer, er möchte gerne etwas programmiern, weiß nicht, wie, bekommt dann Hinweise oder gar Quelltext und kann das dann mangels Grundlagenwissen nicht umsetzen. Ich weiß gar nicht, wieso man ihm noch versucht, Hilfestellung zu geben. Ich werde das jedenfalls nicht tun, bis er mir glaubhaft machen kann, dass er sich mit der Materie befasst hat.

[DelphiSecurity]

Zitat:

Zitat von DeddyH (Beitrag 1091357)

Wie immer, er möchte gerne etwas programmiern, weiß nicht, wie, bekommt dann Hinweise oder gar Quelltext und kann das dann mangels Grundlagenwissen nicht umsetzen. Ich weiß gar nicht, wieso man ihm noch versucht, Hilfestellung zu geben. Ich werde das jedenfalls nicht tun, bis er mir glaubhaft machen kann, dass er sich mit der Materie befasst hat.

Das ist aber nicht fair. Das Forum ist für Hilfe da.

[mkinzler]

Man hat aber kein Anrecht, dass eine bestimmte Person hilft. Wenn Detlef Gründe hat, die dagegen sprechen, dann ist es sein Gutes Recht und nicht unfair.

Im Gegenteil finde ich, dass wer der Hilfe benötigt auch mal selber bemüht und seinen Teil zur Lösung beiträgt.

[Die Muhkuh]

Dann schau Dir die ganzen anderen Beiträge von ihm an. Irgendwann ist bei jedem die Toleranzgrenze erreicht.

[DelphiSecurity]

Zitat:

Zitat von Die Muhkuh (Beitrag 1091360)

Dann schau Dir die ganzen anderen Beiträge von ihm an. Irgendwann ist bei jedem die Toleranzgrenze erreicht.

und

Zitat:

Zitat von mkinzler (Beitrag 1091359)

Man hat aber kein Anrecht, dass eine bestimmte Person hilft. Wenn Detlef Gründe hat, die dagegen sprechen, dann ist es sein Gutes Recht und nicht unfair.

Im Gegenteil finde ich, dass wer der Hilfe benötigt auch mal selber bemüht und seinen Teil zur Lösung beiträgt.

Stimmt schon...

[Luckie]

Ich glaube, das geht jetzt am Thema vorbei. Wenn ihr ihm nicht helfen wollt, dann schreibt auch bitte einfach nichts.

[DelphiSecurity]

Zitat:

Zitat von Luckie (Beitrag 1091418)

Ich glaube, das geht jetzt am Thema vorbei. Wenn ihr ihm nicht helfen wollt, dann schreibt auch bitte einfach nichts.

Bin gleicher Meinung. Stimmt hätte ich auch über PN regeln können, aber ich mag es nicht wenn man über jemanden nicht gerade positiv spricht und derjenige das nicht mitbekommt. :wink: Sry.

[thomas2009]

Ich habe über google tatsächlich free TGradient gefunden
In Lizenz steht zwar es ist free aber verstehe ich ganz, was der Autor damit genau meint mit (bei Änderung auf die Source muss man ihm Bescheid sagen) !

Code:

TGradient component is freeware. You may copy component's files AS LONG AS YOU COPY ALL OF THEM. If you want to change the source code in order to improve the component's features, performance, etc. please send me the new source code so that I can have a look at it. The changed source code should contain descriptions what you have changed, and of course your name. The only thing you MAY NOT CHANGE is the ORIGINAL COPYRIGHT INFORMATION.

Heisst das, das ich keine Änderung auf TGradient.pas machen darf ?

[lbccaleb]

Du darfst keine änderung am originalen Copyright Text vornehmen. Die Datei darfst du verändern, musst Sie danach aber als Kopie an den Author senden.

Und musst eintragen was du geändert hast, und deinen Namen dazu angeben.

[thomas2009]

Ich möchte nicht die Unit (TGradient.pas) von ihm weiter entwickeln und wieder in Internet als TGradient.pas für alle veröffentlichen sondern nur für mein Programm anpassen
Ist das auch nicht erlaubt ?

[s.h.a.r.k]

lbccaleb hat doch schon alles gesagt, was es zu sagen gibt. Änderst du etwas, dann musst du ihm eine Kopie der Datei schicken. Es steht jetzt explizit nicht dran, dass du das erst dann machen musst, wenn du die geänderte Komponente veröffentlichen willst!

Zudem muss ich langsam echt meinen Vorredner zustimmen: Wie viel Aufwand wäre es denn gewesen das bisschen englischer Text in Google Translate zu kopieren? Zudem solltest du, in so fern du dem Englischen nicht mächtig bist, etwas dazu tun, denn allein wenn du mal ein wenig im MSDN nachforschen solltest oder auch nur fremden Quelltext zu Gesicht bekommst (was oft genug passieren wird), wirst du es brauchen!

Des weiteren: im Forum findet sich ausreichend Code, mit Hilfe dessen man Gradients zeichnen kann. Oder du nutzt jetzt einfach mal diese TGradient-Unit. Ich denke nicht, dass der Autor der Unit den Code so geschrieben hat, dass jeder, der ihn nutzen will, ihn auch noch anpassen muss. Somit ist die Frage, ob du den nun ändern darfst und was du beachten musst, wenn du den änderst, hier hinfällig, zumal der eh vom Thema weg führt,

[thomas2009]

TGradient macht den Effekt nur auf Form.canvas
Ich muss danach wie die Leute schon gesagt, das Canvas als Bitmap kopieren.

Delphi-Quellcode:

procedure TMainForm.Button1Click(Sender: TObject);
var
  Bitmap: TBitmap;
  Source: TRect;
  Dest: TRect;
begin
  Bitmap := TBitmap.Create;
  try
    with Bitmap do
    begin
      Width := Mainform.Width;
      Height := Mainform.Height;
      Dest := Rect(0, 0, Width, Height);
    end;
    with Mainform do
      Source := Rect(0, 0, Width, Height);
      Bitmap.Canvas.CopyRect(Dest, Mainform.Canvas, Source);
      Bitmap.SaveToFile('mybitmap.BMP');
  finally
    Bitmap.Free;
  end;
end;

Ich muss die Unit anpassen, so ich die beide Farben ändern kann .
TGradient

kann jemand mir in diesem Punkt helfen, wie ich die Farbe in Unit direkt von meinem Form ändern kann ?
Ich melde zurück, wenn ich alleine schaffe ;)

[s.h.a.r.k]

Du musst die Unit nicht anpassen! Du musst diese lediglich unter uses einbinden und nutzen. Nach nicht mal 10 Sekunden Quellcode lesen, wusste ich wie es geht. Sagen wir mal du bist Anfänger, dann dauert es halt eine bis zwei Minuten.