AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Verlaufswerkzeug erstellen

Ein Thema von thomas2009 · begonnen am 27. Mär 2011 · letzter Beitrag vom 29. Mär 2011
Antwort Antwort
Benutzerbild von s.h.a.r.k
s.h.a.r.k

Registriert seit: 26. Mai 2004
3.159 Beiträge
 
#1

AW: Verlaufswerkzeug erstellen

  Alt 29. Mär 2011, 01:24
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,
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)
  Mit Zitat antworten Zitat
thomas2009
(Gast)

n/a Beiträge
 
#2

AW: Verlaufswerkzeug erstellen

  Alt 29. Mär 2011, 01:42
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
  Mit Zitat antworten Zitat
Benutzerbild von s.h.a.r.k
s.h.a.r.k

Registriert seit: 26. Mai 2004
3.159 Beiträge
 
#3

AW: Verlaufswerkzeug erstellen

  Alt 29. Mär 2011, 02:34
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.
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:30 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz