Ticket #1290: Advanced.patch

File Advanced.patch, 812 bytes (added by submersible_toaster, 3 years ago)

Example attempt to derive an alternate colour from SystemSettings? colours

  • lib/Padre/Wx/Dialog/Advanced.pm

     
    710710 
    711711    my $index          = -1; 
    712712    my $preferences    = $self->{preferences}; 
    713     my $alternateColor = Wx::Colour->new( 0xED, 0xF5, 0xFF ); 
    714713 
     714    # Try to derive an alternate row colour based on the current system colour 
     715    my $realColor      = Wx::SystemSettings::GetColour( Wx::wxSYS_COLOUR_WINDOW ); 
     716    # Alternate candystripe is slightly darker and blueish 
     717    my $alternateColor = Wx::Colour->new( 
     718        int($realColor->Red*0.9), 
     719        int($realColor->Green*0.9), 
     720        $realColor->Blue, 
     721    ); 
     722 
    715723    my @preference_names = sort { $a cmp $b } keys %$preferences; 
    716724    if ( $self->{sortcolumn} == 1 ) { 
    717725