AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Toolbutton grau machen + disable !!!

Toolbutton grau machen + disable !!!

Ein Thema von Metallicwar · begonnen am 3. Jan 2011 · letzter Beitrag vom 25. Jan 2011
Antwort Antwort
Seite 1 von 2  1 2   
Metallicwar

Registriert seit: 5. Feb 2010
Ort: Bad Kissingen
293 Beiträge
 
Delphi XE Architect
 
#1

Toolbutton grau machen + disable !!!

  Alt 3. Jan 2011, 14:38
Hallo zusammen, ich verwende eine Toolbar + PNGImageList.
Ich möchte erreichen, dass meine Buttons grau gefärbt werden und dass diese "disabled" sind.
Nur bekomm ich es nicht hin, entweder ich kann sie disablen und sie sind total grau oder ich kann sie grau färben aber sind dennoch anklickbar...

Im Anhang befindet sich ne kleine Demoanwendung, vll versteht ihr dann besser was ich meine..

Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, PngImageList, ImgList, ComCtrls, ToolWin, StdCtrls, ExtCtrls;

type
  TPNG = class(TForm)
    ToolBar1: TToolBar;
    tbtnAngel: TToolButton;
    PngImageList1: TPngImageList;
    tbtnRight: TToolButton;
    tbtnPlus: TToolButton;
    tbtnX: TToolButton;
    btnGrey: TButton;
    btnAlleEnable: TButton;
    Panel1: TPanel;
    procedure FormResize(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnAlleEnableClick(Sender: TObject);
    procedure btnGreyClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  PNG: TPNG;

implementation

{$R *.dfm}

procedure TPNG.FormResize(Sender: TObject);
begin
  Toolbar1.ShowCaptions := False;
  Application.ProcessMessages;
  Toolbar1.ShowCaptions := True;
end;

procedure TPNG.FormShow(Sender: TObject);
begin
  tbtnAngel.Enabled := True;
  tbtnRight.Enabled := True;
  tbtnPlus.Enabled := True;
  tbtnX.Enabled := True;
end;

procedure TPNG.btnAlleEnableClick(Sender: TObject);
begin
  if (tbtnAngel.Enabled = True) and (tbtnPlus.Enabled = True) and
     (tbtnX.Enabled = True) and (tbtnRight.Enabled = True) then
    begin
      tbtnAngel.Enabled := False;
      tbtnPlus.Enabled := False;
      tbtnX.Enabled := False;
      tbtnRight.Enabled := False;
      Toolbar1.ShowCaptions := False;
      Application.ProcessMessages;
      Toolbar1.ShowCaptions := True;
    end
  else
    begin
      tbtnAngel.Enabled := True;
      tbtnPlus.Enabled := True;
      tbtnX.Enabled := True;
      tbtnRight.Enabled := True;
      Toolbar1.ShowCaptions := False;
      Application.ProcessMessages;
      Toolbar1.ShowCaptions := True;
    end;
end;

procedure TPNG.btnGreyClick(Sender: TObject);
begin
  if PngImageList1.EnabledImages = True then
    begin
      PngImageList1.EnabledImages := False;
      Toolbar1.ShowCaptions := False;
      Application.ProcessMessages;
      Toolbar1.ShowCaptions := True;
    end
  else
    begin
      PngImageList1.EnabledImages := True;
      Toolbar1.ShowCaptions := False;
      Application.ProcessMessages;
      Toolbar1.ShowCaptions := True;
    end;
end;

end.
Angehängte Dateien
Dateityp: zip Project1.zip (265,1 KB, 7x aufgerufen)
  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
 
#2

AW: Toolbutton grau machen + disable !!!

  Alt 3. Jan 2011, 15:00
Zu dem grau gefärbten Bilder: diese schauen echt nicht sehr schön aus! Die Transparenz wird dabei scheinbar deaktiviert.

Schau dir mal die PNGComponents an. Dort gibt es einen PNG-Button, bei dem man pngGrayscaleOnDisabled setzen kann.
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)
  Mit Zitat antworten Zitat
Metallicwar

Registriert seit: 5. Feb 2010
Ort: Bad Kissingen
293 Beiträge
 
Delphi XE Architect
 
#3

AW: Toolbutton grau machen + disable !!!

  Alt 3. Jan 2011, 15:11
Nach langem Suchen, habe ich eine Lösung gefunden.
Folgendermaßen:
Der Eigenschaft DisabledImages (der Toolbar) meine PNGImageList zuweisen.
Dann die Eigenschaft EnabledImages (Eigenschaft von Toolbar1.DisablesImages) auf False setzen.
und abschließend die Eigenschaft Enabled der Toolbar auf False setzen ..
siehe da, der Button ist in dunkler grauer Farbe und nicht mehr anklickbar.

Eine weiter Frage die ich mir stelle: Ist es möglich, den Button zu disablen und das Image nur in abgeschwächter Farbe darzustellen, also nicht komplett dunkelgrau, sonder dass die unrsprüngliche Farbe noch leicht zu erkennen ist?
  Mit Zitat antworten Zitat
Metallicwar

Registriert seit: 5. Feb 2010
Ort: Bad Kissingen
293 Beiträge
 
Delphi XE Architect
 
#4

AW: Toolbutton grau machen + disable !!!

  Alt 3. Jan 2011, 15:16
ah, danke für die Antwort.
Also wenn ich von meinen Images die Eigenschaft pngGrayscaleOnDisabled auf True setze verändert sich garnichts.
Wenn ich allerdings wie oben geschrieben der Eigenschaft DisabledImages (der Toolbar) meine PNGImageList zuweisen, dann werden die Toolbuttons Disabled angezeigt und in Farbe, wenn es jetzte noch möglich wäre die Farbe abzuschwächen, dann wäre es perfekt

mfg David

Geändert von Metallicwar ( 3. Jan 2011 um 15:19 Uhr)
  Mit Zitat antworten Zitat
Progman

Registriert seit: 31. Aug 2007
Ort: 99974 MHL
695 Beiträge
 
Delphi 10.1 Berlin Starter
 
#5

AW: Toolbutton grau machen + disable !!!

  Alt 3. Jan 2011, 15:26
Die folgende Procedure macht ein TPNGObject halbtransparent (stammt aus der Unit der TPNGButton-Komponente):
Delphi-Quellcode:
procedure MakeImageHalfTransparent(Source, Dest: TPNGObject);
var
  i, j: Integer;
begin
  Dest.Assign(Source);
  Dest.CreateAlpha;
  if (Dest.Header.ColorType <> COLOR_PALETTE) then
    for j := 0 to Source.Height - 1 do
      for i := 0 to Source.Width - 1 do
        Dest.AlphaScanline[j]^[i] := Dest.AlphaScanline[j]^[i] div 3;
end;
Vielleicht nützt es dir ja was.
Karl-Heinz
Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen)
  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
 
#6

AW: Toolbutton grau machen + disable !!!

  Alt 3. Jan 2011, 15:34
ah, danke für die Antwort.
Also wenn ich von meinen Images die Eigenschaft pngGrayscaleOnDisabled auf True setze verändert sich garnichts.
Wenn ich allerdings wie oben geschrieben der Eigenschaft DisabledImages (der Toolbar) meine PNGImageList zuweisen, dann werden die Toolbuttons Disabled angezeigt und in Farbe, wenn es jetzte noch möglich wäre die Farbe abzuschwächen, dann wäre es perfekt

mfg David
Funktioniert doch wunderbar?! Du musst nur die passenden Eigenschaften in der PNGImageList setzen:
  • EnabledImages auf True, dann haben die Images die normale Farbe.
  • EnabledImages auf False und PngOptions.pngGrayScaleOnDisabled := False -> dann werden die Images abgeschwächt gezeichnet.
  • EnabledImages auf False und PngOptions.pngGrayScaleOnDisabled := True -> dann werden die Images ausgegraut gezeichnet.
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)
  Mit Zitat antworten Zitat
Metallicwar

Registriert seit: 5. Feb 2010
Ort: Bad Kissingen
293 Beiträge
 
Delphi XE Architect
 
#7

AW: Toolbutton grau machen + disable !!!

  Alt 3. Jan 2011, 15:56
Danke für die weiteren Antworten. Ich habe es erstmal mit dem Lösungsvorschlag von s.h.a.r.k probiert.
Habe die Eigenschaften wie beschrieben gesetzt.
Die Images in den Toolbuttons werden jetzt nicht komplett grau dargestellt, sondern dunkel und ein wenig Farbe ist zu erkennen. Sooo, aber eines ist glaube ich nicht berücksichtigt worden... Die Buttons sind weiterhin anklickbar, also habe ich die Eigenschaft Enabled der Toolbar auf False gesetzt. Beim Ausführen des Programms, sind die Toolbarbuttons aber wieder komplett disabled.. (also alles grau, so wie die Farbe des Formulars).

Könntest du mal dein Project hochladen, vll habe ich nur irgendwo ne falschen Eigenschaftswert...
Weil ich wollte ja erreichen, dass die Buttons disabled sind und in einer etwas abgeschwächtere Farbe dargestellt werden.... nicht wie momentan, wo die Images sehr dunkel sind und ein wenig Farbe enthalten.
  Mit Zitat antworten Zitat
Metallicwar

Registriert seit: 5. Feb 2010
Ort: Bad Kissingen
293 Beiträge
 
Delphi XE Architect
 
#8

AW: Toolbutton grau machen + disable !!!

  Alt 3. Jan 2011, 16:59
aaarh, ich bin am verzweifeln, da muss es doch einen Weg geben. -.-
Ich sollte vll noch mal den Vorschlag von Progman ausprobieren..
  Mit Zitat antworten Zitat
Lemmy

Registriert seit: 8. Jun 2002
Ort: Berglen
2.364 Beiträge
 
Delphi 10.3 Rio
 
#9

AW: Toolbutton grau machen + disable !!!

  Alt 3. Jan 2011, 17:17
Hi,

der Weg der bei mir immer funktioniert hat:

ein entsprechendes disabled Bild in einer zweiten ImageList und die Imagelist der entsprechenden Eigenschaft der Toolbar/Toolbutton zuweisen und fertig!

Grüße
  Mit Zitat antworten Zitat
Metallicwar

Registriert seit: 5. Feb 2010
Ort: Bad Kissingen
293 Beiträge
 
Delphi XE Architect
 
#10

AW: Toolbutton grau machen + disable !!!

  Alt 4. Jan 2011, 17:51
@Lemmy, ja die Idee schwirrte mir auch schon im Kopf rum, wollte eben wissen, ob es nicht doch eine Alternative gibt?
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 12:45 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz