Verlaufswerkzeug erstellen

[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.